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

VB¶à¹¤³ÌÖ®¼äÈçºÎ¹²ÏíÊý¾Ý¼°»¥Ïàµ÷ÓÃ?

RT
Óñ¾µØÎļþ£¬¿ÉÒÔÖ±½ÓÓÃÎļþµÄ¼ÓËø¹¦ÄÜʵÏÖ£º¶ÀÕ¼¶Áд¡¢Ò»ÈËд¶àÈ˶Á¡¢¶Áȡʱ²»ÔÊÐí¸ü¸ÄµÈÒªÇó¡£

Êý¾Ý¿â

1¡¢dde¹¤³Ì http://blog.csdn.net/chinaboyzyq/archive/2009/08/04/4406628.aspx
2¡¢²ÉÓÃÊý¾Ý


2¡¢²ÉÓÃÊý¾Ý¿â
3¡¢²ÉÓÃÎļþÐÎʽ


¹²ÏíÄÚ´æÒ²¿ÉÒÔ.....

×¢²á±í

ÎÞÂÛÔõÑù¶¼ÌÓ²»¹ýÕâµã£ºÐèÒªÓÐÒ»¸ö¸÷¹¤³Ì¶¼ÄÜ·ÃÎʵ½µÄµØ·½¡£

²Î¿¼£ºhttp://download.csdn.net/source/1966720


¹²ÏíÄÚ´æ

ÓÃÊý¾Ý¿âà磬¼ÓËø¶¨ ÔÙ¼Ó ÊÂÎñ

¶Ô²»Æð£¬¿ÉÄÜÊÇÎÒû±í´ïÇå³þ£¬ÎÒÏ£ÍûÊÇÔÚVB¹¤³Ì×éÖУ¬Ö÷¹¤³Ì´ò¿ªÄ³Ò»¸ö¹¤³ÌÖеĴ°Ì壬
ÎÒ֮ǰд¹ý¶à¸öVBϵͳ£¬ÏÖÔÚÎÒÏ뽫ÕâЩϵͳÕûºÏÔÚÒ»Æð£¬¼´½øÈëϵͳºó£¬¿ÉËæÒâ´ò¿ªÈÎһϵͳÖеÄij¸ö´°Ìå¡£

ËùÓÐ×ÓϵͳµÄ¹¤³ÌÀàÐÍ¸Ä³É ActiveX Exe µÄ£¬Ôö¼ÓÒ»¸öÀ࣬ÉèÀàµÄÊôÐÔ Instancing Ϊ 6 - GlobalMultiUse£¬¶ÔӦÿ¸ö´°ÌåÔö¼Óµ÷Óú¯Êý£¬Àý
VB code:
'Project2.Class1
Option Explicit

Public Sub ShowForm1()
Form1.Show
End Sub


ÔÚÖ÷¹¤³ÌÖÐÒýÓÃ×Ó¹¤³Ì£¨×¢£º²»ÄÜÔÚͬһ¸ö¹¤³Ì×éÄÚ£¬ActiveX Exe ¹¤³ÌÖ»Äܵ¥¶À±àÒë²¢ÇÒÓà exe ½øÐÐÒýÓã©£¬¾Í¿ÉÒÔµ÷Óú¯Êý´ò¿ª´°Ì壺
VB code:
Project2.ShowForm1



ÎÒÒѸ㶨£¬Ð»Ð»¸÷λ£¬É¢·Ö


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

°ïÎҸĸÄÕâ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 / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

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

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

vbÉú³Éexe´íÎó - VB / »ù´¡Àà

±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivatePr ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ