Foxtable(狐表)用户栏目专家坐堂 → 字体问题


  共有3416人关注过本帖树形打印复制链接

主题:字体问题

帅哥哟,离线,有人找我吗?
huangzhongdui
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
字体问题  发帖心情 Post By:2014/1/15 8:39:00 [显示全部帖子]

我在ini文件中去的字体到程序中,但是浏览的时候发现不是取出来的字体些的字

 回到顶部
帅哥哟,离线,有人找我吗?
huangzhongdui
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
  发帖心情 Post By:2014/1/15 8:48:00 [显示全部帖子]

是我取的字体是对的,是我在给label重新font的时候label好像没有用我取过来的字体

 回到顶部
帅哥哟,离线,有人找我吗?
huangzhongdui
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
  发帖心情 Post By:2014/1/15 8:52:00 [显示全部帖子]

应该是我赋字体的那块有点问题吧

 回到顶部
帅哥哟,离线,有人找我吗?
huangzhongdui
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
  发帖心情 Post By:2014/1/15 8:58:00 [显示全部帖子]

程序报error

 回到顶部
帅哥哟,离线,有人找我吗?
huangzhongdui
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
  发帖心情 Post By:2014/1/15 8:58:00 [显示全部帖子]


[此贴子已经被作者于2014-1-26 11:59:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
huangzhongdui
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1102 威望:0 精华:0 注册:2014/1/6 10:35:00
  发帖心情 Post By:2014/1/15 9:04:00 [显示全部帖子]

好的明白了谢谢
主要是我那种方法为什么不好用呢

 回到顶部