EĞLENCEDE SINIR YOK.FARKIMIZ ÇOK.
Would you like to react to this message? Create an account in a few clicks or log in to continue.

EĞLENCEDE SINIR YOK.FARKIMIZ ÇOK.

En güncel haberler, paylaşımlar çeşitli aktiviteler formumuzda.
 
AnasayfaAramaLatest imagesKayıt OlGiriş yapMuhabbed

 

 kayan form başlığı

Aşağa gitmek 
2 posters
YazarMesaj
refleks
Moderatör
Moderatör
refleks


Mesaj Sayısı : 102
Kayıt tarihi : 18/03/08

kayan form başlığı Empty
MesajKonu: kayan form başlığı   kayan form başlığı Icon_minitimeÇarş. Mart 19, 2008 10:35 am

'ilk önce bir modül ekleyin ve aşağıdaki kodu yazın

Dim Cl As Integer
Dim at As Integer
Public Function AniText(str As String, eff As Integer) As String
Dim lop
Cl = Len(str) + 1
at = at + 1
If at >= Cl Then
at = 1
End If
Select Case eff
Case 0
AniText = Mid(str, at) + Left(str, at)
Case 1
AniText = Mid(str, (Cl - at)) + Left(str, (Cl - at))
Case 2
AniText = Mid(str, (Cl - at)) + Left(str, (Cl - at)) + Mid(str, at) + Left(str, at)
Case 3
AniText = Mid(str, at) + Left(str, at) + Mid(str, (Cl - at)) + Left(str, (Cl - at))
End Select
End Function

'Daha sonra bir forma timer yapıp bu timera aşağıdaki kodu pasteleyin.
Private Sub Timer1_Timer()
Form1.Caption = AniText("mail adresiniz ", 1)
End Sub
Sayfa başına dön Aşağa gitmek
Admin-Rıdvan
Site Yöneticisi
Site Yöneticisi
Admin-Rıdvan


Mesaj Sayısı : 127
Yaş : 34
Nerden : İSTANBUL
Kayıt tarihi : 17/03/08

kayan form başlığı Empty
MesajKonu: Geri: kayan form başlığı   kayan form başlığı Icon_minitimeÇarş. Mart 19, 2008 2:53 pm

Paylaşım için sağol kanka
Sayfa başına dön Aşağa gitmek
https://fearles.forumdizini.com
refleks
Moderatör
Moderatör
refleks


Mesaj Sayısı : 102
Kayıt tarihi : 18/03/08

kayan form başlığı Empty
MesajKonu: Geri: kayan form başlığı   kayan form başlığı Icon_minitimeÇarş. Mart 19, 2008 5:58 pm

bişey değil
Sayfa başına dön Aşağa gitmek
 
kayan form başlığı
Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
EĞLENCEDE SINIR YOK.FARKIMIZ ÇOK. :: İNTERNET-BİLGİSAYAR :: PROGRAMLAMA-
Buraya geçin: