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

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

共有3712人关注过本帖树形打印复制链接主题：关于动态添加控件的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”的转换无效。”，请求帮助

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/6 8:07:00 [只看该作者]

弹出一下 dr("_FontSize") 看看另外 dr("_FontStyle") 的值可能也不对.

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/1/6 9:14:00 [只看该作者]

这句，你想表达什么？

If (dr("_FontName") Or dr("_FontSize") Or dr("_FontStyle")) Is Nothing Then

判断是否为空这样写

If dr.IsNull("_FontName") OrElse dr.IsNull("_FontSize") Then

jiangxun

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/1/6 15:45:00 [只看该作者]

dr("_FontSize") 的值为--宋体这个应该是字体大小应该是数值类型, 这时候当然会报错

dr("_FontStyle") 的值为fontstyle.regular 这玩意是个枚举,实际值是个数值以字符串形式显示 fontstyle.regular 也是不对的

jiangxun

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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块变量