以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于标签的循环移动  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=100154)
--  作者：10059
--  发布时间：2017/5/5 16:35:00
--  关于标签的循环移动
老师，我想在面板中放几个标签，让标签在面板中循环移动，请问是否可以实现？？
--  作者：有点色
--  发布时间：2017/5/5 16:52:00
--  

TimerTick事件

 

Dim lbl As WinForm.Label = e.Form.Controls("Label1")
If lbl.left+lbl.width > 0 Then
    lbl.left -= 10
Else
    lbl.left = e.form.Controls("panel1").width
End If

 

http://www.foxtable.com/webhelp/scr/1301.htm

 
--  作者：10059
--  发布时间：2017/5/5 17:03:00
--  
谢谢了
--  作者：10059
--  发布时间：2017/5/8 9:11:00
--  
老师，我想问一下left，width等这些属性帮助里都没有，在哪里可以查到，或者是在命令窗口执行什么代码可以查到？？谢谢
--  作者：有点色
--  发布时间：2017/5/8 9:32:00
--  

如果要得到属性方法，这样写

 

Dim o = Forms("窗口1")

For Each c As object In o.Gettype.getproperties
    output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
    output.show(c.name)
Next

 

或者去查msdn https://msdn.microsoft.com/zh-cn/library/system.windows.forms.form_members(v=vs.80).aspx

 
--  作者：10059
--  发布时间：2017/5/8 10:00:00
--  
好的，谢谢老师