怎样做一个打开文件的进度条???
请问:各位专家,我想做vb对CAD进行二次开发,在打开cad文件时,我想做一个打开cad文件的进度条??各位怎么做啊?? --------------------编程问答-------------------- 按读取文件的字节数设进度条?? --------------------编程问答-------------------- 等待牛人来答. --------------------编程问答-------------------- 是的,按读取的字节数设置进度条 --------------------编程问答-------------------- 具体怎么做呀,大虾们有具体代码不 --------------------编程问答-------------------- Dim dr As New StreamReader("文件名")
Dim l As Long = dr.BaseStream.Length
ProgressBar1.Maximum = l
Dim i As Integer
Dim c(l) As Char
For i = 0 To l
Application.DoEvents()
ProgressBar1.Value = i
dr.Read(c, i, 1)
Next
TextBox1.Text = CStr(c)
当然这不是最好的读取文件的方法,具体读取文件方法根据你自己的程序去写吧
补充:VB , 控件