VB 6.0 µ÷ÓÃdllµÄÎÊÌâ - .NET¼¼Êõ / VB.NET
ÎÒÔÚVC 6.0ÖÐдÁËÒ»¸öexample.dll£¬ÀïÃæÒ»¸öº¯Êý
extern "C" __declspec(dllexport)
HRESULT __stdcall Connect(LPCSTR IpAddr)
{
...
}
example.dllÖиú¯ÊýÃû³ÆÎª _Connect@4 £¨ÓÃdepends¹¤¾ß²é¿´£©
ÎÒÔÚVB 6.0Öе÷Óô˺¯Êý
Private Declare Function Connect Lib "example.dll" Alias "_Connect@4" (ByVal IpAddr As String) As Long
Dim result As Long
result = Connect("138.139.0.230")
If result <> 0 Then
MsgBox ("error_connect")
Else
MsgBox ("connect_ok")
End If
½á¹û·µ»Ø¶¼ÊÇ·Ç0£¬Á¬½Óʧ°Ü¡£
µ«ÎÒÓÃVC±àдµÄ´úÂëÒÔ¼°ÓÃVB.NET±àдͬÑù¹¦ÄܵĴúÂë¶¼¿ÉÒÔÁ¬½ÓÉÏ¡£
²»ÖªµÀÕâ¶ÎVB 6.0µÄ´úÂëÓÐʲô²»¶ÔµÄµØ·½¡£
£¨Ö»ÓÐ45·ÖÁË£¬È«É¢ÁË£©
VB.NETºÍVCµ÷ÓÃʱ£¬example.dllûÓмÓ__stdcall¡££¨ÒòΪVB 6.0ÐèÒªÊÇstdcall£©
¼´£º
extern "C" __declspec(dllexport)
HRESULT Connect(LPCSTR IpAddr)
{
...
}
VB.NET´úÂëÈçÏ£º
Imports System.Runtime.InteropServices
<DllImport("./example.dll", CallingConvention:=CallingConvention.Cdecl)> _
Public Function Connect(ByVal IpAddr As String) As Integer
End Function
Dim result As Integer
result = Connect("138.139.0.230") 'Á¬½Óµ¥°å
If result &
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......