Programlama | Programlama Dilleri | C Programlama Dili |C++



VB Load Olayi

'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

 

  1.  
  2.  
  3. For i = 1 To 4
  4. Load t1(i)
  5. Load t2(i)
  6. Load t3(i)
  7. Load t4(i)
  8. Load c1(i)
  9.  
  10. t1(i).Visible = True
  11. t2(i).Visible = True
  12. t3(i).Visible = True
  13. t4(i).Visible = True
  14. c1(i).Visible = True
  15.  
  16. l = t1(i - 1).Top + t1(i).Height - 15
  17. l = t2(i - 1).Top + t2(i).Height - 15
  18. l = t3(i - 1).Top + t3(i).Height - 15
  19. l = t4(i - 1).Top + t4(i).Height - 15
  20. l = c1(i - 1).Top + c1(i).Height - 15
  21.  
  22. t1(i).Top = l
  23. t2(i).Top = l
  24. t3(i).Top = l
  25. t4(i).Top = l
  26. c1(i).Top = l
  27.  
  28. c1(i).Enabled = False
  29.  
  30. End Sub
  31.  
  32. Private Sub t1_KeyPress(Index As Integer, KeyAscii As Integer)
  33. If KeyAscii = 13 Then
  34. t1(Index + 1).SetFocus
  35. c1(Index + 1).Enabled = True
  36. c1(Index).Enabled = False
  37. KeyAscii = 0
  38. End If
  39.  
  40.  
 

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Çarşamba, 28 Kasım 2012 23:55 )