Foxtable(狐表)用户栏目专家坐堂 → 字体控件更换字体时候出错


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

主题:字体控件更换字体时候出错

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


加好友 发短信
等级:童狐 帖子:248 积分:3091 威望:0 精华:0 注册:2012/5/13 14:59:00
字体控件更换字体时候出错  发帖心情 Post By:2016/8/27 15:04:00 [显示全部帖子]

字体变换控件FontPicker更换字体时,如果字体名称从短转换成名字较长的字体时就出错,错误内容如下:

 

The statement has been terminated.
String or binary data would be truncated.

 

请问怎样解决?


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


加好友 发短信
等级:童狐 帖子:248 积分:3091 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2016/8/27 15:39:00 [显示全部帖子]

不是字体名称从短到长,而是换名字较长的字体就会出错,例如:“”Microsoft Sans Serif“”,但“宋体”等较短名字的就不会出错

 


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


加好友 发短信
等级:童狐 帖子:248 积分:3091 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2016/8/29 15:46:00 [显示全部帖子]

刚初始的时候不会出错,当我执行以下代码,将该字体控件(控件名为“字体样式”)关联到一个标签控件的时候,让该控件的值等于标签控件的字体时,字体控件变更为较长名字的字体就会出错

If Typeof T Is WinForm.label Then

        Dim t1 As WinForm.label = T       

        e.form.Controls("文本内容").value=t1.text

        e.form.Controls("字体大小").value=t1.font.size

      e. form.Controls("字体样式").value=t1.font.name

        e.form.Controls("字体颜色").value=t1.forecolor

  End If


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


加好友 发短信
等级:童狐 帖子:248 积分:3091 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2016/8/29 16:03:00 [显示全部帖子]

The statement has been terminated.
String or binary data would be truncated.

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


加好友 发短信
等级:童狐 帖子:248 积分:3091 威望:0 精华:0 注册:2012/5/13 14:59:00
  发帖心情 Post By:2016/8/29 16:47:00 [显示全部帖子]

e. form.Controls("字体样式").value=t1.font.name

不是存入表格,直接把标签控件的字体名称赋值到字体控件的值中,但附入“宋体”这种短的字体名称没有问题,但"Microsoft Sans Serif”这种比较长的名字字体就会出错,这种错误是在通过代码赋值后发生,没有通过任何代码赋值,直接在控件中选择是不会出现这种错误


 回到顶部