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

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

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

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

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

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

¿´¿´i ......

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

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

ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ