急急急!~~~

Question

怎么用visual basic写一个 "在名称为FORM的窗体中建立个TEXT1的文本筐，里面写/‘我的家’，在建立2个命令按扭，名字为“斜体”“宋体”，编写程序。运行后点“斜体”，“我的家”就变为斜体",因为我没有学过知不道怎么写!! 请大家帮忙,最好是写出完整的代码!

Answer 1

在斜体按钮下加入：Text1.FontItalic = TRUE

Answer 2

对不起，是 Text1.Font.Italic = TRUE刚才手误没有注意到。

Answer 3

Private Sub Command1_Click()
    Text1.FontItalic = True
End SubPrivate Sub Command2_Click()
    Text1.Font = "宋体"
End Sub

Answer 4

奇怪，更换字体不是应该为：Text1.FontName = "宋体" 或者 Text1.Font.Name = "宋体" ??

Answer 5

Option ExplicitPrivate Sub Command1_Click()
    Text1.FontItalic = True
End SubPrivate Sub Command2_Click()
    Text1.FontItalic = False
End SubPrivate Sub Command3_Click()
    Text1.FontName = "黑体"
End SubPrivate Sub Command4_Click()
    Text1.FontName = "宋体"
End SubPrivate Sub Form_Load()
    Text1 = "我的家"
End Sub

Answer 6

没什么好奇怪的，三个写法都行。
Text1.Font　与　Text1.Font.Name　是等效的设置斜体也有下面两种写法：
Text1.Font.Italic = True
Text1.FontItalic = True

Answer 7

Private Sub Form_Load()
    Text1 = "我的家"
End SubPrivate Sub Command1_Click()
    Text1.FontItalic = True
End SubPrivate Sub Command3_Click()
   Text1.FontName = "斜体"
End Sub
这样应该是可以的吧？？？

Answer 8

Text1.FontName = "斜体"  这段有问题，应该是字体的名字才正确。例如："Arial", "Tahoma"...

Answer 9

斜體:
Private Sub Command1_Click()  
    Text1.FontItalic = True  
End Sub  字體改換：
Private Sub Command2_Click()  
Text1.Font = "宋体"
End subPrivate Sub Form_Load()
    Text1.text = "我的家"
End Sub