以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  进度条方向  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105231)
--  作者：y70l12d12
--  发布时间：2017/8/14 23:30:00
--  进度条方向
进度条能不能竖起来
--  作者：有点甜
--  发布时间：2017/8/15 10:15:00
--  

全局代码

 

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

 
--  作者：y70l12d12
--  发布时间：2017/8/16 1:00:00
--  
方向问题解决了，但是引用控制有问题。按照帮助文件引用不了。
--  作者：有点甜
--  发布时间：2017/8/16 8:55:00
--  
以下是引用y70l12d12在2017/8/16 1:00:00的发言：
方向问题解决了，但是引用控制有问题。按照帮助文件引用不了。

 

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")

[此贴子已经被作者于2017/8/16 8:54:48编辑过]
--  作者：bohe
--  发布时间：2017/8/22 19:29:00
--  
甜版，VerticalProgressBar是什么，帮助中找不到，只找到了ProgressBar

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

这种写法帮助中也没找到

好多什么 as new 后面的都不容易找到
--  作者：bohe
--  发布时间：2017/8/22 19:31:00
--  
我想弄个进度条，点击菜单中的命令，执行一系列导入文件操作，想用弹出进度条的方式来显示导入文件个数的，不知如何下手。

帮助中的都是同一窗口的
--  作者：有点蓝
--  发布时间：2017/8/22 20:09:00
--  
这个是自定义的控件，已经超出帮助的范围。

想要做什么，不会就上传实例