СÎÊÌ⣬VB²Ù×÷APIÏòÆäËü³ÌÐò´°Ìå·¢ËÍÏûÏ¢
·¢ËÍÏûÏ¢µÄʱºò£¬VBÈÝÒ×·ÇÕý³£Í˳ö
ÀýÈ磺WM_KEYDOWN WM_KEYUP
ÊÇVB¹ÌÓеÄȱÏÝ£¿»¹ÊÇÎҵĴúÂë²»ÑϽ÷ÄÇ£¿
ÆäËüÓïÑÔC#ÄܺõãÂð£¿
°Ñ´úÂëÌù³öÀ´¿´¿´°É£¬¿ÉÄÜÊÇÄãµÄ´úÂëÓÐÎÊÌâ
Tag = Form2.List1.List(37)
Call SendMessageLong(Tag, WM_KEYDOWN, VK_SPACE, 0&)
Call SendMessageLong(Tag, WM_KEYUP, VK_SPACE, 0&)
¾ÍÊÇÖ´ÐÐÕ⼸¾ä´úÂëʱVB±ÀÀ£µÄ£¬Tag¾ÍÊÇÁíÍâÒ»¸ö³ÌÐò´°ÌåÉÏÃæµÄÒ»¸ö°´Å¥£¨Button¿Ø¼þ£©£¬TagµÄÖµ¾ÍÊÇ
ÄǸö°´Å¥µÄHwnd(Õâ¸öÖµÊÇÈ·¶¨ÎÞÒÉÕýÈ·µÄ£©£¬Ö´ÐÐÒÔºó°´Å¥Äܹ»½ÓÊܰ´¼üµÄÏìÓ¦¡£
»¹ÐèÒªÆäËû´úÂëÂð£¿
ÌùÍêÕûЩ,°ÑÏàÓ¦µÄAPIº¯ÊýºÍÏûÏ¢ÉùÃ÷Ҳд³öÀ´,¿´¿´ÓÐûÓдí
Çë°Ñ´úÂëÌù³öÀ´´ó¼Ò¿´¿´
°ÑÄãµÄAPIÉùÃ÷ÌùÉÏÀ´°É
------Form1-------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Const BN_CLICKED = 0
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVa
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......