VBA - การลบกากบาทสีแดงออกจาก UserForm

อาจจำเป็นต้องมีความเป็นไปได้ในการออกจากรูปแบบผู้ใช้จนกว่าจะมีการห้ามป้อนข้อมูลทั้งหมด แต่ยังมีกากบาทสีแดงซึ่งอนุญาตให้ผู้ใช้ออก

ใช้รหัสต่อไปนี้เพื่อลบกากบาท

ในส่วนการประกาศของ UF

 'เพื่อลบเครื่องหมายกากบาทในแบบฟอร์มผู้ใช้ประกาศฟังก์ชัน GetWindowLongA Lib "user32" _ (ByVal hwnd ตราบใดที่ ByVal nIndex ตราบใดที่นาน) ประกาศเป็นหน้าที่นาน SetWindowLongA Lib "user32" _ (ByVal hwnd ตราบเท่าที่ ByVal nIndex ByVal dwNewLong ตราบใดที่นานประกาศฟังก์ชัน FindWindowA Lib "user32" _ (ByVal lpClassName เป็นสตริง ByVal lpWindowName As String) ตราบเท่าที่ 

ในการเริ่มต้นของ UF

 Private Sub UserForm_Initialize () Dim hwnd ตราบเท่าที่ hwnd = FindWindowA ("ทันเดอร์" & IIf (แอปพลิเคชันเวอร์ชันเช่น "8 *", "X", "D") _ & "เฟรม", Me.Caption) SetWindowLongA hwnd, - 16 GetWindowLongA