用数组编程计算机的vb代码,VB 常用代码

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控件：工程-部件-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

总结

以上是编程之家为你收集整理的VB 常用代码全部内容，希望文章能够帮你解决VB 常用代码所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。