Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/04/2009 16:05
Konu Sahibi
accessman
Yorumlar
2
Okunma
1922
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

accessman


 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
iyi günler arkadaşlar
chooper07 arkadaşımızın yazmış olduğu bir mesajda form başlığında kayan yazı için şu kodlar verilmişti
----------------------
Sub KayanYazi(frm As Form)
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = frm.Caption
frm.Caption = ""
frm.Show
For X = 0 To Len(Y)
If X = 0 Then
frm.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti
Else: End If
frm.Caption = Left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
End Sub
-------------------------------
bunu nasıl kullanılacağını nereye yazılacağını ben anlamadım
yardım edebilirmisiniz
teşelkkürler


@benbendedeilem

Kullanici Avatari

ozanakkaya


OZ.... AK....
 41
 11.387
 466
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Option Compare Database
Dim a As String, b As String, i As Integer

Private Sub Form_Timer()
i = i + 1
a = "www.accesstr.net"
b = Space(100) & a

    If i <= Len(b) - Len(a) Then
        Me.Caption = Mid$(b, i, Len(b))
    ElseIf i > Len(b) - Len(a) Then
        Me.Caption = Space(1) & Me.Caption
        If Len(Me.Caption) = Len(b) Then i = 0
    End If
End Sub


İlgili örnek aşağıdaki linkte.
https://www.accesstr.net/hareketli-form-...-1954.html


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

accessman


 Belirtilmemiş
 2.367
 561
 31/10/2008
425
 Denizli
 
 Ofis 2003
 20/09/2016,00:20
Çözüldü 
hürmetler admin kardeşim


@benbendedeilem


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Alt Form İçinde Alt Form + İşaretinin Açılması ielmacilar 12 327 27/09/2018, 12:32
Son Yorum: ielmacilar
Çözüldü Ana Form'a Birkaç Tane Alt Form Ekleme kursun 4 135 25/08/2018, 02:43
Son Yorum: kursun
Çözüldü Listbox Büyük Yazı sidd 5 189 23/05/2018, 16:49
Son Yorum: sidd
Çözüldü Combobox Yazı Yazılmaması sidd 8 264 21/05/2018, 17:33
Son Yorum: ozanakkaya
Çözüldü Kayan Yazı U.ALTUN 6 467 16/02/2018, 12:22
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444