之前我一个VB的视频教程都没有看过，便开发出来了一个对我实用的功能，这因为VB与ASP是相通的，这里我收藏了部分代码，供我以后再次使用。

VB链接数据库

Set conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/database.mdb" '连接这个数据库，也就是VB程序目录下的database.mdb
conn.open Connstr
Text1.Text = conn.execute("select top 1 id from data order by id desc")(0) '取值并赋值给text控件

VB内嵌网页

一、内嵌外部网页

首先画一个WebBrowser1控件，然后在Form_Load里加上

WebBrowser1.Navigate "
http://www.baidu.com
"

打开程序就自动加载这个网页了。

二，内嵌构造网页

同样是一个WebBrowser1控件，不同的是，你要在程序内部构造HTML代码并且赋值给它，代码如下

str = "1234"
WebBrowser1.Document.write str

打开程序，控件内就显示1234，当然str可以赋值HTML代码。

VB内播放声音

主要用于一些提示，比如说跟迅雷一样，下载完毕后播放一点东西

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub PlayWavFile(strFileName As String, PlayCount As Long, JianGe As Long)
'strFileName 要播放的文件名(带路径)
'playCount 播放的次数
'JianGe 多次播放时,每次的时间间隔
If Len(Dir(strFileName)) = 0 Then Exit Sub
If PlayCount = 0 Then Exit Sub
If JianGe < 1000 Then JianGe = 1000
DoEvents
sndPlaySound strFileName, 16 + 1
Sleep JianGe
Call PlayWavFile(strFileName, PlayCount - 1, JianGe)
End Sub

以上是过程名，调用方法

PlayWavFile "" & App.Path & "/Global.wav", 1, 1000

播放程序目录下的Global.wav 1秒

VB截取网页代码

可以用WebBrowser1显示网页后再读取它的代码，但我这里不这样做，因为比较耗资源，可以用XMLHTTP获取网页，方法如下

Private Function getHtmlStr(strUrl As String) As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.open "GET", strUrl, False
    XmlHttp.send
    getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
    Set XmlHttp = Nothing
End Function

调用方法getHtmlStr(http://www.chenweixiang.com)

VB正则表达式截取网页内部分内容

strData = getHtmlStr("http://www.baidu.com")
    'RichTextBox1.Text = strData
    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "这里写正则表达式"
    Set matchs = reg.execute(strData)
    For Each match In matchs
    Debug.Print num
    Debug.Print match.Value '全部匹配
    Debug.Print match.SubMatches(0), match.SubMatches(1), match.SubMatches(2) '只匹配()括号内的东西
    Next

下次再继续分享。