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

(ת)VBÖд´½¨¿ÉÒÔÊä³öº¯ÊýµÄDLL

VBÖд´½¨µÄDLLÖ»ÊÇCOM×é¼þ£¬ÎÞ·¨×÷ΪÊä³öº¯ÊýµÄDLL¡£½ñÌì´ÓÅóÓÑÄÄÀï¸ãµ½Ò»ÖÖ¿ÉÒÔ´´½¨Êä³öº¯ÊýµÄDLLµÄ·½·¨£¬ÐÀϲ֮Ó࣬²»¸Ò¶ÀÏí£¬ÏÖÔÚ°ÑËû½éÉܸø´ó¼Ò¡£
¡¡¡¡VB±àÒëÎļþʵ¼ÊÉϲÉÈ¡ÁËÁ½´Î±àÒëµÄ·½·¨£¬Ê×ÏÈÊǵ÷ÓÃc2.exe²úÉúOBJÎļþ£¬È»ºóµ÷ÓÃLink.exeÁ¬½Ó¡£Èç¹ûÔÚlinkµÄʱºòÌí¼ÓEXPORTÑ¡Ïʵ¼ÊÉÏÊÇ¿ÉÒÔÊä³öº¯ÊýµÄ¡£µ«ÊÇ£¬ÔÚVBµÄ¹¤³ÌÑ¡ÏîÖн«ÕâЩÆÁ±ÎÁË¡£¶øÇÒ¹ý·ÖµÄÊÇ£ºVBÔÚBuildÍê³Éºó»á½«OBJÎļþɾ³ý£¬ÕâÑù¾ÍÎÞ·¨Í¨¹ýLinkÀ´Êä³öº¯ÊýÁË¡£²»¹ýÎÒÕÒµ½Ò»¸ö±È½Ïö»õºµÄ±äͨµÄ·½·¨£¬¾ÍÊÇÏÈ´´½¨Ò»¸öExe¹¤³Ì£¬ÔÚForm_LoadʼþÀïÃæдÏÂÃæµÄÓï¾ä:
Private Sub Form_Load()
If (MsgBox("hehe", vbOKCancel) = vbOK) Then
Shell "link2.exe " & Command$
End If
End
End Sub
¡¡¡¡È»ºó±àÒëΪlinktemp.exe£¬½ÓÏÂÀ´½«LINK.EXE¸ÄÃûΪLink2.exe£¬½«linktemp.exe¸ÄÃûΪlink.exe¡£ÕâÑùÔÚVBµ÷ÓÃlink.exeʱ»áµ¯³ö¶Ô»°¿ò£¬´¦Àí¾Í»áÖжϡ£Õâʱ¾Í¿ÉÒÔÓлú»á½«OBJÎļþ¿½±´³öÀ´ÁË J
¡¡¡¡È»ºóÎÒ´´½¨ÁËÒ»¸öActiveX DLL¹¤³Ì£¬ÔÚÕâ¸ö¹¤³ÌÀïÃæÌí¼ÓÒ»¸öModule²¢´´½¨Ò»¸öPublicº¯Êýmathadd£º
Public Function mathadd(ByVal a As Long, ByVal b As Long) As Long
mathadd = a + b
End Function
¡¡¡¡BuilderÕâ¸ö¹¤³Ì£¬ÔÚLinkµÄʱºò¾Í»áÖжϡ£È»ºó°Ñ´´½¨µÄClass1.obj¡¢Module1.obj¡¢Project1.obj±¸·Ý³öÀ´¡£
¡¡¡¡È»ºó¾Í¿ÉÒÔµ÷ÓÃLink2.exeÁ¬½ÓOBJµ½DLLÁË£¬ÎÒµÄÁ¬½Ó´úÂëÊÇ£º
link2.exe "e:\vbdll\Class1.obj" "e:\vbdll\Module1.obj" "e:\vbdll\Project1.obj" "E:\Program Files\Microsoft Visual Studio\VB98\VBAEXE6.LIB" /ENTRY:__vbaS /EXPORT:mathadd /OUT:"e:\vbdll\ProjectOK.dll" /BASE:0×11000000 /SUBSYSTEM:WINDOWS,4.0 /VERS
¡¡¡¡×¢ÒâÀïÃæµÄ/ENTRYºÍ/EXPORT¿ª¹Ø£¬/EXPORT¿ª¹ØÉùÃ÷ÁËÊä³öº¯Êýmathadd¡£ÕâÑù¾Í´ó¹¦¸æ³ÉÁË £¬¿ÉÒÔ±»ÆäËûÓïÑÔÒýÈ룬ÀýÈçÔÚVBÖУ¬Ö»ÐèÒª£º
Private Declare Function mathadd Lib "e:\vbdll\ProjectOK.dll" (ByVal a As Long, ByVal b As Long) As Long
¡¡¡¡¾Í¿ÉÒÔÁË¡£


Ïà¹ØÎĵµ£º

VBÉèÖýø³ÌÓÅÏȼ¶

http://topic.csdn.net/t/20060401/19/4656391.html
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Const IDLE_PRIORITY_CLASS = &H40 'нø³ÌÓ¦¸ÃÓзdz£µÍµÄ ......

vb´ò°üÏòµ¼ Éú³É°²×°Îļþ

vb¿ª·¢Èí¼þÊÇÔÚÒ»¶¨µÄ»·¾³Ï½øÐеģ¬Èçvisual basic 6.0  mssql»òaccessµÈ£¬µ«ÊÇ×îÖÕÈí¼þÒª¸ø¹ã´óȺÖÚʹÓ㬱ðÈ˲»¿ÉÄܶ¼°²×°ÕâЩ¶«Î÷£¬ËùÒÔÐèÒª´ò°ü£¬Éú³É°²×°Îļþ£¬¾ÍÏëÎÒÃÇÏÂÔصĺܶలװ³ÌÐò£¬¶¼ÊÇ´ò°üºóµÄ½á¹û£¡
µ«ÊÇÖµµÃ×¢ÒâµÄÊÇ£¬´ò°üµÄ¹ý³ÌÖУ¬ÓÐÌí¼Ó£¬É¾³ý×é¼þ¹©ÄãÑ¡Ôñ£¬Èç¹ûÓõ½Ïà¶Ô·¾¶£¬¸½¼þ£¬ÍâÁªµ ......

ÓÃVBʵÏÖ´øͼƬµÄXP·ç¸ñµÄ°´Å¥¿Ø¼þ

    ËäÈ»ÔÚVBÀïʵÏÖXP·ç¸ñºÜ¼òµ¥£¬µ«ÊÇҪʹÓÃXP·ç¸ñͬʱÓÖÈð´Å¥ÏÔʾͼƬ£¬ÔòʵÏÖÆðÀ´ÒªÂ鷳һЩ£¬Îª´Ë£¬ÎÒдÁËÒ»¸ö¿Ø¼þÀ´ÊµÏÖÇ°Êö¹¦ÄÜ£¬Í¬Ê±ÈöÁÕß¿ÉÒÔ´ÓÖÐÁ˽âXPÖ÷Ìâ½çÃæµÄ»æÖƹý³Ì¡£
    ʹÓð취ºÜ¼òµ¥£¬ÔÚVBÀïн¨Ò»¸ö¹¤³Ì£¬È»ºóÌí¼ÓÒ»¸ö¿Ø¼þÄ£¿é£¬Õ³ÌùÒÔÏ´úÂ룬ÔÙ½«¿Ø¼þ·ÅÖõ½´°¿Ú¼´ ......

VB.NET+AJAXËÑË÷½¨Ò鹦ÄܵÄʵÏÖ

IDE£ºVisual Web Developer 2008 Express Edition
Êý¾Ý¿â£ºAccess 2007
µ½http://www.asp.net/ajax/downloads/ÏÂÔØAJAX Control Toolkit£¬½«AjaxControlToolkit.dll¿½±´µ½ÏîÄ¿µÄbinĿ¼Ï£¬ÔÚ¹¤¾ßÀ¸ÖÐÒýÈë¡£
WebServiceµÄ´úÂ룺£¨aaa.asmx£©
Public Function GetCompletionList(ByVal prefixText As String, ByVal coun ......

VB¾ÖÓòÍøɨÃè

   ×î½üÓÉÓÚ¹¤×÷ÏîÄ¿Ô­Òò£¬ÁÙʱҪÇó×öÒ»¸ö¾ÖÓòÍøɨÃèÈí¼þ¡£¹¦ÄÜÒªÇó£¬É¨Ãè³öIPµØÖ·ÒÔ¼°¶ÔÓ¦µÄMACµØÖ·¡£¹¦ÄܱȽϼòµ¥¡£ÓÚÊǺܿì¾Í×öÁË¡£²ÉÓõĿª·¢¹¤¾ßÊÇ VB6.0
     ʹÓ÷½·¨ÊÇͨ¹ý·¢ËÍ ARP°ü£¬¹ã²¥ IPµØÖ·µÄ·½Ê½À´»ñµÃ ¶ÔÓ¦µÄ MACµØÖ·£¬SendARP£¨£©¡£
ÓÐһЩϸ½ÚҪעÒ⣬¾ÍÊÇ Êä³öMACµØÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ