Làm sao để biến mất dấu x (góc bên phải trên cùng của form)

[Tường_Vi]

Khi ta làm việc với Form, có tạo button Quit

Unload me

Nhưng nhiều khi người dùng lại tíc vào dấu nhân (x) ở góc phải của Form để tắt form

Vậy muội xin được hỏi là có cách nào không?

Tks

 

[Hai Lúa Miền Tây]

Khi ta làm việc với Form, có tạo button Quit

Unload me

Nhưng nhiều khi người dùng lại tíc vào dấu nhân (x) ở góc phải của Form để tắt form

Vậy muội xin được hỏi là có cách nào không?

Tks

Bạn dùng code sau:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "Khong the thoat theo cach nay, Vui long nhan nut thoat tren form", vbCritical
    End If
     
End Sub

 

[Tường_Vi]

Bạn dùng code sau:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "Khong the thoat theo cach nay, Vui long nhan nut thoat tren form", vbCritical
    End If
     
End Sub

Huynh Dom Footwear ơi, giải thích giúp muội đoạn code này với

1. closemode = 0 (tương ứng với False)
2. Cancel = true

Nó ngắn quá, muội chưa hiểu

 

[ndu96081631]

Khi ta làm việc với Form, có tạo button Quit

Unload me

Nhưng nhiều khi người dùng lại tíc vào dấu nhân (x) ở góc phải của Form để tắt form

Vậy muội xin được hỏi là có cách nào không?

Tks

Ẩn nút X thật sự phải là code này:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
  Dim hWnd As Long
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84C00080
End Sub

Chứ không phải chờ người ta bấm vào nút X rồi lại.. cằn nhằn
Ẹc... Ẹc...
Tham khảo thêm tại đây: Tạo hiệu ứng cho UserForm

 

[Xuân hiếu]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Khi ta làm việc với Form, có tạo button Quit

Unload me

Nhưng nhiều khi người dùng lại tíc vào dấu nhân (x) ở góc phải của Form để tắt form

Vậy muội xin được hỏi là có cách nào không?

Tks

 

[Tường_Vi]

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
  (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub UserForm_Initialize()
  Dim hWnd As Long
  hWnd = FindWindow("ThunderDFrame", Me.Caption)
  SetWindowLong hWnd, -16, &H84C00080
End Sub

</span></span>
Code hay quá nhưng thực sự em thấy mình không nhớ đựoc, Với cách khai báo như này chỉ còn cách là save vào lưu lại mỗi khi cần thôi bác nhỉ?

</span></span>