Question

VB中鼠标单击按钮使字体变粗，再次单击使字体恢复原来样子的代码

建立了一个text文本框，添加了一个按钮。按钮的代码是Private Sub Command1_Click()
Form1.Text1.FontBold = TrueEnd Sub也就是使text文本框中的字体变粗。 我想问一下，再次单击按钮使字体恢复原来样子的代码是什么?

Answer 1

在原代码的基础上再加一句代码

if text1.fontbold=true then text1.fontbold=false

将这句写在end Sub 之前。