字体定义中的所有控件值，都要明确转换成相应的变量：
Dim cb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")Dim fnt As New Font (CStr(cb1.Selectedvalue),15)e.Form.Controls("TextBox1").Font = fnt
加好友 
发短信
Post By：2014/9/13 6:32:00 [显示全部帖子]
