以文本方式查看主题

-  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=130178)
--  作者：cd_tdh
--  发布时间：2019/1/15 10:47:00
--  按钮的图标和名称

动态生成的button图标和名称的逻辑入下，为什么效果不是图标在前，后面挨着就是名称

abc.TextImageRelation = TextImageRelationEnum.ImageBeforeText

 

 
图片点击可在新窗口打开查看此主题相关图片如下：22.png
图片点击可在新窗口打开查看

 

 

我需要的效果：

 


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20190115104002.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2019/1/15 11:38:00
--  

我测试没问题

 

Dim lbl As WinForm.button
lbl = Forms("窗口1").CreateControl("lable1", ControlTypeEnum.button)
lbl.Text = "Foxtable"
lbl.Left = 100
lbl.Top = 100
lbl.height = 100
lbl.width = 300
lbl.image = getimage("d:\\test.ico")
lbl.ImageAlign = ContentAlignment.MiddleLeft
lbl.TextAlign = ContentAlignment.MiddleLeft
lbl.TextImageRelation = TextImageRelation.ImageBeforeText
Forms("窗口1").AddControl(lbl)
--  作者：cd_tdh
--  发布时间：2019/1/15 13:47:00
--  
设置标题和图标的相对位置，TextImageRelationEnum枚举，可选值有：

Automatic：      自动
ImageAboveText： 图片在文本之上
ImageBeforeText：图片在文本之前

 

知道问题了，按照帮助里面说的，这样写出来就不对。

lbl.TextImageRelation = TextImageRelationEnum.ImageBeforeText