Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / »ù´¡Àà

Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ

ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......

ÖÐɽµÄVB³ÌÐòÔ±½øÀ´¿´Ò»Ï - VB / ·Ç¼¼ÊõÀà

¸Õ½¨ÁËÒ»¸öȺ:ÖÐɽVB±à³Ì(105787219)
ÓÐÔÚÖÐɽ¼°ÖÐɽÖܱߵijÌÐòÔ±Çë¼ÓÈë.´ó¼ÒÒ»Æð̽ÌÖÎÊÌâ.ºÏ×÷ÏîÄ¿.
¾¡¹Ü°³²»ÊÇÖÐɽµÄ£¬Ò²½øÀ´²ä·Ö¡­¡­

·ðɽµÄÐÐÂð,¹ãÖݵÄÐÐÂð?

ÓÑÇéÖ§³Ö
»Ø¸´ÄÚÈÝÌ«¶ÌÁË£¡ 

°ï¶¥ ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......

vb activex ´«µÝ²ÎÊý - VB / COM/DCOM/COM+

ÎÒÓÃVBдÁËÒ»¸öactivex£¬ÏÖÔÚÏëÔÚjsÀïÃæÏòactivex´«Öµ£¬Ð´ÁËÒ»¸öpublic·½·¨²»ÐУ¬Ð´ÁËÒ»¸öÊôÐÔÒ²²»ÐУ¬Çë¸ßÊÖÖ¸µã£¬ÔÚÏߵȺò,´úÂëÈçÏÂ
±äÁ¿ÉùÃ÷
Dim dirName As String = ""
·½·¨
Public Sub UrlName( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ