关于单选框

来源：百度知道 编辑：UC知道 时间：2024/05/31 01:13:26
如果有一个窗体，上面有2个单选框，两个命令按钮，还有一个通用对话框，当你选择option1的时，点击command1则会弹出保存文件的对话框，当你点击确定是则显示你保存成功，若点击取消，则弹出一个对话框显示你没有保存文件，你选择的是option2的时候，点击次command1的时候则弹出打开文件的对话框，点击command2的时候则退出。

Private sub Command1_Click()

if Option1.Value=True then
CommonDialog1.ShowSave
if CommonDialog1.FileName="" Then
MsgBox "没有保存文件"
else
MsgBox "保存成功"
end if
elseif option2.value=true then
CommonDialog1.ShowOpen
end if
End Sub

private sub Command2_Click
End
End Sub

楼上的代码基本正确不过不太符合楼主意愿，我少改一点点！

Private sub Command1_Click()

if Option1.Value=True then
CommonDialog1.ShowSave
if CommonDialog1.FileName="" Then
MsgBox "没有保存文件"
else
MsgBox "保存成功"
end if
else
CommonDialog1.ShowOpen
end if
End Sub

private sub Command2_Click
End
End Sub