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