- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按钮样式 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141151)
-- 发布时间：2019/9/22 22:15:00
-- [求助]按钮样式
此主题相关图片如下：按钮.png
老师按钮标题怎样更改
For i As Integer = 1 To 5
Dim t2 As WinForm.Button = Forms("动态添加多个面板叠加在一起").Controls("出库" & i)
t2.width = 60
t2.height = 23
t2.Top = 5 + 28 * (i-1)
t2.left = 9
t2.Font = New Font("微软雅体", 9)
t2.VisualStyle = VisualStyleEnum.office2010blue
\'t2.BackColor =Color.DeepPink \'设置背景颜色
e.Form.Controls("销售5").AddControl(t2)
Next
-- 发布时间：2019/9/22 22:24:00
--
http://www.foxtable.com/webhelp/topics/0771.htm
t2.text = “xxxx”
-- 发布时间：2019/9/22 22:36:00
--
老师，我想把面板中的按钮修改成不同的标题。
-- 发布时间：2019/9/22 22:43:00
--
dim str() as string = {"苏州","上海",........}
For i As Integer = 1 To 5
Dim t2 As WinForm.Button = Forms("动态添加多个面板叠加在一起").Controls("出库" & i)
t2.text = str(i-1)
-- 发布时间：2019/9/22 22:54:00
--
谢谢老师
-- 发布时间：2019/9/23 5:17:00
--
老师，怎样给设置不同的图片背景。有两个路径
H:\\管理\\Attachments\\图片
H:\\管理\\Images
For i As Integer = 1 To 5 Dim t2 As WinForm.Button = Forms("动态添加多个面板叠加在一起").Controls("出库" & i) t2.width = 60 t2.height = 23 t2.Top = 5 + 28 * (i-1) e.Form.Controls("销售5").AddControl(t2) Next |
-- 发布时间：2019/9/23 9:04:00
--
http://www.foxtable.com/webhelp/topics/0772.htm
-- 发布时间：2019/9/23 12:17:00
--
老师，我想这样设置。搞不好。
Dim strj() As String = {"数据管理","用户管理","文件管理","斜塘","莲花"}
Dim picnamel() As String = {"1002","1003“...................}
For i As Integer = 1 To 5
Dim t2 As WinForm.Button = Forms("动态添加多个面板叠加在一起").Controls("Button" & i)
t2.text = strj(i-1)
t2.Image = GetImage(ProjectPath & "Attachments\\图片\\" & picnamel(i)& ".jpg")
-- 发布时间：2019/9/23 13:31:00
--
代码没有问题，确保路径和文件是正确的
msgbox(ProjectPath & "Attachments\\图片\\" & picnamel(i)& ".jpg")
-- 发布时间：2019/9/23 14:13:00
--
老师，标出的代码怎样修改。 Dim strj() As String = {"数据管理","用户管理","文件管理","斜塘","莲花"} Dim picnamel() As String = {"1002","1003“...................} For i As Integer = 1 To 5 Dim t2 As WinForm.Button = Forms("动态添加多个面板叠加在一起").Controls("Button" & i) t2.text = strj(i-1) t2.text = picnamel(i-1) t2.Image = GetImage(ProjectPath & "Attachments\\图片\\" & picnamel(i)& ".jpg") |
[此贴子已经被作者于2019/9/23 14:13:37编辑过]