Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB³ÌÐòÖÐʹÓÃdllÎļþ¶¼ÐèҪע²áÂð£¿

ÔÚ½øÐÐVB³ÌÐòÉè¼ÆÖУ¬Èç¹ûʹÓõ½Íⲿdll¶¯Ì¬¿âÎļþ£¬ÊDz»ÊǶ¼Òª½øÐÐ×¢²á£¿ ÎÒ¶ÔVB²»¶®£¬ÌØÏò´ó¼ÒÇë½Ì£¬Ð»Ð»£¡
²»Ò»¶¨£¬¿´dllµÄÓÃ;£¡


µÚÈý·½µÄ×é¼þÊÇÐèҪע²áµÄ

Äã×Ô¼ºÖÆ×öµÄDLL ÔÚ¿Í»§¶Ë¿Ï¶¨ÊÇҪע²áµÄ

˵ÏÂÄãÊÇÔõôʹÓõġ£

½«ÄãÓõ½µÄdll¶¼·Åµ½ÄãÖ´ÐÐÎļþͬһ¸öĿ¼Ï£¬¿ÉÄܲ»ÐèҪע²á¡£

ÒýÓÃ
½«ÄãÓõ½µÄdll¶¼·Åµ½ÄãÖ´ÐÐÎļþͬһ¸öĿ¼Ï£¬¿ÉÄܲ»ÐèҪע²á¡£


¹þ¹þ...×îºÃ²»ÒªÓÐÕâ¸ö app.path Ãâ×¢²áµÄ¹ÛÄî,Èç¹û˵ÊÇ·ÅÔÚSystem32ÏÂÃâ×¢²á »¹Ëã·Ç³£·Ç³£ÃãÇ¿ÁË.


Ïà¹ØÎÊ´ð£º

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

vb¿ÉÒÔÕâÑù×ö²»£¿ - VB / ·Ç¼¼ÊõÀà

¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡

¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿

2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£

........................¿ÉÒÔÂð

¿ÉÒÔ!


  ¾À½á£¬

29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
 A. ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

vbÈçºÎʵÏÖÒþ²ØlistviewijÁÐ

ÈçºÎÒþ²ØlistviewµÄÁпí,½«ÁпíÉèΪ0,µ«À­¶¯ÁÐÓÖ»á³öÏÖ,ÓÐûÓа취¼´¿ÉÒÔÀ­¶¯ÁпíÓÖ¿ÉÒÔÒþ²ØÄ³Áеķ½·¨
¿´¿´ÓÐûÓÐÀ­¶¯ÁпíµÄʼþ£¬ÈçÓУ¬¿ÉÔڴ˽«Æä¿í¶ÈÉèΪ0

¡£listviewÃ²ËÆ²»ÐÐ,»»¿Ø¼þ

listview ÊÇ¿ÉÒÔµÄ& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ