ایجاد Theme در فرم های VB.NET [بایگانی]

ir_programmer

چهارشنبه 14 آذر 1386, 16:48 عصر

این مثال کار با Theme رو گذاشتم برای دوستان.
البته بیشتر جنبه آموزشی داره.

shahrdar

چهارشنبه 14 آذر 1386, 19:35 عصر

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

Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
a = Control.MousePosition.X - Me.Location.X
b = Control.MousePosition.Y - Me.Location.Y
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
If e.Button = MouseButtons.Left Then

newPoint = Control.MousePosition
newPoint.X = newPoint.X - (a)
newPoint.Y = newPoint.Y - (b)
Me.Location = newPoint
'Docks Form top left and right corners
If Me.Location.X < 8 And Me.Location.Y < 8 Then
Me.Location = New System.Drawing.Point(0, 0)
End If

If Me.Location.X > (ScreenWidth - (Me.Size.Width)) + 8 And Me.Location.Y < 8 Then
Me.Location = New Point(ScreenWidth - Me.Size.Width, 0)
End If
End If
End Sub

amirsajjadi

چهارشنبه 14 آذر 1386, 22:02 عصر

با سلام خدمت دوستان
طریقه ساخت Theme در تمام محیط های برنامه نویسی
http://barnamenevis.org/forum/showthread.php?p=430160