主题：图标和控件名的相对位置

老师，动态生成的控件，设置了图标和控件名的位置及相对位置，为什么相对位置不对呢

 

此主题相关图片如下：qq截图20210823102433.jpg

 

    For Each aj2 As DataRow In ajm
        Dim aj As String = aj2("名称")
        Dim jpg As String = aj2("图标")
        Dim hsmc As String = "a" & aj2("分组") & aj & aj2("序号")
       
        If hsdms.ContainsKey(hsmc)=False Then
            hsdms.add(hsmc,aj2("代码"))
        End If
        Dim abc As WinForm.Button
        abc=frm.CreateControl(hsmc,ControlTypeEnum.button)
        abc.Text=aj
        abc.Dock= 1 '锚定
        abc.Height= 25 '页面高度
        abc.Image=GetImage(jpg)  '图标

        abc.TextAlign =  ContentAlignment.MiddleLeft  '文本位置
        abc.ImageAlign = ContentAlignment.MiddleLeft  '图标位置
        abc.TextImageRelation = TextImageRelationEnum.ImageBeforeText 'Automatic图标相对位置,图标在文本之前
        abc.VisualStyle= IVisualStyle.Office2010Blue  '主题
        frm.AddControl(abc)
        o.Pages(za).controls.add(Forms("左导航").Controls(hsmc).basecontrol)
    Next
Next

 

http://www.foxtable.com/webhelp/topics/1857.htm

abc.TextImageRelation = TextImageRelation.ImageBeforeText