Question

vb6.0有一个复选框check1。选中它点击command1时text1里的内容字体便为粗体代码

如题谢谢了。

Answer 1

Private Sub Command1_Click()
If Check1.Value = vbChecked Then Text1.FontBold = True Else Text1.FontBold = False
End Sub

Answer 2

sub command1_click()
if check1 then
text1.font.bold=true
end if
end sub