VB¼ÓÔØDLLÖÐÓöµ½µÄÎÊÌâ - VB / API
ÎÒÓÃVB¼ÓÔØÒ»¸öDLL£¬ÔÚ¡°¹¤³Ì==¡µÒýÓá±ÒýÓÃÕâ¸öDLLµÄʱºò£¬ÏÔʾ¸ÃDLL²»ÄܼÓÔØcould not be loaded
Èç¹ûÖ±½ÓÔËÐÐPrivate Declare Function RDBPointQuery Lib "C:\WINDOWS\system32\MACSVIDBCom.dll" (ByVal pQueryFlag As PointQueryFlag, ByRef lPNum As Long, ByRef PNameArr() As String_struct, ByVal lDomainNo As Long) As Long
Ôò»á±¨±àÒë³ö´í£º'user-defined type not defined',ÇëÎÊÊÇʲôÔÒò£¿
´íÎóÊÇ£ºÓû§¶¨ÒåÀàÐÍ䶨Òå¡£
dll²»ÄÜÒýÓã¬ÕâºÜÕý³££¬±íʾ¸ÃDLLÓпÉÄÜÊDZê×¼µÄ£¬²»Í¨Í¨¹ýÒýÓõ÷Óã¬Ö»ÄÜͨ¹ýDeclareÉùÃ÷µ÷Óá£
±àÒë³ö´íµÄÔÒòÓпÉÄÜÊÇÀàÐÍPointQueryFlag¡¢String_structûÓж¨Òå¡£»¹ÓÐÄãÄÇЩByVal,ByRefÒªÕå×Ãһϡ£
PointQueryFlag¡¢String_struct¿ÉÄÜÐèÒª×Ô¼º¶¨Òåһϣ¬ÄãÐèÒª²éÕÒÒ»ÏÂÀïÃæ°üº¬ÄÄЩÊý¾ÝÀàÐÍ£¬È»ºóÀàËÆÏÂÃæ·½·¨¶¨Ò壺
Public Type PointQueryFlag
a As Integer
b As Integer
rcv_dg_outstanding As Integer
rcv_any_outstanding As Integer
End Type
Óû§ÀàÐͶ¨ÒåµÄÎÊÌâ½â¾öÁË£¬Ð»Ð»Á½Î»¡£È»ºóÎÒÔËÐÐÒÔÏ´úÂëʱ
--------------------------------------
Private Sub Command1_Click()
Dim pQueryFlag As pointqueryflag
Dim lPNum As Long
Dim PNameArr(10) As String_struct
Dim PointNam(10) As String_struct
pQueryFlag.BSDes = ""
pQueryFlag.BSPTypeName = ""
pQueryFlag.lQueryFlag = 0
pQueryFlag.lStationNo = 0
Dim ret As Long '
ret = RDBObj.RDBPointQuery(pQueryFlag, lPNum, PNameArr, 0)
If ret = 0 Then
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......