Sn.by body 1
Form1 deki lblScrollingLabel etiketini Kopyalayın.
X1 Formuna Yapştır.
Verilen Kodu X1 Form Özelliklerinden : Zaman Dolduğunda Olayına Yapıştıracaksınız.
X1 form özelliklerinden Süreölçer aralığını:120 yapın.
Sn.emreturker , benim yapmak istediğim ; Loading yazısının Form1 de kayarak geçmesi ve daha sonra zaman dolduğunda x1 formunu açmasını istemiştim.Sizin dediğiniz gibide yaptım ama olmadı .Kod yazılımındamı bir sorun var acaba.
Option Compare Database
Dim trz As Integer
Private Sub Form_Timer()
trz = trz + 1
'Diğer formun açılma süresi 1200 ms yani 1.2 saniyedir..
'Değiştirmek için 10 rakamını düzenleyiniz..
If trz = 10 Then
DoCmd.Close
DoCmd.OpenForm "x1"
Else
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
End If
End Sub
Merhaba..
Sayın Kural'ın bu güzel flash animasyon örneğine ilaveten -mevcut form1 yapınız için- formunuzun kod sayfasını yukarıdaki gibi düzenlerseniz istediğiniz olur..
Sn by body1 problemi çözebildiniz mi? Saygılar...