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 "ÎÞ
    
     
	
	
    
    
	Ïà¹ØÎĵµ£º
        
    
    VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Reg Demo"
   ClientHeight    =   6570
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7695
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   Min ......
	
    
        
    
    ½ÌÄãÈçºÎÓÃVB×ö¿Ø¼þ*.ocx 
Ò»¸ö¿Ø¼þÓкܶàʼþÈ磺Click¡¢MouseDown¡¢MouseUp¡¢MouseMoveµÈ¡£Òª´¥·¢ÕâЩʼþ¶¼ÐèÒªÄã¼ÓÈë´úÂë¡£ÔڿؼþµÄÉùÃ÷´¦¼ÓÈëPublic Event Click()¾Í±íÃ÷¸Ã¿Ø¼þÓÐÒ»“Click”ʼþ¡£×Ô¼º±àдµÄ¿Ø¼þÓÐʲôʼþ¾ÍÔÚÉùÃ÷´¦¼Ó¼¸Ìõʼþ 
Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOC ......
	
    
        
    
    Dim ReturnValue, I 
ReturnValue = Shell("Calc.EXE", 1) ' ÔËÐмÆËãÆ÷¡£ 
AppActivate ReturnValue ' ¼¤»î¼ÆËãÆ÷¡£ 
For I = 1 To 100 ' ÉèÖüÆÊýÑ»·¡£ 
SendKeys I & "{+}", True ' °´Ï°´¼ü¸ø¼ÆËãÆ÷ 
Next I ' ½«ËùÓÐ I ÖµÏà¼Ó¡£ 
SendKeys "=", True ' È¡µÃ×ܺϡ£ 
SendKeys "%{F4}", True ' °´ ALT+F4 ¹Ø ......
	
    
        
    
    Ê®Ììѧ»áASP.net֮ʵսϵÁУ¨C#ºÍVb.netË«°æ±¾£©
µÚÒ»Ìì
  ÎÒÈÏΪASP.NET±ÈASPÄѺܶ࣬ϣÍû´ó¼Ò×öºÃ×¼±¸¡£ÄÑÄÑÔÚʵÏÖͬһ¸öЧ¹ûÓкܶ෽·¨£¬´ó¼Ò»òÐí»áÒÉ»ó¡£Ê®Ììѧ»áϵÁн̳̻áÇåÎúµÄд³ö¸÷ÖÖ·½·¨£¬Èôó¼ÒÄÜÉÙÒ»µã¿²¿À¡£ÔÚASPÀïÃæ£¬´ó¼Ò¼¸ºõ¶¼ÊÇʹÓÃVB£¬Êý¾Ý¿âÂҲÎÞ·ÇÊÇSQLºÍACCESS¡£ÔÚASP.NETÀïÃæ£¬Êý¾Ý¿â»¹ÊÇÕ ......
	
    
        
    
    '´´½¨Êý¾Ý¿â
  Private Sub Create(ByVal mdbPath As String)
        If File.Exists(mdbPath) Then
            Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
        ......