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

[mokaram]

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

[علی فاطمی]

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

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

[amin.t]

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

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

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




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]

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


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 (http://social.msdn.microsoft.com/forums/office/en-US/17452849-598c-410b-8675-b1e585d0e7e7/userform-without-titlebar-and-borders)
2 (http://www.ozgrid.com/forum/showthread.php?t=61627)

[حسینعلی]

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

[khakzad]

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

[Alexis]

تشکر:friendly_wink: