VB 常用代码

最新推荐文章于 2021-07-26 18:10:17 发布

jiutao_tang

最新推荐文章于 2021-07-26 18:10:17 发布

阅读量2.9k

点赞数

分类专栏： # VB 编程文章标签： vb webbrowser input dialog windows

本文链接：https://blog.csdn.net/jiutao_tang/article/details/6223361

版权

这篇博客介绍了如何在VB中使用Common Dialog Control 6.0打开文件对话框，设置默认目录和文件过滤器，并读取所选文件内容。

摘要由CSDN通过智能技术生成

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