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

Çë½Ì£ºVBµ÷ÓÃVC dll ±¨´í - .NET¼¼Êõ / VB.NET

VCÖеĵ¼³öµÄº¯ÊýÊÇÕâÑùµÄ£º

extern "C" __declspec(dllexport)
HRESULT Connect(LPCSTR IpAddr, CHAR* pcUserName = NULL, CHAR* pcPassword = NULL)//·µ»Ø0±íʾÁ¬½Ó³É¹¦£¬·Ç0Ôòʧ°Ü
{
  ...
}

ÎÒÔÚVBÖÐÉùÃ÷ÈçÏ£º

Declare Function Connect Lib "C:\example.dll" (ByVal IpAddr As String, ByVal UserName As String, ByVal Passwd As String) As Integer

ͬʱ£¬ÎÒ¶¨Òå

Const NULL = 0

È»ºóµ÷Óãº

Dim result As Integer

result = Connect("138.139.0.230", NULL, NULL)

If result <> 0 Then

  MsgBox("error_connect")

  Return

End If

½á¹û×ÜÊDZ¨´í£¬ÇëÎÊÄÄÀï²»¶ÔÄØ£¿


Const NULL = Nothing

±¨´íÐÅÏ¢ÊÇʲô£¿

¿´Ï£º
result = Connect("138.139.0.230", nothing, nothing)


result = Connect("138.139.0.230", String.Empty, String.Empty)£¿

ÓÃnothingÊÔ¹ýÁË£¬»¹ÊDz»ÐУ¬±¨´í¾ÍÊÇ˵ result ²»µÈÓÚ0

½øÈëµ½ MsgBox("error_connect")


String.EmptyÒ²ÊÔ¹ýÁË£¬·µ»ØÖµÒ²·Ç0¡£

°ÑºóÁ½¸ö²ÎÊýµÄByVal¸Ä³ÉByRefÒ²²»ÐС£¡£¡£

result = Connect("138.139.0.230", NULL, NULL)
-----------
Ä㿴һϣ¬Ëü·µ»ØµÄ²»ÊÇ0£¬·µ»ØµÄ¾ßÌåÊǸöʲô¶«Î÷£¿µ÷ÊÔһϻòÕßÖ±½Ó°É½á¹ûMsgBox³öÀ´

·µ»ØµÄ¾ÍÊÇÒ»¸ö¸ºÖµ£º-1071579135

ÎÒÓÃVCдµÄ³ÌÐòµ÷ÓÃÕâ¸öConnectº¯Êý£º

HRESULT result


Ïà¹ØÎÊ´ð£º

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

VB µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......

VBÏÂOCX¿É·ñʵÏÖÈçϹ¦ÄÜ£¿ - VB / ÍøÂç±à³Ì

ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......

VBÈçºÎ»ñµÃ±ðµÄ³ÌÐòÉϵıí¸ñÄÚÈÝ£¿ - VB / API

ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ