用VB 6.0编写代码,有一个复选框check1。选中它时label1里的内容字体便为黑体,代码如何写。
label1.fontname=iif(check1=1,true,false)这句代码错在哪?...
label1.fontname = iif(check1=1, true, false)
这句代码错在哪? 展开
这句代码错在哪? 展开
2011-01-28
展开全部
改成:Label1.FontName = IIf(Check1.Value = 1, "黑体", "宋体")
FontName 是字体名称
另,设置粗体时:
Label1.FontBold = IIf(Check1.Value = 1, True, False)
FontName 是字体名称
另,设置粗体时:
Label1.FontBold = IIf(Check1.Value = 1, True, False)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Fontname是字体名称,FontBold才是粗体。
且Check1=1此语句是错误的,控件不能赋值,只能设置属性。应该为:Check1.Value=1。
且Check1=1此语句是错误的,控件不能赋值,只能设置属性。应该为:Check1.Value=1。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
给你思路,具体代码、语法自己写。
sub check1_click()
if check1.checked then //判断是否选中
label1.font = '黑体' //设置黑体
else
label1.font = '正常'
end if
end sub
sub check1_click()
if check1.checked then //判断是否选中
label1.font = '黑体' //设置黑体
else
label1.font = '正常'
end if
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Label1.FontName = IIf(Check1.Value = 1, "黑体", Label1.FontName)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
If Check1 = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
Label1.FontBold = True
Else
Label1.FontBold = False
End If
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询