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

Hata
  • XML Parsing Error at 1:82. Error 9: Invalid character
´╗┐

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

404

Not Found

The resource requested could not be found on this server!


Proudly powered by LiteSpeed Web Server

Please be advised that LiteSpeed Technologies Inc. is not a web hosting company and, as such, has no control over content found on this site.