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: 8036
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: 9330
Kayan Resim
Form üzerinde hareket eden resim.

[Resim: http://ekim08.kucukresim.com/uploads/adsiz7b5d9.jpg]
Yazar: Abdullah - Cevaplar: 9 - İzleme: 6118
Kayan Yazı
Merhaba, yukarıya doğru kayan yazı yapmak istiyorum.Yardımcı olabilirmisiniz?
Yazar: chopper07 - Cevaplar: 7 - İzleme: 13309
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: 4200
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: 5462
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: 2698
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: 2187
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: 3236
Kayan Yazı
lebans dan alıntı
Yazar: accessman - Cevaplar: 3 - İzleme: 2364
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