vb里用一个单选按钮怎么使文本框中字体变为楷体

如题所述

第1个回答 2010-03-23

Private Sub Option1_Click()
Text1.FontName = "楷体_GB2312"
End Sub本回答被网友采纳

第2个回答 2019-10-19

name
=
"楷体_gb2312"在窗体中放入一个文本框，三个option(要组成数组)
private
sub
option1_click(index
as
integer)
if
index
=
0
then
text1.font.name
=
"黑体"
if
index
=
2
then
text1.font.name
=
"宋体"
if
index
=
1
then
text1.font

第3个回答 2010-03-22

text1.font.name="楷体"
或
text1.fontname="楷体"

相似回答

vb里用一个单选按钮怎么使文本框中字体变答：Private Sub Option1_Click()Text1.FontName = "宋体"End Sub Private Sub Option2_Click()Text1.FontName = "黑体"End Sub Private Sub Option3_Click()Text1.FontName = "楷体"End Sub

vb里单复选框,单选框:宋体楷体黑体,复选框:粗体斜体下划线,代码怎么写...答：Private Sub Form_Load()Text1.Text = "单选与复选框应用"Text1.Alignment = 2 Text1.FontSize = 18 End Sub Private Sub Option1_Click(Index As Integer)Select Case Index Case 0 Text1.FontName = "宋体"Case 1 Text1.FontName = "楷体"Case 2 Text1.FontName = "黑体"End Select ...

vb题用单选钮设置文本框的背景色和字体属性。背景颜色可选红色、绿色...答：Private Sub Option2_Click()Text1.BackColor = vbGreen End Sub Private Sub Option3_Click()Text1.BackColor = vbBlue End Sub Private Sub Option4_Click()Text1.Font = "隶书"End Sub

用VB编写用单选钮和复选框设置文本框的字体的程序答：'确定按钮 Private Sub Cmdok_Click()If Chksize.Value = 1 Then Txtshow.FontSize = 32 Else End If If Chkfont.Value = 1 Then Txtshow.FontName = "隶书"End If If Chkstyle.Value = 1 Then Txtshow.FontUnderline = True Else Txtshow.FontUnderline = False End If End Sub 以此类...

大家正在搜

vb单击命令按钮文本框出现文字 vb文本框文字怎么居中 vb单机窗体文本框中显示文字 vb中单选按钮被选中 vb单击按钮清除文本框内容 vb在文本框中输入文本 vb文本框怎么设置到ppt中单击命令按钮在文本框中显示 java将按钮信息转化为文本框