to fumizuki 前辈 套用你教的 Combo2.SetFocus Exit Sub 我也有样学样 想把option1 跟 option2 做个必填的设定 ----------------------------------- Private Sub Option1_Click() If Option1.Value = True Then sex = "男" Else sex = "女" End If End Sub ----------------------------------- Private Sub Command1_Click() If Option1.Value = 0 Then MsgBox "您尚未选择性别哦!!" Option1.SetFocus Exit Sub End If End Sub ------------------------------------ 虽然好像看似OK 可是总觉得怪怪的 ^^" 其实ﴠ我不太知道 Option1.Value = 0 的意思 那个0是我随便打的 感觉应该是 没有选择的意思 @@" 还是有另外更好的作法?? 可以让使用者非选择Option不可 否则无法继续下一步 再来一个小问题就是 如果我要设一个text1.text为必填选项 我就很天真的把程式写成 ------------------------------ Private Sub Text1_Change() If Text1.Text = "" Then MsgBox "请填入姓名哦!!!" End If End Sub ------------------------------ 结果如果我没填text1.text的时候 也没有跳出一个Msgbox来反应 除非我在text1.text打了一些字 然後做清除掉的动作 它才会跳出一个Msgbox来 而且跳出来之後 程式还是可以继续 没有回到text1.text让使用者继续填入... 不知道我该怎麽改才好呢?? 盼您指导我一下 ^^" --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 220.141.102.185