[محمود بكرى]

بارك الله فيك .... مواضيعك كلها لمسة ابداع ....بالتوفيق

[علي بنيان]

(11-01-20, 11:44 AM)محمود بكرى كتب : بارك الله فيك .... مواضيعك كلها لمسة ابداع ....بالتوفيق

الله يبارك بيك اخي الغالي 
اشكرك كلك ذوق

[علي بنيان]

السلام عليكم 
هذا الموضوع استكمال لدورة الاكواد الشاملة 


'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-اخفاء الفورم من شريط المهام عند تصغيرها 


[علي بنيان]

السلام عليكم 

هذا الموضوع استكمال لدورة الاكواد الشاملة 

'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-التحكم في حجم الفورم 


[علي بنيان]

السلام عليكم

هذا الموضوع استكمال لدورة الاكواد الشاملة

'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-جعل الفورم شفافة 


[علي بنيان]

السلام عليكم 

هذا الموضوع استكمال لدورة الاكواد الشاملة 

'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-جعل الفورم على شكل قلب 


[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'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-الفورم يظهر دائرة داخل دائرة 


[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'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-كود اخر لجعل الفورم على شكل دائرة 


[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'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-اظهار الفورم بشكل بيضوي 


[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'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-جعل الفورم تقوم بعملية وميض