vbÖÐÈçºÎͨ¹ý°´¼ü»Ö¸´ÒѾ×îС»¯µÄ´°¿Úµ½×î´ó»¯
ÓÃvbдÁËÁ½¸öÒ»ÑùµÄÈí¼þ£¬Æ½Ê±Ö»ÐèÒª¿ªÒ»¸öÈí¼þ£¬ÁíÒ»¸öÈí¼þÊÇ×îС»¯×´Ì¬£¬Ò²¾ÍÊÇËõСµ½ÈÎÎñÀ¸£¬ÎÒÏëͨ¹ýµãÒ»¸öÈí¼þÉϵİ´¼ü¿ÉÒÔ½«ÁíÒ»¸ö×îС»¯µ½ÈÎÎñÀ¸µÄÈí¼þ½çÃæ»Ö¸´µ½×î´ó»¯£¬Èç´Ë¿É·´¸´Çл»£¬²»ÖªµÀ¸ÃÈçºÎд´úÂëÄØ£¿ Ò²¾ÍÊÇ˵ʡȥÁËÓÃÊó±ê·Ö±ðµã»÷×îС»¯µ½ÈÎÎñÀ¸µÄÈí¼þ¡£
Õâ¸öÓ¦¸ÃÓÃapiÁË£¬ËÑË÷һϰÉ
¶Ô,ÏÈFindWindow,ÔÙShowWindow
Èç¹ûÓà windowstate¿ÉÒÔô£¿
DDE¹¤³Ì¼äÊý¾ÝͨÐÅhttp://download.csdn.net/source/1740629
"Èç¹ûÓà windowstate¿ÉÒÔô£¿"
ÕâÖ»ÊÇVB6×Ô¼ºµÄFormµÄÊôÐÔ°É,¶øÄãÒª¿ç½ø³Ì²Ù×÷:¿´ÕâÁ½¸öAPIµÄ°ïÖúºÍʾÀý°É,ºÜÈÝÒ×µÄ
http://allapi.mentalis.org/apilist/FindWindow.shtml
http://allapi.mentalis.org/apilist/ShowWindow.shtml
VB code:
Option Explicit
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMINIMIZED As Long = 2&
Private Const SW_SHOWMAXIMIZED As Long = 3&
Private Const SW_SHOWNORMAL As Long = 1&
'×î´ó»¯
Private Sub Command1_Click()
Call ShowWindow(Form1.hwnd, SW_SHOWMAXIMIZED)
End Sub
'×îС»¯
Private Sub Command2_Click()
Call ShowWindow(Form1.hwnd, SW_SHOWMINIMIZED)
End Sub
'»Ö¸´´°¿ÚÔÀ´´óС
Private Sub Command3_Click()
Call ShowWindow(Form1.hwnd, SW_SHOWNORMAL)
End Sub
¶÷ Èç¹ûÎÒ°ÑÕâÁ½¸öÈí¼þºÏÔÚÒ»¸ö¹¤³ÌÀïÊÇ·ñ¾Í¿ÉÒÔÁËÄØ£¿ ÒòΪvb½Ó´¥µÄ²»¶à AP
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......