主题：进度条方向

全局代码

 

Public Class VerticalProgressBar
 Inherits Windows.Forms.ProgressBar
 Protected Overrides ReadOnly Property CreateParams() As Windows.Forms.CreateParams
  Get
   Dim cp As Windows.Forms.CreateParams = MyBase.CreateParams
   cp.Style = cp.Style Or &H4
   Return cp
  End Get
 End Property
End Class

 

afterLoad事件代码

 

Dim p As new VerticalProgressBar
p.visible = True
p.Maximum = 10
p.Minimum = 0 '设置最小值
p.Value = 5 '设置当前值
p.width = 50
p.height = 100
e.Form.controls("panel1").basecontrol.controls.add(p)

 

其余代码不变 http://www.foxtable.com/webhelp/scr/0793.htm

 

方向问题解决了，但是引用控制有问题。按照帮助文件引用不了。

 

Dim p As new VerticalProgressBar
p.name = "aaa"

 

这样引用

 

dim p = e.Form.controls("panel1").basecontrol.Controls(0)

 

dim p = e.Form.controls("panel1").basecontrol.Controls("aaa")

甜版，VerticalProgressBar是什么，帮助中找不到，只找到了ProgressBar

我想弄个进度条，点击菜单中的命令，执行一系列导入文件操作，想用弹出进度条的方式来显示导入文件个数的，不知如何下手。

这个是自定义的控件，已经超出帮助的范围。