这里我们不用控件，就用API就可以做到： '获取源码开始 Private Declare Function InternetOpen Lib wininet.dll Alias InternetOpenA (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long Private

Public Function getTopURL(url As String) As String '从URL得到顶级域名 ''判断有没有http:// If InStr(url, http://) 0 Then url = Mid(url, Len(http://) + 1) End If ''从第一个/前截取 If InStr(url, /) 0 Then Dim tempI As Integer tempI = InStr(url, /

看到网上很多关机的代码，大多是用API，但我试用发现用API关机有时候不成功，后来只有自己改用CMD命令来做到这点了，相比API，CMD关机有以下优点：不用链接API和CMD可以指定时间关机，示例代码如下： Private Sub Command1_Click() Shell shutdown -l '-l 是shutdown 的一个参数 意思是注销用户 End Sub Private Sub Comman

Private Declare Function DeleteMenu Lib user32 (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Declare Function GetMenuItemCount Lib user32 (ByVal hMenu As Long) As Long Private Const MF_BYPOSITION = H400 Private

frmmain.frm Private Sub cmdBrowse_Click() Dim strResFolder As String strResFolder = BrowseForFolder(hWnd, 请选择一个目录.) If strResFolder = Then Call MsgBox(The Cancel button was pressed., vbExclamation) Else Call MsgBox(目录 strResFolder 被选择., vbExclamation

WAV 文件基本信息包括如是否立体声，采样频率等。 声明： Public Const RIFF_ID = 1179011410 Public Const RIFF_WAVE = 1163280727 Public Const RIFF_FMT = 544501094 Public Type WAVInfo Riff_Format As Long chunk_size As Long ChunkID As Long fmt As Long Wave_Format As Integer Channe

以下代码设定后，原则上，下一次开机会还原，但如果需重开机，才会Update Registry中的设定，并重开机。 　　如果要永久设定其设定值，请将 b = ChangeDisplaySettings(DevM, 0) 　　改成 b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) 　　注： 　　DevM.dmBitsPerPel 便是设定颜色数，其实应说每个Pixel要多少Bit

Public Function MakeDir(Path As String) As Boolean On Error Resume Next Dim o_strRet As String Dim o_intItems As Integer Dim o_vntItem As Variant Dim o_strItems() As String o_strItems() = Split(Path, \) o_intItems = 0 For Each o_vntItem In o_strItems