我刚自学VB，做了一个文件夹美化的工具，原先的代码是这样的：Private Sub cmd4_Click()On Error Resume NextIf Len(txt1.Text) <>0 ThenSetAttr txt1.Text &"\", vbNormalSetAttr txt1.... 展开
我刚自学VB，做了一个文件夹美化的工具，原先的代码是这样的：Private Sub cmd4_Click()On Error Resume NextIf Len(txt1.Text) <>0 ThenSetAttr txt1.Text &"\", vbNormalSetAttr txt1.Text &"\"&"desktop.ini", vbNormalKill txt1.Text &"\"&"desktop.ini"SendKeys "{F5}"Dim F As StringDim q As Stringq = txt1.TextF = txt1.Text &"\"&"desktop.ini"dl = WritePrivateProfileString(".ShellClassInfo", "InfoTip", txt4.Text, F)dl = WritePrivateProfileString(".ShellClassInfo", "IconFile", txt3.Text, F)dl = WritePrivateProfileString(".ShellClassInfo", "IconIndex", "0", F)dl = WritePrivateProfileString("ExtShellFolderViews", "{BE098140-A513-11D0-A3A4-00C04FD706EC}", "{BE098140-A513-11D0-A3A4-00C04FD706EC}"&vbCrLf, F)dl = WritePrivateProfileString("{BE098140-A513-11D0-A3A4-00C04FD706EC}", "attributes", "1", F)dl = WritePrivateProfileString("{BE098140-A513-11D0-A3A4-00C04FD706EC}", "IconArea_Image", txt2.Text, F)dl = WritePrivateProfileString("{BE098140-A513-11D0-A3A4-00C04FD706EC}", "IconArea_Text", txt5.Text, F)SetAttr txt1.Text &"\", vbSystemSetAttr txt1.Text &"\"&"desktop.ini", vbHidden + vbReadOnly + vbSystemIf dl <>0 Then MsgBox "美化成功"If dl = 0 Then MsgBox "美化失败"Shell "cmd.exe /c start "+ q + ""SendKeys "{F5}"ElseMsgBox "请先选择要美化的文件夹哦！", vbOKOnly, "shumahe3提示^_^"End IfEnd Sub现在想加入一功能（利用单选框来增加状态），就是当单击“美化”按钮时（cmd4按钮），先判断状态，如果单选框是“本机使用”则照常执行上边的代码，如果单选框是“移动设备使用”则除了执行上面的代码，还执行一条filecopy命令，请问大家，option单选框的判断代码应该加在哪里呀 收起
