| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 字体问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45066) |
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 8:39:00 -- 字体问题 我在ini文件中去的字体到程序中，但是浏览的时候发现不是取出来的字体些的字 |
| -- 作者：Bin -- 发布时间：2014/1/15 8:40:00 -- 设么意思? 是说取值不正确, 还是声明赋值新字体无效? |
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 8:48:00 -- 是我取的字体是对的，是我在给label重新font的时候label好像没有用我取过来的字体 |
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 8:51:00 -- Dim strCaption3 As New StringBuilder(256) GetPrivateProfileString(sf2,"FontName","",strCaption3,strCaption3.Capacity,F) Dim fontname_JGZ = strCaption3.ToString() messagebox.show(fontname_JGZ) Dim strCaption4 As New StringBuilder(256) GetPrivateProfileString(sf3,"FontSize","",strCaption4,strCaption4.Capacity,F) Dim fontsize_JGZ = strCaption4.ToString() 重新给label赋字体 Dim fnt1 As new font(""" & fontsize_JGZ & """,fontsize_JGZ,fontstyle.Bold) e.Form.controls("label15").font = fnt1 |
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 8:52:00 -- 应该是我赋字体的那块有点问题吧 |
| -- 作者：Bin -- 发布时间：2014/1/15 8:55:00 -- Dim fnt1 As new font(""" & fontsize_JGZ & """,fontsize_JGZ,fontstyle.Bold) 1.第一个参数不应该是字体名称么,你怎么穿的是尺寸 2.穿字符串一样是直接传变量可以了,不需要引号 Dim fnt1 As new font(fontname_JGZ,fontsize_JGZ,fontstyle.Bold)
|
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 8:58:00 -- 程序报error |
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 8:58:00 -- [此贴子已经被作者于2014-1-26 11:59:06编辑过]
|
| -- 作者：Bin -- 发布时间：2014/1/15 9:02:00 -- 你声明变量的时候要指定类型 dim fontname as string
|
| -- 作者：huangzhongdui -- 发布时间：2014/1/15 9:04:00 -- 好的明白了谢谢 主要是我那种方法为什么不好用呢
|