vbµ÷ÓÃapi º¯ÊýÉùÃ÷¼°ÒýÓÃÎÊÌ⣬
ÓÐ1 APIº¯Êý˵Ã÷ÎĵµÈçÏ£º
APIº¯Êý£ºbool ReadPathData(WORD AShortID, BYTE ATrackID, float * Buffer,int Index,
Int Num,int * NumReaded);
²ÎÊý˵Ã÷£º
AShortID: É豸ID
ATrackID: ͨµÀID,´Ó0 ¿ªÊ¼¼ÆÊý
Buffer: Ö¸Ïòµ¥¾«¶È¸¡µãÊýµÄÖ¸Õë
Index: ¸ÃͨµÀ³¬Ê¼Î»Öã¬-1 ±íʾ´Ó¶ÓÁÐÖÐĩβÍùǰȡÊý
Num:µãÊýÁ¿
NumReaded:ʵ¼Ê¶ÁÈ¡µãÊýÁ¿
·µ»ØÖµ£º ³É¹¦·µ»Ø TRUE
ʧ°Ü·µ»Ø FALSE
ÔÚÄ£¿éÖÐÉùÃ÷Óï¾ä£¨ÎÒ×Ô¼ºÐ´µÄ¿ÉÄÜÓеãÎÊÌ⣩£º
Declare Function ReadPathData Lib "D:\BeeDataDll\BeeDataComm.dll" (ByVal NODEID As Integer, ByVal ChanNum As Byte, ByRef Buffer As Single, ByVal index As Long, ByVal Num As Long, ByRef NumReaded As Long) As Boolean
ÎÒÏëÖªµÀÕýÈ·µÄÄ£¿éÉùÃ÷Óï¾ä£¬¼°ÔÚÔËÐÐÖе÷ÓÃÎÊÌâ¡£
Íû¸ßÊÖÖ¸½Ì¡£Ð»Ð»¡£
Ä£¿éÖÐ
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
´°ÌåÖе÷ÓÃ
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
Ö¸Ïòµ¥¾«¶È¸¡µãÊýµÄÖ¸ÕëÒª¶¨Òå³ÉLongÐÍ
ÎÒÏëÖªµÀ¾ßÌåµÄ Õë¶ÔÓÚÕâ¸öº¯Êý ÎÒÔõôÓÃ
Ò»Åöµ½Ö¸ÕëÎÒ¾ÍÃÉ
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......