Xin code set default cho commandbutton

[trchau]

Chào các bạn,
tôi có 1 userform, trên đó có 2 commandbutton, yêu cầu đặt ra là khi click vào commandbutton1 thì chuyển mặc định qua commandbutton2 và ngược lại như trong file đính kèm, bài toán đã được rút gọn từ 1 ứng dụng thực tế cho đơn giản.
Tôi đã thử hết cách mà không được, rất mong các bạn trên diễn đàn giúp đỡ.
Cảm ơn.

 

[ptm0412]

Tôi đã thử hết cách mà không được

Trong tất cả các cách bạn thực hiện, đã dùng đến method SetFocus chưa?

 

[ndu96081631]

Chào các bạn,
tôi có 1 userform, trên đó có 2 commandbutton, yêu cầu đặt ra là khi click vào commandbutton1 thì chuyển mặc định qua commandbutton2 và ngược lại như trong file đính kèm, bài toán đã được rút gọn từ 1 ứng dụng thực tế cho đơn giản.
Tôi đã thử hết cách mà không được, rất mong các bạn trên diễn đàn giúp đỡ.
Cảm ơn.

Set Default là cái gì? Có phải ý bạn muốn nói đến SetForcus không? Nếu đúng thế thì code vầy:

Private Sub CommandButton1_Click()
  MsgBox "CommandButton1_Click, xin set default qua nut 02"
  CommandButton2.SetFocus
End Sub

Private Sub CommandButton2_Click()
  MsgBox "CommandButton2_Click, xin set default qua nut 01"
  CommandButton1.SetFocus
End Sub

Lưu ý: Với code như trên, bạn không cần click chuột, chỉ cần nhấn Enter cũng được

 

[trchau]

Code của bạn ndu đúng ý tôi rồi đó, cảm ơn các bạn nhiều.

Nhưng tôi vẫn còn thắc mắc: Do mới đầu tôi nghĩ (để thay cho việc nhấn Enter) phải dùng phương thức SetDefault chứ không phải SetFocus:
Trong nút CommandButton1:

Private Sub CommandButton1_Click()
    CommandButton2.Default = True
End Sub

Trong nút CommandButton2:

Private Sub CommandButton2_Click()
    CommandButton1.Default = True
End Sub

Vấn đề tôi thắc mắc là tại sao code trên nó không cho kết quả như mong đợi? Nhờ các bạn giải thích giúp.