Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan
Etiketler
Yazar: myAccess - Cevaplar: 10 - İzleme: 8097
Kayan ve Renk Değiştiren Yazılar (myaccess / Örnek Çalışma)
Kayan ve renk değiştiren yazı örnekleri..
Yazar: ozanakkaya - Cevaplar: 13 - İzleme: 9381
Kayan Resim
Form üzerinde hareket eden resim.

[Resim: http://ekim08.kucukresim.com/uploads/adsiz7b5d9.jpg]
Yazar: Abdullah - Cevaplar: 9 - İzleme: 6166
Kayan Yazı
Merhaba, yukarıya doğru kayan yazı yapmak istiyorum.Yardımcı olabilirmisiniz?
Yazar: chopper07 - Cevaplar: 7 - İzleme: 13364
Label da kayan yazı
formumuza 1 timer - 1 label ekliyoruz ve kodları forma yapıştırıyoruz.

buradan "Timer1.Interval = 100" hızı ayarlayabilirsiniz.

Kod:
Private Sub Form_Load()
Label1.Caption = "Accesstr.net | Access Öğrenmenin Kısa yolu"
Label1.Left = ScaleLeft
Label1.Width = Me.ScaleWidth
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()

On Error Resume Next
Label1 = Mid(Label1, 2, Len(Label1) - 1) + Left(Label1, 1)

End Sub
Yazar: chopper07 - Cevaplar: 2 - İzleme: 4228
Label da Aşağı kayan Yazı
formumuza bir timer - 1 label ekleyip kodları yapıştırıyoruz.

Kod:
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 1
Label1.Caption = "Accesstr.net"
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 3
If Label1.Top = Me.Top Then Label1.Top = 0
End Sub
Yazar: esrefigit - Cevaplar: 7 - İzleme: 5503
Tablodaki Verilere Göre Kayan Yazılar
örnekte tablodaki verileri sorgulayarak dikine yatayına kayan yazı rnekleri var ayrıca belki lazım olur diye tablodaki bir veriyi kontrol ederek uyarı vermede var bu kayan yazı bandı uygulamasını verniştim lakin silinmişti
Yazar: accessman - Cevaplar: 2 - İzleme: 2714
form captionda kayan yazı
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.
Yazar: shopen66 - Cevaplar: 4 - İzleme: 2217
Kayan yazı çalşımıyor...
S.a arkadaşlar forumda 10 çeşit kayan yazı var hiçbirini çalıştıramadım.Aynen denildiği gibi yapıyorum olmuyor bahsedilmeyen bişey var kesin.Şimdi ben altta verilen linki açtım arkadaşın form örneğindeki kodu kopyala dedim kendi formumda olay oluşturdum oraya yapıştırdım ve kaydet deyip çıktım.Çalıştır dediğimde olmadı ben nerde yanlış yaptım aceba???

https://accesstr.net/konu-hareketli-form...azisi.html
Yazar: accessman - Cevaplar: 3 - İzleme: 3261
Kayan Yazı
lebans dan alıntı
Yazar: accessman - Cevaplar: 3 - İzleme: 2382
kayan yazıda haberler
iyi geceler
sitede kayan yazıda haberlerin olduğu örnekler vardı bulamadım
linkni bilen varsa ekleyebilir mi
teşekkürler
Task