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

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 - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vb - VB / »ù´¡Àà

vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

VBÌîÐ´ÍøÒ³Îı¾Çø - VB / »ù´¡Àà

ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ