تغییر در کنترلهای یوزر فرم

[mokaram]

یکی از دوستان خواسته بودید علامت ضربدر بالای فرم را چطوری میشه برداشت که تو فایل زیر این مورد و موارد دیگه آورده شده ( فکر کنم قبلا تو انجمن فایلش گذاشته شده باشه ولی من پیدا نکردمش که لینک بدم اگه تکراری بود شرمنده )

[علی فاطمی]

یکی از دوستان خواسته بودید علامت ضربدر بالای فرم را چطوری میشه برداشت که تو فایل زیر این مورد و موارد دیگه آورده شده ( فکر کنم قبلا تو انجمن فایلش گذاشته شده باشه ولی من پیدا نکردمش که لینک بدم اگه تکراری بود شرمنده )

خدایی یه سپاس خیلی کمه ، واقعا عالی بود بسیار سپاسگذارم.

[amin.t]

مخفی کردن TitteBar

یکی از دوستان خواسته بودید علامت ضربدر بالای فرم را چطوری میشه برداشت که تو فایل زیر این مورد و موارد دیگه آورده شده ( فکر کنم قبلا تو انجمن فایلش گذاشته شده باشه ولی من پیدا نکردمش که لینک بدم اگه تکراری بود شرمنده )

سلام
در مورد مطلبی که فرمودین آموزشی دیدم که دیدنش خالی از لطف نیست :

کدی که در یوزرفرم باید قرار بدید:

Private Sub UserForm_Initialize()     
    Call RemoveTitleBar(Me)     
End Sub

کدی که در یک Moduleباید قرار بدید :

 Option Explicit

Private Declare Function FindWindow Lib "User32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) 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 Declare Function DrawMenuBar Lib "User32" ( _
ByVal hwnd As Long) As Long

Sub RemoveTitleBar(frm As Object)
    Dim lStyle          As Long
    Dim hMenu           As Long
    Dim mhWndForm       As Long
     
    If Val(Application.Version) < 9 Then
        mhWndForm = FindWindow("ThunderXFrame", frm.Caption) 'for Office 97 version
    Else
        mhWndForm = FindWindow("ThunderDFrame", frm.Caption) 'for office 2000 or above
    End If
    lStyle = GetWindowLong(mhWndForm, -16)
    lStyle = lStyle And Not &HC00000
    SetWindowLong mhWndForm, -16, lStyle
    DrawMenuBar mhWndForm
End Sub

Sub ShowForm()
    UserForm.Show False
End Sub

[amin.t]

حرکت دادن userform بدون Titlebar

سلام
یه مطلب مفید دیگه که فکر کنم دوستان بعد از هیدن کردن تایتل بار دنبالش باشن حرکت دادن یوزر فرم بدون تایتل باره
برای این کار کافیه کد زیرو در یوزر فرم کپی کنید

Private m_sngDownX As Single 
Private m_sngDownY As Single 
 
Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
     
    If Button = 1 Then 
        m_sngDownX = X 
        m_sngDownY = Y 
    End If 
     
End Sub 
 
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    If Button And 1 Then 
        Me.Left = Me.Left + (X - m_sngDownX) 
        Me.Top = Me.Top + (Y - m_sngDownY) 
    End If 
End Sub

راستی منابع این دوتا مطلب :
1
2

[حسینعلی]

باسلام،میشه این نمونه رابرام ایمیل کنید؟h.gheidrlou@Bankmellat.ir

[khakzad]

دوست عزیز فایل داخل انجمن اپلود شده و می تونید دانلود کنید

[Alexis]

تشکر