vb为什么我的复选框用代码无法设置value值我设置了四个复选按钮但是Check1后无法选择value属性为什么？

显示全部楼层 · 2011-2-17 01:10:13

Private Sub Check1_Click(Index As Integer)
Text1.FontBold = Check1.Count
End Sub

Private Sub Check2_Click(Index As Integer)
Text1.FontItalic = Check1.Count
End Sub

Private Sub Check3_Click(Index As Integer)
Text1.FontUnderline = Check1.Count
End Sub

Private Sub Check4_Click(Index As Integer)
Text1.FontStrikethru = Check1.Count
End Sub

我在教程里看到可疑选的~~是我哪里错了？

千问 · 2011-2-17 01:10:13

<pre class=\\\"answer-content\\\">If Check1.Value = 1 Then

Combo1.Enabled = True

Combo1.ForeColor = defds123H80000008

Else

Combo1.Enabled = False

Combo1.ForeColor = defds123H808080
End If

千问 · 2011-2-17 01:10:13

<pre class=\\\"answer-content\\\">复选框一般不用来触发事件吧。可以在一个按钮里面这样
If check1.value=true then
表达式
end if

千问 · 2011-2-17 01:10:13

<pre class=\\\"answer-content\\\">变粗后你要还原啊……用一个If……Else……End If判断一下复选框的状态啊，伪代码如下：
If 复选框选定 Then

执行相关命令
Else

还原到执行命令前的状态
End IF

If Value = Ture Then

s=Text1.FontBold

Text1.FontBold = Check1.Count
Else

Text1.FontBold = s
End If

vb为什么我的复选框用代码无法设置value值 我设置了四个复选按钮但是Check1后无法选择value属性 为什么？

vb为什么我的复选框用代码无法设置value值我设置了四个复选按钮但是Check1后无法选择value属性为什么？