Metin-X
Would you like to react to this message? Create an account in a few clicks or log in to continue.

 
 
AnasayfaKapıLatest imagesKayıt OlGiriş yap

 

 VB Load Olayi

Aşağa gitmek 
YazarMesaj
ByZonq
Admin
ByZonq


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

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

VB Load Olayi Numuneload


'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
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: