[علي بنيان]

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


'37-تحميل صورة بخلفية الفورم عن طريق مربع حوار

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Try
            Me.OpenFileDialog1.ShowDialog()
            Me.BackgroundImage = Image.FromFile _
            (Me.OpenFileDialog1.FileName)
        Catch ex As Exception
            MsgBox("من فضلك اختر صورة")
        End Try


    End Sub
End Class

'37-تحميل صورة بخلفية الفورم عن طريق مربع حوار 


'38-جعل خلفية الفورم متدرجة

PHP كود :

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        Dim rec As Rectangle = New Rectangle _
        (0, 0, Me.Width, Me.Height)
        Dim myBrush As Brush = New Drawing.Drawing2D. _
        LinearGradientBrush(rec, Color.Aqua, Color.Yellow, _
        Drawing.Drawing2D.LinearGradientMode.ForwardDiagonal)
        e.Graphics.FillRectangle(myBrush, rec)

    End Sub
End Class

'38-جعل خلفية الفورم متدرجة