vb帮助 - 360文档中心

合集下载

相关主题

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

判断

‘-------------------------------------------------------------------------------------------------------------------

改为“If CBool(Check1.Value) = True Then” 才可

‘-----------------------------------------------------------------------------------------------------------

Option Explicit

Private Sub Check1_Click() '粗体

Text1.FontBold = IIf(Check1.Value = Checked, Checked, Unchecked)

End Sub

Private Sub Check2_Click() '斜体字

Text1.FontItalic = IIf(Check2.Value = Checked, Checked, Unchecked)

End Sub

Private Sub Check3_Click() '下划线

Text1.FontUnderline = IIf(Check3.Value = Checked, Checked, Unchecked)

End Sub

Private Sub Check4_Click() '删除线

Text1.FontStrikethru = IIf(Check4.Value = Checked, Checked, Unchecked)

End Sub

‘------------------------------------------------------------------------------------------------------------

If Check1.Value Then

If cbool(Check1.Value) Then

If cbool(Check1.Value) = True Then

随便你用哪个都行...

‘---------------------------------------------------------------------------------------------------------------------

Private Declare Function FindWindow Lib "user32" Alias

"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

sub form_load()

if FindWindow(vbNullString, "窗体名") <> 0 then

msgbox "窗体已打开"

end if

end sub

‘----------------------------------------------------------------------------------------------------------

在NET里打开、保存等对话框已分为不同的控件了

下面的打开文件对话框的

If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then

'如果条件成立就说明是点了"打开" 也就是说有选择了一个文件

End If

‘---------------------------------------------------------------------------------------------------------

我再告诉梦中人一个好方法..

使用一个变量 optSelect as long

然后在opt的过程中添加

optSelect = index

这时,你需要使用时,直接就可以根据这个变量,知道选择的哪个了.

‘------------------------------------------------------------------------------------------------------

Private Sub Option1_Click(Index As Integer)

Option1(0).Tag = Option1(intex).Caption

改

Private Sub Option1_Click(Index As Integer)

Option1(0).Tag = Option1(Index).Caption

你的口气不太好

‘-------------------------------------------------------------------------------------

-------------------

Private Sub Command1_Click()

MsgBox Option1(0).Tag

End Sub

Private Sub Form_Load()

Option1(0).Value = True

End Sub

Private Sub Option1_Click(Index As Integer)

Option1(0).Tag = Option1(Intex).Caption

End Sub

‘-------------------------------------------------------------------------------------------------------

If object.value = True Then '但单选框被选中时

...... '所执行的语句

Else '当单选框没有被选中时

...... '所执行的语句

End If

其中，object是需要被判断的单选框名称

‘--------------------------------------------------------------------------------------------------------------

在这里解释一下，控件数组简单的理解就是N个同类型控件一个名字，只是各自编号不同（index）

比如有10个多选框，那么就是如下代码[先放10个Check1，注意是Check1，不是Check1，Check2，Check3……Check10]

'---注意之所以将代码放在MouseUp事件是为了防止连续出发Click事件产生“堆栈控件溢出”错误

Private Sub Check1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

Value = (Check1(Index).Value + 2) Mod 2

For i = 0 To 9 '10个控件 10-1=9

Check1(i).Value = 0

End Sub