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µÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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µ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
If recs > 0 Then 'ÒÑÓп¼Éú
Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
num = V ......
±¨Õâ¸ö´í:
compile Error
sub or function not defined
ºÍÎÒÒýÓÃÕâ¸ö¿âº¯ÊýÓйØÏµÂð£¿
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivatePr ......