主题：Label 字体颜色的问题

 ElseIf dr("控件类型")="Label" Then

                Dim strFont As String = iif(dr.Isnull("字体"),"宋体",dr("字体"))

                Dim IntFontSize As Integer=iif(dr.Isnull("字体大小"),9,dr("字体大小"))

                Dim fnt As New Font(strFont,IntFontSize ,FontStyle.Bold)

                Dim HuaKj As WinForm.Label = pnl.Form.CreateControl(dr("控件名称") , ControlTypeEnum.Label)

                With HuaKj

                    .BackColor = Color.Transparent

                    .basecontrol.cursor=System.Windows.Forms.Cursors.sizeAll

                    .text = dr("控件标题")

                    .Font=fnt

                    .ForeColor = Color.FromArgb(dr("字体颜色"))

                    .SetBounds(dr("左"),dr("上"),dr("宽"),dr("高"))

                End With

                HuaMenu.AddControl(HuaKj)

                If dr("最底层")=True Then

                    HuaKj.BackMost=True

                End If

                

            End If

这段代码 在某测试窗口里运行是正常的，Label 颜色有根据设置进行修改

但在另外一个窗口里，文字颜色打死都是黑色的，不随设置而改变

几乎同样的设置在设置 按钮控件标签的 文本字体颜色时又是生效的，为这样类似的问题 总是花费不少时间。

不知是何故。

Dim pnl As WinForm.Panel = e.Form.Controls("Panel1")

Dim strFont As String = "宋体"

Dim IntFontSize As Integer= 10

Dim fnt As New Font(strFont,IntFontSize ,FontStyle.Bold)

Dim HuaKj As WinForm.Label = pnl.Form.CreateControl("KJ98888" , ControlTypeEnum.Label)

With HuaKj

    .BackColor = Color.Transparent

    .basecontrol.cursor=System.Windows.Forms.Cursors.sizeAll

    .text = "我的测试文字"

    .Font=fnt

    .ForeColor = Color.FromArgb(-15666)

    .SetBounds(10,30,160,30)

End With

pnl.AddControl(HuaKj)

新建项目 这样用 颜色是可以设置的