السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'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-جعل خلفية الفورم متدرجة
رد مع اقتباس
