以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  字体选择  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56824)
--  作者：freeants
--  发布时间：2014/9/12 22:33:00
--  字体选择
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim fnt As new font (cb1.Selectedvalue,15)

为啥就不行呢

如果我打 Dim fnt As new font ("宋体",15)  就可以个

CB1.selectedVALUE 就是宋体
--  作者：程兴刚
--  发布时间：2014/9/12 22:54:00
--  

试试这个：

 

Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")

Dim fnt As new font (cb1.text,15)

或者：

Dim s As string = e.Form.Controls("ComboBox1").text

Dim fnt As new font (s,15)

如果还是不行，则需要改变方法！
--  作者：lsy
--  发布时间：2014/9/13 6:32:00
--  

字体定义中的所有控件值，都要明确转换成相应的变量：

 

Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim fnt As New Font (CStr(cb1.Selectedvalue),15)
e.Form.Controls("TextBox1").Font = fnt
--  作者：freeants
--  发布时间：2014/9/13 10:04:00
--  
3楼 OK