1. 打開文件對話框

工程-->部件-->Microsoft Common Dialog Control 6.0

ImportDialog.InitDir = App.Path '默認打開目錄

ImportDialog.Filter = "文本文件(*.txt)|*.txt|數(shù)據(jù)文件(*.dat)|*.dat" '文件過濾器

ImportDialog.ShowOpen '打開對話框

If Not Len(ImportDialog.FileName) = 0 Then

Open ImportDialog.FileName For Input As #1

Do Until EOF(1)

Line Input #1,newURL

Loop

Close #1

End If

2.回車換行符

vbCrLf 是VB回車換行符

chr(10) & chr(13)

用 vbCrLf 會空出一行，用chr(13)就正好

3. 數(shù)組長度

用ubound()函數(shù)知道數(shù)組的上限，lbound()函數(shù)知道數(shù)組的下限，ubound()-lbound()+1就是數(shù)組元素的個數(shù)

例如：

dim a(10) as long

dim nLen as long

nLen = ubound(a) - lbound(a) + 1 '這里上限是10，下限是0，結(jié)果是11

4. WebBrowser控件下載進度條

進度條ProgressBar控件：工程-部件-MicroSoft Windows Common Controls 6.0

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long,ByVal ProgressMax As Long)

If ProgressMax = 0 Then Exit Sub

ProgressBar1.Max = ProgressMax

If Progress <> -1 And Progress <= ProgressMax Then

ProgressBar1.Value = Progress

End If

End Sub

總結(jié)

以上是編程之家為你收集整理的VB 常用代碼全部內(nèi)容，希望文章能夠幫你解決VB 常用代碼所遇到的程序開發(fā)問題。

如果覺得編程之家網(wǎng)站內(nèi)容還不錯，歡迎將編程之家網(wǎng)站推薦給程序員好友。

本圖文內(nèi)容來源于網(wǎng)友網(wǎng)絡(luò)收集整理提供，作為學習參考使用，版權(quán)屬于原作者。

總結(jié)

以上是生活随笔為你收集整理的用数组编程计算机的vb代码,VB 常用代码的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。