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µÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖظ´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......
ÄÚÈÝÌáÒªÕªÒª£º The software of visual basic developed by Microsoft corporation is becoming one of the main develop tools at today¡£ As it's remarkable peculiarity, the Grid control has very great practical and active use¡£ This topic discusses how to use the grid control of VB to develop prati ......
ÔÚVBÖÐÒªÏëµ÷ÓÃExcel£¬ÐèÒª´ò¿ªVB±à³Ì»·¾³“¹¤³Ì”²Ëµ¥ÖеēÒýÓÔÏîÄ¿£¬²¢Ñ¡È¡ÏîÄ¿ÖеēMicrosoft Excel 11.0 object library”Ïî¡£ÓÉÓÚÄãµÄExcel°æ±¾²»Í¬£¬ËùÒÔÕâ¸öÑ¡ÏîµÄ°æ±¾ºÅÒ²ÊDz»Í¬µÄ¡£
ÒòΪEXCELÊÇÒÔ²ã´Î½á¹¹×éÖ¯¶ÔÏóµÄ£¬Æä¶ÔÏóÄ£ÐÍÖк¬ÓÐÐí¶à²»Í¬µÄ¶ÔÏóÔªËØ¡£
&n ......
C#×Ô¼ºÃ»ÓÐInputboxÕâ¸öÀ࣬µ«ÊÇInputboxÒ²ÂùºÃÓõģ¬ËùÒÔÓÐÁ½ÖÖ·½·¨¿ÉÒÔʹÓÃ
Ò»£º.¼ä½Óµ÷ÓÃvbÖеÄInputbox¹¦ÄÜ
1¡£ÔÚÏîÄ¿ÖÐÌí¼Ó¶ÔMicrosoft.VisualBasicÒýÓÃ
2¡£ÔÚÏîÄ¿ÖÐÌí¼ÓÃüÃû¿Õ¼äUsing Microsoft.VisualBasic;
&n ......
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
......