用VB 6.0编写代码，有一个复选框check1。选中它时label1里的内容字体便为黑体，代码如何写。

Question

label1.fontname = iif(check1=1, true, false）
这句代码错在哪？

Answer 1

改成：Label1.FontName = IIf(Check1.Value = 1, "黑体", "宋体")
FontName 是字体名称
另，设置粗体时：
Label1.FontBold = IIf(Check1.Value = 1, True, False)本回答被提问者采纳

Answer 2

Fontname是字体名称，FontBold才是粗体。
且Check1=1此语句是错误的，控件不能赋值，只能设置属性。应该为：Check1.Value=1。

Answer 3

给你思路，具体代码、语法自己写。

sub check1_click()
if check1.checked then //判断是否选中
label1.font = '黑体' //设置黑体
else
label1.font = '正常'
end if
end sub

Answer 4

Label1.FontName = IIf(Check1.Value = 1, "黑体", Label1.FontName)

Answer 5

If Check1 = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If