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

СÎÊÌ⣬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


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

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

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

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

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

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ