VBA - 사용자 정의 폼에서 적십자 삭제

모든 입력이 끝날 때까지 사용자 정의 양식을 종료 할 수있는 가능성이 있지만 사용자가 종료 할 수있는 적십자가 여전히 필요할 수 있습니다.

십자 기호를 제거하려면 다음 코드를 사용하십시오.

University of Florida의 선언 부분

 '사용자 양식에서 십자가를 제거하려면 함수 선언 GetWindowLongA Lib "user32"_ (ByVal hwnd As Long, ByVal nIndex As Long) Long 선언 함수로 SetWindowLongA Lib "user32"_ (ByVal hwnd As Long, ByVal nIndex Long, ByVal dwNewLong As Long 선언 함수로 FindWindowA Lib "user32"_ (ByVal lpClassName As String, ByVal lpWindowName As String) Long 

UF 초기화시

 ( "Thunder"& IIf (Application.Version "8 *", "X", "D") _ & "Frame", Me.Caption) SetWindowLongA hwnd, - 사용자 정의 하위 UserForm_Initialize () 16, GetWindowLongA