Hỏi: Thay đổi giá trị của OptionButton trên Form (1 người xem)

[befaint]

Em có vấn đề cần hỏi như sau ạ.
Trên form có 1 OptionButton (giả sử ban đầu có value = true), em muốn khi click lần 1 thì OptionButton.value = false, click lần tiếp thì OptionButton.value = false. Nghĩa là khi click vào OptionButton thì giá trị thay đổi True / False.
Mọi người giúp em với.
Xin cảm ơn.

 

[viehoai]

Em có vấn đề cần hỏi như sau ạ.
Trên form có 1 OptionButton (giả sử ban đầu có value = true), em muốn khi click lần 1 thì OptionButton.value = false, click lần tiếp thì OptionButton.value = false. Nghĩa là khi click vào OptionButton thì giá trị thay đổi True / False.
Mọi người giúp em với.
Xin cảm ơn.

Mình nghĩ bạn mượn giá trị 1 cell trên bảng tính để làm thay đổi nó
Ví dụ:
- Sheet1.[a1]=0 thì khi load form OptionButton.value = true, thay đổi giá trị Sheet1.[a1]=1
- Sheet1.[a1]=1 thì khi load form OptionButton.value = false, thay đổi giá trị Sheet1.[a1]=0
Nói vậy chắc bạn làm được

 

[huuthang_bd]

Em có vấn đề cần hỏi như sau ạ.
Trên form có 1 OptionButton (giả sử ban đầu có value = true), em muốn khi click lần 1 thì OptionButton.value = false, click lần tiếp thì OptionButton.value = false. Nghĩa là khi click vào OptionButton thì giá trị thay đổi True / False.
Mọi người giúp em với.
Xin cảm ơn.

Nếu cần làm như vậy thì bạn dùng CheckBox chứ ai lại dùng OptionButton. Dùng OptionButton trong trường hợp bạn có nhiều tùy chọn và chỉ chọn 1.

 

[befaint]

Nếu cần làm như vậy thì bạn dùng CheckBox chứ ai lại dùng OptionButton. Dùng OptionButton trong trường hợp bạn có nhiều tùy chọn và chỉ chọn 1.

Vấn đề là em muốn dùng OptionButton nên mới cần trợ giúp. Dùng checkbox thì đã xong rồi.

Mình nghĩ bạn mượn giá trị 1 cell trên bảng tính để làm thay đổi nó

Em muốn làm trực tiếp trên form. Không thông qua bảng tính.

 

[huuthang_bd]

Vấn đề là em muốn dùng OptionButton nên mới cần trợ giúp. Dùng checkbox thì đã xong rồi.

Vậy bạn có thể cho biết lý do không?

 

[jack nt]

Vấn đề là em muốn dùng OptionButton nên mới cần trợ giúp. Dùng checkbox thì đã xong rồi.
Em muốn làm trực tiếp trên form. Không thông qua bảng tính.

Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    OptionButton1.Value = Not OptionButton1.Value
End Sub

P/S: có thể làm tương tự với _MouseDown

 

[ndu96081631]

Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    OptionButton1.Value = Not OptionButton1.Value
End Sub

P/S: có thể làm tương tự với _MouseDown

Có thấy chạy gì đâu trời?

 

[befaint]

Có thấy chạy gì đâu trời?

Khi click bằng chuột trái (left mouse) thì không có hiện tượng gì.
Click bằng chuột phải (hoặc nút chuột giữa) thì True / False đúng yêu cầu.
Giờ làm thế nào để khi click chuột trái mà cho kết quả như vậy thì tốt.

 

[jack nt]

Khi click bằng chuột trái (left mouse) thì không có hiện tượng gì.
Click bằng chuột phải (hoặc nút chuột giữa) thì True / False đúng yêu cầu.
Giờ làm thế nào để khi click chuột trái mà cho kết quả như vậy thì tốt.

làm được rồi bạn ơi.

Private Sub OptionButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With OptionButton1
        .Enabled = False
        .Value = Not .Value
        .Enabled = True
        .SetFocus
    End With
End Sub

P/S: trên form có ít nhất 1 control khác có khả năng SetFocus.
Enable = False là để né sự kiện _Change