آموزش - غیر فعال کردن دکمه close در userform

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • ali.b

    • 2014/01/12
    • 798

    آموزش - غیر فعال کردن دکمه close در userform

    سلام
    این کد دکمه یوزر فرم رو غیر فعال می کنه
    کد:
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        MsgBox ("please log in")
        Cancel = 1
    End Sub
    Last edited by Amir Ghasemiyan; 2015/08/27, 13:56.
    [CENTER]
    [/CENTER]
  • hasa2

    • 2015/01/09
    • 73
    • 56.00

    #2
    بر خلاف کد بالا که عملکرد دکمه Close با نمایش پیغام جایگزین شده با استفاده از کد زیر کلا عملکرد دکمه غیرفعال میشه و با کلیک بر روی دکمه Close هیچ اتفاقی نمی افته.
    کد:
    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbformcotrolmenu Then
    Cancel = True
    End If
    End Sub

    کامنت

    چند لحظه..