label1 kayan yazı

[security]

merhaba sayın excel ailesi sorunumu örnek dosyada anlattım. yardımlarınızı bekliyorum şimdiden tşk.
not: webbrowser ile olmayacak...
ayrıca yanıp sönme olursa daha iyi olur.

 

[Skorpiyon]

Sayın security,

Sorununuzu anlatmak için çok çaba sarfetmişsiniz ama, VBA 'DAN ŞİFREYİ KALDIRMAYI veya ŞİFREYİ SÖYLEMEYİ UNUTMUŞSUNUZ.

:hiho:

 

[security]

Sn: Şaban Sertkaya dosyada sadece flash ile anlatım mecut dosya özel oldugundan bu şekilde sorumu sormak istedim.. sadece label1 de yazının yanıp sönmesi veya saga soa kaymasını istiyorum... örnek bir dosya ile yardımcı olursanız sevinirim. tşk.

 

[security]

sorunu hallettim tşk..

 

[ulutanas]

sayın security sorunu nasıl hallettiniz burada yazarsanız memnun oluruz. bugün benimde ihtiyacım oldu ve bulamadım.

iyi çalışmalar

 

[İhsan Tank]

sayın security sorunu nasıl hallettiniz burada yazarsanız memnun oluruz. bugün benimde ihtiyacım oldu ve bulamadım.

iyi çalışmalar

merhaba sorunuza yanıt olarak

Private Sub CommandButton1_Click()
Label1.Caption = " İYİ BAYRAMLAR. "
Dim karakter, kalan As String
Dim s, c, i As Integer
s = Len(Label1)
For i = 1 To s
karakter = Mid(Label1, 1, 1)
kalan = Right(Label1, s - 1)
For c = 1 To 30000
Label1 = kalan & karakter
Next c
DoEvents
Next i
Label1 = ""
End Sub

böyle bir kod buldum burada http://www.excel.web.tr/showthread.php?t=59984&highlight=labelde+kayan+yaz%FD örnekte ektedir.

 

[security]

sayın security sorunu nasıl hallettiniz burada yazarsanız memnun oluruz. bugün benimde ihtiyacım oldu ve bulamadım.

iyi çalışmalar

Private Sub UserForm_Activate()
Dim X As Integer
Dim current As Variant
        Label1.Caption = "Security"
            Y = Label1.Caption
                Label1.Caption = ""
For X = 0 To Len(Y)
If X = 0 Then
                Label1.Caption = ""
        current = Timer
Do While Timer - current < 0.2
        DoEvents
        Loop
GoTo bitti
        Else: End If
                Label1.Caption = Left(Y, X)
        current = Timer
Do While Timer - current < 0.2
        DoEvents
        Loop
bitti:
Next X
                Label1.Caption = ""
        
current = Timer
Do While Timer - current < 0.2
        DoEvents
        Loop
Call UserForm_Activate
End Sub

Buyrun Örnek kod

 

[security]

sayın security sorunu nasıl hallettiniz burada yazarsanız memnun oluruz. bugün benimde ihtiyacım oldu ve bulamadım.

iyi çalışmalar

Buyrun Örnek kod

Private Sub UserForm_Activate()
Dim X As Integer
Dim current As Variant
        Label1.Caption = "Security"
            Y = Label1.Caption
                Label1.Caption = ""
For X = 0 To Len(Y)
If X = 0 Then
                Label1.Caption = ""
        current = Timer
Do While Timer - current < 0.2
        DoEvents
        Loop
GoTo bitti
        Else: End If
                Label1.Caption = Left(Y, X)
        current = Timer
Do While Timer - current < 0.2
        DoEvents
        Loop
bitti:
Next X
                Label1.Caption = ""
 
current = Timer
Do While Timer - current < 0.2
        DoEvents
        Loop
Call UserForm_Activate
End Sub