vb shell Ó¦ÓóÌÐò
¾ÍÕâôһ¸öº¯Êý¾Í½â¾öÁËÄÇλÈÊÐÖ3Ìì¶àµÄ¹¤×÷
°¦~£¡Õæ±»Ò»¸öº¯ÊýÍæËÀÁË
ÕâÀï˳±ãÌû³öÀ´°É
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Microsoft.VisualBasic.Shell("\windows\explorer.exe", AppWinStyle.NormalFocus)
End Sub
End Class
×¢£ºÕâ¸öÓ¦¸ÃÔÚ.net3.5ÉÏÃæÅܵÄ,.net2.0ËÆºõÅܲ»ÆðÀ´
Èç¹û½¨Á¢.net2.0¹¤³Ì,ÅÜÆðÀ´»á±¨ÈçÏ´íÎó¡£
δ´¦ÀíµÄ“System.IO.FileNotFoundException”ÀàÐ͵ÄÒì³£³öÏÖÔÚ Microsoft.VisualBasic.dll ÖС£
ÆäËûÐÅÏ¢: File not found.
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/lan120576664/archive/2009/12/15/5010594.aspx
Ïà¹ØÎĵµ£º
ͨ¹ýµ÷ÓÃCreateDataSetfromXmlÈ¡µÃXMLÊý¾Ý
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""
clsPublic ......
Option Explicit
Private rsMain As ADODB.Recordset
Private rsTerm As ADODB.Recordset
Private strSql As String
Private Sub cmdAbout_Click()
frmAbout.Show
End Sub
Private Sub cmdAddObject_Click() '³ÌÐò¶Î
......
ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias ......