|
|
|
|||||||
 | ||
 |
|
|
Seçenekler | Arama | Stil |
  yürüyen text box | ||||||||||
|
(#1)
|
|||||||||
|
[10]Yeni Üye
Mesaj Sayısı: 84
Açtığı Konu: 15
Level: 8 [  ]Paylaşım: 0 / 178
Üyelik tarihi: Apr 2007
Kullanıcı No: 7578
Tecrübe Puanı: 23
REP Puanı : 100
REP Seviyesi :
 |
yürüyen text box -
09-07-2007
Formun üzerine bir textbox ve timer yerlestirin ve textbox'in left özelligini koddaki sayilara göre yaptiktan sonra bunu yordamlara geçirin
Dim artis As Integer Dim b As Integer Private Sub Form_Load() Timer1.Enabled = True artis = 100 b = 100 End Sub Private Sub Timer1_Timer() If Text1.Left < 0 And artis < 7080 Then artis = artis * (-1) Text1.Left = Text1.Left + artis If Text1.Left > 7080 And artis > 0 Then artis = artis *(-1) Text1.Left = Text1.Left + artis |
|||||||||
|
||||||||||
 | ||||||||||
|
|
|
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | Arama |
| Stil | |
|
|
Normal
