UserForm ªº¨Ï¥Î°ÝÃD

hugh0620

Dear ¤j¤j

       §Ú¦b³]­p¤@­Óµn¤J®É¤@©w­n¬D¿ïlistbox¤¤ªº¿ï¶µ~ ¤~¯à°÷µn¤J¨Ï¥Î~
          ¦ý²{¦b§Ú¦b´ú¸Õ®Éµo²{¤@­Ó°ÝÃD~ ´N¬OÂI¿ïuserform¤Wªº"X"~ ´N¥i¥HÁ×¹L§Ú³]­pªº­ì·N~
          ·Q½Ð°Ý¦U¦ì¤j¤j~ ¦p¦óÃö±¼userform¤Wªº"X"~ ©Î¬O¦³¨ä¥¦¤è¦¡³B²z??
          ¦p¤U¹Ï©Ò¥Ü­ò~
         

¤U¸ü (27.66 KB)

2011-5-11 09:22

GBKEE

¦^´_ 1# hugh0620
½Ð¸Ô¬Ý VBA [QueryClose ¨Æ¥ó] ªº»¡©ú
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then Cancel = True
End Sub

hugh0620

¦^´_ 2# GBKEE


    ·PÁ¤j¤jªº±Ð¾É~ ¤p§Ì·|¦A¨Ì¤j¤jªº´£¨Ñªº¦A¥h¤F¸Ñ~

Hsieh

http://cat14051.mysinablog.com/i ... amp;articleId=48120

Min

¨þ¨þ¨þ~ ­è¦n¦³¼g¹L! ¸Õ¸Õ¬Ý§a!

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
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 Const GWL_style = (-16)
Private Const CLOSEBOX As Long = &H80000

Private Sub UserForm_Initialize()
    Dim hWndform As Long
    Dim Istyle As Long
   
    hWndform = FindWindow("Test", Me.Caption)
    Istyle = Istyle And Not CLOSEBOX
    SetWindowLong hWndform, GWL_style, Istyle
End Sub