以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=139847)

--  作者:江南小镇
--  发布时间:2019/8/23 4:01:00
--  [求助]按钮
老师,下面的三个属性怎样设置

Dim r3 As WinForm.Control = Forms("分区面板").Controls("Button" & i)

BottomCenter
TopCenter
相对位置

--  作者:有点蓝
--  发布时间:2019/8/23 8:39:00
--  
没有这种属性,需要设置什么?
--  作者:江南小镇
--  发布时间:2019/8/23 20:10:00
--  
老师,怎样设置按钮的标题靠下、按钮的图标居中。

Dim r3 As WinForm.Control = Forms("分区面板").Controls("Button" & i)

[此贴子已经被作者于2019/8/23 20:10:55编辑过]

--  作者:有点蓝
--  发布时间:2019/8/23 20:28:00
--  
Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1")
btn.ImageAlign = ContentAlignment.MiddleCenter
btn.TextImageRelation = TextImageRelation.ImageAboveText


--  作者:江南小镇
--  发布时间:2019/8/24 15:06:00
--  
老师,我要把窗口按钮都设置成下面的样式。


With e.Form.Controls("Button1")
    .FlatStyle = FlatStyle.flat
    .BackColor = Color.Transparent
    .BorderSize = 0
End With


--  作者:有点蓝
--  发布时间:2019/8/24 15:09:00
--  
http://www.foxtable.com/webhelp/topics/1849.htm
--  作者:江南小镇
--  发布时间:2019/8/24 18:16:00
--  
老师,标出的代码不起作用。


For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Button Then \'判断控件是否是按钮
        Dim t1 As WinForm.Button = c \'使用特定类型的变量引用控件
        t1.ImageAlign =ContentAlignment.BottomCenter
        t1 .FlatStyle = FlatStyle.flat
        t1 .BackColor = Color.Transparent
        t1 .BorderSize = 0       
    End If
Next

--  作者:有点蓝
--  发布时间:2019/8/25 20:37:00
--  
我测试没有问题,上传实例说明