关于动态添加控件的Font属性问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于动态添加控件的Font属性问题

共有3943人关注过本帖树形打印复制链接主题：关于动态添加控件的Font属性问题

jiangxun

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：876 积分：5929 威望：0 精华：0 注册：2014/8/3 12:15:00

关于动态添加控件的Font属性问题 发帖心情

Post By：2015/1/5 23:51:00 [显示全部帖子]

                    If (dr("_FontName") Or dr("_FontSize") Or dr("_FontStyle")) Is Nothing Then
                    Dim fnt As New font("宋体",9,FontStyle.Regular)
                    ctl_Label.Font = fnt
                    Else
                    ctl_Label.Font("""" & dr("_FontName") & """",dr("_FontSize"),dr("_FontStyle"))
                    End If
执行后系统提示：

“从字符串“宋体”到类型“Long”的转换无效。”，请求帮助

jiangxun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：876 积分：5929 威望：0 精华：0 注册：2014/8/3 12:15:00

Post By：2015/1/6 15:43:00 [显示全部帖子]

dr("_FontSize") 的值为--宋体 dr("_FontStyle") 的值为fontstyle.regular

jiangxun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：876 积分：5929 威望：0 精华：0 注册：2014/8/3 12:15:00

Post By：2015/1/6 15:54:00 [显示全部帖子]

Dim fnt As Object

                    If dr.IsNull("_FontName") OrElse dr.IsNull("_FontSize") OrElse dr.Isnull("_FontSize") Then
                    fnt.name ="宋体"
                    fnt.Size = 9
                    fnt.FontStyle = FontStyle.Regular
                    ctl_Label.Font = fnt
                    Else
                    fnt.name =dr("_FontName")
                    fnt.Size = dr("_FontSize")
                    fnt.FontStyle = dr("_FontStyle")

ctl_Label.Font = fnt
End If

错误提示：未设置对象变量或With块变量