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