نمايي زيبا براي فرمهاي برنامه
براي داشتن همچنين فرمي بصورت زير عمل ميكنيم:
ابتدا خاصيت FormBorderStyle فرم را به حالت None ست ميكنيم تا فرم هيچ گونه حاشيه اي نداشته باشد.
يك ماژول با هر نامي ايجاد كرده و متغيرها و توابع زير زير را در آن تعريف ميكنيم
کد:
Public Declare Function CreateRoundRectRgn Lib "gdi32.dll" ( _
ByVal X1 As Int32, _
ByVal Y1 As Int32, _
ByVal X2 As Int32, _
ByVal Y2 As Int32, _
ByVal X3 As Int32, _
ByVal Y3 As Int32) As Int32
Public Declare Function SetWindowRgn Lib "user32.dll" ( _
ByVal hWnd As Int32, _
ByVal hRgn As Int32, _
ByVal bRedraw As Boolean) As Int32
Public newPoint As New System.Drawing.Point
Public a As Integer
Public b As Integer
حال در رويداد لود فرم روال RoundFormCorners() را فرامي خوانيم.
کد:
Public Sub RoundFormCorners()
'Round the corners of the form
SetWindowRgn(Me.Handle.ToInt32, CreateRoundRectRgn(0, 0, _
Me.Width, Me.Height, _
25, 25), _
True)
SetWindowRgn(Me.Handle.ToInt32, CreateRoundRectRgn(0, 0, _
Me.Width, Me.Height, _
25, 25), _
True)
End Sub
حال يك مشكل باقي ميماند : فرم ما فاقد حاشيه است و جابجا نميشود(زيبايي چنداني هم ندارد). براي حل اين مشكل 4 برچسب در فرم قرار داده و خاصيت Duck هر يك را به سمت بالا،پايين،چپ و راست ست ميكنيم(دو برچسب كناري هر چه عرض كمتري داشته باشند زيباتر ديده ميشوند مثلا 2).براي جابجا كردن فرم در رويداد MouseDown برچسبهاي بالا و پاييين كد زير را وارد ميكنيم
کد:
a = Me.MousePosition.X - Me.Location.X
b = Me.MousePosition.Y - Me.Location.Y
کد:
و در رويداد MouseMove برچسبهاي بالا و پايين كد زير را :
If e.Button = MouseButtons.Left Then
newPoint = Me.MousePosition
newPoint.X = newPoint.X - (a)
newPoint.Y = newPoint.Y - (b)
Me.Location = newPoint
End If
در اين حالت با كليك بر روي هر كدام از برچسبهاي بالا و پايين و كشيدن آن به هر جايي كه خواستيم ميتوانيم فرم را جابجا كنيم.
فرمهای جمع شونده با گرادیان(*********)
یک کنترل جالب مشابه عکس بالا دارم. دوستان لطف کنند یه سایت معرفی کنند تا آپلود کنم.
نوار منو و نوار ابزار office 2003 برای برنامه های دات نت
یک کنترل بسیار عالی که مطمئنا خیلیها دنبالشن
همه چیز رو متحول میکنه/
کد نویسی این ابزار بسیار ساده. در ضمن شامل کنترلهای منو, نوار ابزار , استاتوس بار, تاسک بار است.
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
التماس دعا
افکتهای زیبا برای خروج از برنامه
1 ) افزایش شفافیت فرم تا 100
در رویداد Form Closing :
کد:
Dim i As Integer
For i = 90 To 10 Step -1
Me.Opacity = i / 100
Me.Refresh()
'Delay the fading
Threading.Thread.Sleep(10)
Next
2 ) جمع شدن فرم
در رویداد کلیک دکمه :
کد:
Try
Dim x As Long
For x = 0 To 249
Do Until Me.Height = 0
Me.Height -= 7
Exit Do
Loop
Next
Dim y As Long
For y = 0 To 249
Do Until Me.Width = 0
Me.Width -= 7
Exit Do
Loop
Next
Application.Exit()
Catch ex As Exception
Application.Exit()
Finally
Application.Exit()
End Try
