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 )  
404 Not Found

Server Error

404

Page Not Found

This page either doesn't exist, or it moved somewhere else.


That's what you can do