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

VBÖÐShellºÍShellExecuteº¯ÊýµÄʹÓ÷½·¨ºÍÇø±ð

 Ð´ÁËÒ»¸övbµÄ³ÌÐò£¬ÓÃÀ´°ÑÔ­À´Ð´µÄ¼¸¸övbºÍvcµÄ³ÌÐòÕûºÏÆðÀ´¡£¾ÍÊÇʹÓÃShellº¯Êý¡£½á¹û·¢ÏÖ£¬vcµÄ³ÌÐò¿ÉÒԺܺõÄÏÔʾ£¬µ«vbдµÄÈ´Ò»ÔËÐоÍ×îС»¯ÁË¡£×Ðϸ²é¿´ÁËÒ»ÏÂÒÔÏÂÎÄÕ£¬²Å·¢ÏÖÔ­À´shellº¯ÊýµÄĬÈÏÏÔʾģʽÊÇwindowstyleÊǵÈÓÚvbMinimizedFocus¡£È»ºó¾ÍÊÇÖ±½Ó¼ÓÉÏÒ»¸övbNormalFocus¡£Ò»ÇÐok!  
vbµÄshellº¯ÊýÓ÷¨£º 
¹¦ÄÜ£ºÖ´ÐÐÒ»¸ö¿ÉÖ´ÐÐÎļþ£¬·µ»ØÒ»¸ö Variant (Double)£¬Èç¹û³É¹¦µÄ»°£¬´ú±íÕâ¸ö³ÌÐòµÄÈÎÎñ ID£¬Èô²»³É¹¦£¬Ôò»á·µ»Ø 0¡£ 
Óï·¨£ºShell(pathname[,windowstyle]) 
Shell º¯ÊýµÄÓï·¨º¬ÓÐÏÂÃæÕâЩÃüÃû²ÎÊý£º 
pathname ±ØÒª²ÎÊý¡£Variant (String)£¬ÒªÖ´ÐеijÌÐòÃû£¬ÒÔ¼°ÈκαØÐèµÄ²ÎÊý»òÃüÁîÐбäÁ¿£¬¿ÉÄÜ»¹°üÀ¨Ä¿Â¼»òÎļþ¼Ð£¬ÒÔ¼°Çý¶¯Æ÷¡£ 
Windowstyle ¿ÉÑ¡²ÎÊý¡£Variant (Integer)£¬±íʾÔÚ³ÌÐòÔËÐÐʱ´°¿ÚµÄÑùʽ¡£Èç¹û windowstyle Ê¡ÂÔ£¬Ôò³ÌÐòÊÇÒÔ¾ßÓн¹µãµÄ×îС»¯´°¿ÚÀ´Ö´Ðеġ£ 
shellExecuteº¯Êý£º 
     ÆäÓ÷¨½ÏΪ¸´ÔÓ£¬µ«Êǹ¦Äܸü¼ÓÇ¿´ó¡£
     HINSTANCE ShellExecute(
      HWND hwnd,           '¸¸´°¿Ú¾ä±ú
      LPCTSTR lpOperation,   '²Ù×÷»ò´ò¿ª·½Ê½ "edit","explore","open","find","print","NULL"
      LPCTSTR lpFile,         'ÎļþÃû,Ç°Ãæ¿É¼Ó·¾¶
      LPCTSTR lpParameters,   '²ÎÊý
      LPCTSTR lpDirectory,    'ĬÈÏÎļþ¼Ð
      INT nShowCmd          'ÏÔʾ·½Ê½
);
ShellExecuteµÄ¹¦ÄÜÊÇÔËÐÐÒ»¸öÍⲿ³ÌÐò 
£¨»òÕßÊÇ´ò¿ªÒ»¸öÒÑ×¢²áµÄÎļþ¡¢´ò¿ªÒ»¸öĿ¼¡¢´òÓ¡Ò»¸öÎļþµÈµÈ£©£¬ 
²¢¶ÔÍⲿ³ÌÐòÓÐÒ»¶¨µÄ¿ØÖÆ¡£shellº¯ÊýÔÚÕâ¸ö·½ÃæÏÈÏà¶Ô½ÏÈõ£¬ 
ÔÚ´ó¶àÊýÇé¿öÏÂShellExecuteÊǸü¶àµÄ±»Ê¹Óõģ¬
 
¡¡lR = ShellExecute(Me.hWnd, "Open", sFile, "", "", vbNormalFocus)
¡¡If (lR < 0) Or (lR > 32) Then
¡¡¡¡ ' ³É¹¦
¡¡Else
¡¡¡¡MsgBox "ÎÞ


Ïà¹ØÎĵµ£º

VB ¸ßËÙ±éÀú×¢²á±í

 Option Explicit
Private Type UNICODE_STRING
    Length As Integer
    MaximumLength As Integer
    Buffer As Long
End Type
Private Type OBJECT_ATTRIBUTES
    Length As Long
    RootDirectory As Long
   ......

VBÓÃCOM¿Ú·¢WAPPUSH,·µ»Ø+CMS ERROR: 500

 ¸ø³ö´úÂëÈçÏÂ:
Type WAPPushPDUStruct
    SMSCLen As String
    SMSCType As String
    SMSC As String
    PROTOCOL As String
    TPMRBase As String
    RePhoneNumLen As String
    ReP ......

dzÒé·ÇAccessÊý¾Ý¿âÔÚVBÖеıà³Ì¼°Ó¦ÓÃ

Visual BasicÓÐ×ÅÇ¿´óµÄÊý¾Ý¿â´æÈ¡ÄÜÁ¦£¬²»½öÄܹ»Ö±½ÓÖ§³ÖMs AccessÊý¾Ý¿â£¬¶øÇÒͨ¹ýÆäÄÚ²¿°²×°µÄISAMÇý¶¯³ÌÐòʹËüÄܼä½ÓÖ§³ÖFoxPro¡¢dBASEµÈÍâÀ´Êý¾Ý¿â¡£±¾ÎIJ»½ö´ÓVBÊý¾Ý¿âÌåϵ½á¹¹µÄ½Ç¶È̽Ë÷ÁËVB¶ÔÕâЩÍâÀ´Êý¾Ý¿âµÄÖ§³Ö£¬»¹½áºÏÁËһЩʵÀý¾ßÌå²ûÊöÁËʹÓÃÊý¾Ý¿â´æÈ¡¶ÔÏó±äÁ¿µÄ·½·¨ÊµÏÖÕâЩÍâÀ´Êý¾Ý¿âµÄн¨¡¢¿â½á¹¹Ð޸ġ¢ ......

vbʵÏÖĿ¼ÏÂËùÓÐÎļþÃûĿ¼Ãû³ÆµÄ»ñÈ¡

 Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñȡһÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾ­ÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......

VB.NETѹËõACCESSÊý¾Ý¿â

'´´½¨Êý¾Ý¿â
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ­´æÔÚ£¬ÎÞ·¨´´½¨")
        ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ