其他:Private Sub Command1_Click()
If Check1.Value = 1 Then
'xxxxxxxxxxxxxxxxxx 'open file 语句
Unload Me '关闭窗体 或者 Unload Form1
Else
'xxxxxxxxxxxxxxxxxx 'open file 语句
End If
End Sub Private Sub Command1_Click()
调用file()
if check1.value=1 then
form1.unload
end if
end sub
上一个:全国计算机二级VB考试有没有上机题库
下一个:VB:为什么我把窗体命名成frmOne,可是不能使用sub frmOne_Load()呢?