vb通过单选框选择数字的隐藏或是显示

Posted 2023-05-05

但选择显示密码时，密码可见，选择隐藏密码时，不可见

参考技术A Private Sub Form_Load()
Option1.Value = 1
If Option1.Value Then Text1.PasswordChar = "*"

End Sub

Private Sub Option1_Click()
If Option1.Value Then Text1.PasswordChar = "*"

End Sub

Private Sub Option2_Click()
If Option2.Value Then Text1.PasswordChar = ""

End Sub本回答被提问者采纳

用JS把复选框做成单选框,左显示div,右隐藏div

<input type="checkbox" name="checkname" onclick="check(this)"/>左
<input type="checkbox" name="checkname" onclick="check(this)"/>右

<div id="show" style="display:block;">显示</div>
<div id="hidden" style="display:none;">隐藏</div>

<script type="text/javascript">
function check(obj){
    var checks = document.getElementsByName("checkname");
    if(obj.checked){
        for(var i=0;i<checks.length;i++){
        checks[i].checked = false;
        }
        obj.checked = true;
    }else{
        for(var i=0;i<checks.length;i++){
        checks[i].checked = false;
        }
    }    
    document.getElementById(‘show‘).style.display = document.getElementById(‘show‘).style.display=="none"?"block":"none";
    document.getElementById(‘hidden‘).style.display = document.getElementById(‘hidden‘).style.display=="none"?"block":"none";    
}
</script>