1. 打开文件对话框
工程-->部件-->Microsoft Common Dialog Control 6.0
ImportDialog.InitDir = App.Path '默认打开目录
ImportDialog.Filter = "文本文件(*.txt)|*.txt|数据文件(*.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. 数组长度
用ubound()函数知道数组的上限,lbound()函数知道数组的下限,ubound()-lbound()+1就是数组元素的个数
例如:
dim a(10) as long
dim nLen as long
nLen = ubound(a) - lbound(a) + 1 '这里上限是10,下限是0,结果是11
4. WebBrowser控件下载进度条
进度条ProgressBar控件:工程-部件-Mi