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

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


Ïà¹ØÎĵµ£º

VB.NET2005¶ÁÈ¡XMLÊý¾Ý

ͨ¹ýµ÷ÓÃ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 ......

Çó×¢ÊÍVB³ÌÐò£¬Ö»Òª´ó¸ÅÕû¾äÒâ˼¼´¿É£¬¼±Óã¡£¡£¡

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ÓëWindows API½²×ù(¶þ) өĻץȡÓëÓ©Ä»±£»¤³Ìʽ

ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾Ô­ÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......

VB¿ª»úÔËÐгÌÐò

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ