ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

UserForm ªº¨Ï¥Î°ÝÃD

UserForm ªº¨Ï¥Î°ÝÃD

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¹Ï©Ò¥Ü­ò~
          UserForm ªºÀ³¥Î.JPG
¾Ç²ß¤~¯à´£¤É¦Û¤v

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

TOP

¦^´_ 2# GBKEE


    ·PÁ¤j¤jªº±Ð¾É~ ¤p§Ì·|¦A¨Ì¤j¤jªº´£¨Ñªº¦A¥h¤F¸Ñ~
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¨þ¨þ¨þ~ ­è¦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
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD