• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

kayan yazı

  • Konbuyu başlatan Konbuyu başlatan nisa1
  • Başlangıç tarihi Başlangıç tarihi
Katılım
1 Aralık 2007
Mesajlar
27
Excel Vers. ve Dili
access
arkadaşlar form başlık çubuğuna kayan yazı oluşturmak istiyorum ama olmuyor nasıl yapacağım hakkında bilgilendirirseniz çok teşekkür ederim

form - load bölümüne
Private Sub Form_Load()
'Text for Caption of Form
Me.Caption = "........... SUÇ DEFTERİ ..........."

End Sub (formülünü yazdım)

form timer bölümüne
' Special Note ...........
' Set Form's Timer Interval to 100
Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form
Me.Caption = Mid(Me.Caption, 2, _
(Len(Me.Caption) - 1)) & Left(Me.Caption, 1) yazdım acama nerede hata yapıyorum lütfen beni bilgilendirin acemiyim
 
arkadaşlar neden benim açmış olduğum konulara cevap verilmiyor
 
ben kodlardan anlamam ama bilen bir arkadaş mesajınıza bakmamıştır bakıldığı an kesin bir cevap gelecektir bence takip edin.
 
Aynı kodu kullanarak bir örnek yaptım. Yalnız form adını open olayına yazdım. Bende çalışıyor, bir de sen dene.Kolay gelsin
 
teşekkürler oktaykarauzun deneyeceğim
 
Sayın Taruz'un da bu konuda çok iyi örnekleri olduğuna eminim ;)
 
Ne diyim harikasın, beni çok güldürdün ;) Biliyoruz ki bu işlerde eline su dökmek çok zor..

Bir de kayan resim kodu gözüme çarptı; Mesela bir arabayı form içinde gezdirebilirsiniz ;)

Kod:
Private Sub Form_Timer()

On Error GoTo HandleError
ctlImage.Left = ctlImage.Left + 200
ctlImage.Top = ctlImage.Top + 100

ExitHere:
Exit Sub

HandleError:
ctlImage.Left = 0
ctlImage.Top = 800
Resume ExitHere

End Sub

Resim ismini ctlImage yapın. Zaman ayarını 200 yapabilirsiniz. Left ve top değerleriyle oynayarak x, y koordinat ayarı yapabilirsiniz.

Sonuç, bence berbat derecede kötü oluyor. Hiç beğenmedim. ;)
 
Form tasarımında "Sen yandın Beab" yazıyor. Açılışta, "Alacağın olsun Beab" :) ...

Yine yapmışsınız yapacağınızı Sayın Taruz... Elleriniz dert görmesin...
 
Geri
Üst