AnasayfaKapıKayıt OlGiriş yap

Paylaş | 
 

 VB Load Olayi

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByZonq
Admin
avatar

Mesaj Sayısı : 35
Rep Gücü : : 2147483647
Rep Puani : : 11999
Kayıt tarihi : 22/08/09

MesajKonu: VB Load Olayi   Ptsi Ağus. 31, 2009 7:47 pm




'Projemize 4 adet text ve 1 adet command eklemeliyiz.

'textlerin name özelliğini text1 için t1 text2 için t2 ....

'command nesnesinin name özelliğini c1 olarak değiştirelim





For i = 1 To 4
Load t1(i)
Load t2(i)
Load t3(i)
Load t4(i)
Load c1(i)

t1(i).Visible = True
t2(i).Visible = True
t3(i).Visible = True
t4(i).Visible = True
c1(i).Visible = True

l = t1(i - 1).Top + t1(i).Height - 15
l = t2(i - 1).Top + t2(i).Height - 15
l = t3(i - 1).Top + t3(i).Height - 15
l = t4(i - 1).Top + t4(i).Height - 15
l = c1(i - 1).Top + c1(i).Height - 15

t1(i).Top = l
t2(i).Top = l
t3(i).Top = l
t4(i).Top = l
c1(i).Top = l

c1(i).Enabled = False

Next
End Sub

Private Sub t1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
t1(Index + 1).SetFocus
c1(Index + 1).Enabled = True
c1(Index).Enabled = False
KeyAscii = 0
End If
Sayfa başına dön Aşağa gitmek
http://metin-x.yetkinforum.com
 
VB Load Olayi
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin-X :: Visual Basic Dersleri :: Orta Kademe-
Buraya geçin: