11-01-20, 11:44 AM
11-01-20, 03:42 PM
(11-01-20, 11:44 AM)محمود بكرى كتب : [ -> ]بارك الله فيك .... مواضيعك كلها لمسة ابداع ....بالتوفيق
الله يبارك بيك اخي الغالي
اشكرك كلك ذوق
11-01-20, 03:52 PM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'18-اظهار الفورم بطريقة مميزة مع عدم تمكين المستخدم من استخدامها
'19-تصغير الفورم بشريط المهام
'20-اخفاء الفورم من شريط المهام عند تصغيرها
هذا الموضوع استكمال لدورة الاكواد الشاملة
'18-اظهار الفورم بطريقة مميزة مع عدم تمكين المستخدم من استخدامها
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm As New Form2
frm.ShowDialog(Me)
End Sub
End Class
'18-اظهار الفورم بطريقة مميزة مع عدم تمكين المستخدم من استخدامها
'19-تصغير الفورم بشريط المهام
PHP كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.WindowState = FormWindowState.Minimized
End Sub
End Class
'19-تصغير الفورم بشريط المهام
'20-اخفاء الفورم من شريط المهام عند تصغيرها
PHP كود :
Public Class Form1
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.Hide()
End If
End Sub
End Class
'20-اخفاء الفورم من شريط المهام عند تصغيرها
12-01-20, 12:54 AM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'21-الغاء حدود الفورم و اظهارها بكامل الشاشة
'22-التحكم في حجم الفورم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'21-الغاء حدود الفورم و اظهارها بكامل الشاشة
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
End Sub
End Class
'21-الغاء حدود الفورم و اظهارها بكامل الشاشة
'22-التحكم في حجم الفورم
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New System.Drawing.Size(99, 99)
End Sub
End Class
'22-التحكم في حجم الفورم
12-01-20, 01:00 AM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'23-فتح الفورم بكامل الشاشة
'24-جعل الفورم شفافة
هذا الموضوع استكمال لدورة الاكواد الشاملة
'23-فتح الفورم بكامل الشاشة
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Left = 0
.Top = 0
.Width = Screen.PrimaryScreen.WorkingArea.Width
.Height = Screen.PrimaryScreen.WorkingArea.Height
End With
End Sub
End Class
'23-فتح الفورم بكامل الشاشة
'24-جعل الفورم شفافة
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Opacity = 0.5
End Sub
End Class
'24-جعل الفورم شفافة
12-01-20, 01:08 AM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'25-وضع ايكون للفورم بشريط المهام
'26-جعل الفورم على شكل قلب
هذا الموضوع استكمال لدورة الاكواد الشاملة
'25-وضع ايكون للفورم بشريط المهام
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New NotifyIcon
a.Icon = Me.Icon
a.Visible = True
Me.Hide()
End Sub
End Class
'25-وضع ايكون للفورم بشريط المهام
'26-جعل الفورم على شكل قلب
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New System.Drawing.Size(500, 500)
Dim path As New Drawing2D.GraphicsPath
path.AddArc(70, 10, 150, 150, 135, 195)
path.AddArc(200, 10, 150, 150, 210, 195)
path.AddLine(92, 139, 210, 270)
path.AddLine(327, 139, 210, 270)
path.AddLine(327, 139, 92, 139)
Me.Region = New Region(path)
End Sub
End Class
'26-جعل الفورم على شكل قلب
13-01-20, 06:49 PM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'27-جعل الفورم على شكل دائرة مع تغيير لون الخلفية
'28-الفورم يظهر دائرة داخل دائرة
هذا الموضوع استكمال لدورة الاكواد الشاملة
'27-جعل الفورم على شكل دائرة مع تغيير لون الخلفية
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New System.Drawing.Size(500, 500)
Dim path As New Drawing2D.GraphicsPath
path.AddEllipse(85, 0, 250, 250)
Me.Region = New Region(path)
Me.BackColor = Color.Gray
End Sub
End Class
'27-جعل الفورم على شكل دائرة مع تغيير لون الخلفية
'28-الفورم يظهر دائرة داخل دائرة
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New System.Drawing.Size(500, 500)
Dim path As New Drawing2D.GraphicsPath
path.AddEllipse(85, 0, 250, 250)
path.AddEllipse(135, 50, 150, 150)
path.AddEllipse(160, 75, 100, 100)
Me.Region = New Region(path)
Me.BackColor = Color.Gray
End Sub
End Class
'28-الفورم يظهر دائرة داخل دائرة
13-01-20, 06:56 PM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'29-كود اخر مميز لجعل الفورم على شكل دائرة
'30-كود اخر لجعل الفورم على شكل دائرة
هذا الموضوع استكمال لدورة الاكواد الشاملة
'29-كود اخر مميز لجعل الفورم على شكل دائرة
PHP كود :
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, Me.Width, Me.Height)
Me.Region = New System.Drawing.Region(shape)
End Sub
End Class
'29-كود اخر مميز لجعل الفورم على شكل دائرة
'30-كود اخر لجعل الفورم على شكل دائرة
PHP كود :
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.TextRenderingHint = _
Drawing.Text.TextRenderingHint.ClearTypeGridFit
e.Graphics.SmoothingMode = SmoothingMode.Default
Me.TransparencyKey = Color.Black
e.Graphics.FillRectangle(Brushes.Black, _
Me.ClientRectangle)
Dim lBrush As LinearGradientBrush = New _
LinearGradientBrush(Me.ClientRectangle, _
Color.RoyalBlue, Color.MidnightBlue, _
LinearGradientMode.BackwardDiagonal)
Dim sb As SolidBrush
sb = New SolidBrush(Color.Black)
e.Graphics.FillEllipse(lBrush, Me.ClientRectangle)
End Sub
End Class
'30-كود اخر لجعل الفورم على شكل دائرة
13-01-20, 07:28 PM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'31-اظهار الفورم على شكل نصف دائرة
'32-اظهار الفورم بشكل بيضوي
هذا الموضوع استكمال لدورة الاكواد الشاملة
'31-اظهار الفورم على شكل نصف دائرة
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim path As New Drawing2D.GraphicsPath
path.AddEllipse(15, 150, 250, 250)
Me.Region = New Region(path)
End Sub
End Class
'31-اظهار الفورم على شكل نصف دائرة
'32-اظهار الفورم بشكل بيضوي
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim path As New Drawing2D.GraphicsPath
path.AddEllipse(25, 100, 250, 125)
Me.Region = New Region(path)
End Sub
End Class
'32-اظهار الفورم بشكل بيضوي
13-01-20, 07:37 PM
السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'33-كود جعل الفورم على شكل مثلث
'34-جعل الفورم تقوم بعملية وميض
هذا الموضوع استكمال لدورة الاكواد الشاملة
'33-كود جعل الفورم على شكل مثلث
PHP كود :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Size = New System.Drawing.Size(500, 500)
Dim path As New Drawing2D.GraphicsPath
path.AddLine(0, 0, 216, 320)
path.AddLine(216, 320, 408, 0)
path.AddLine(408, 0, 0, 0)
Me.Region = New Region(path)
End Sub
End Class
'33-كود جعل الفورم على شكل مثلث
'34-جعل الفورم تقوم بعملية وميض
PHP كود :
Public Class Form1
Private Declare Function FlashWindow Lib _
"user32" (ByVal hwnd As Integer, ByVal _
bInvert As Integer) As Integer
Private Const Invert As Integer = 1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
FlashWindow(Me.Handle.ToInt32, Invert)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
End Class
'34-جعل الفورم تقوم بعملية وميض