السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
35-جعل الفورم تقوم بعملية وميض بأستخدام API
كود PHP:
Public Class Form1
Public Structure FLASHWINFO
Public cbSize As Int32
Public hwnd As IntPtr
Public dwFlags As Int32
Public uCount As Int32
Public dwTimeout As Int32
End Structure
Private Declare Function FlashWindowEx _
Lib "user32.dll" (ByRef pfwi As _
FLASHWINFO) As Int32
Private Const FLASHW_CAPTION As Int32 = &H1
Private Const FLASHW_TRAY As Int32 = &H2
Private Const FLASHW_ALL As Int32 = _
(FLASHW_CAPTION Or FLASHW_TRAY)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim flash As New FLASHWINFO
flash.cbSize = System.Runtime. _
InteropServices.Marshal.SizeOf(flash)
flash.hwnd = MyBase.Handle
flash.dwFlags = FLASHW_ALL
flash.uCount = 5
flash.dwTimeout = 1000
FlashWindowEx(flash)
End Sub
End Class
'35-جعل الفورم تقوم بعملية وميض بأستخدام API
'36-تحميل صورة بخلفية الفورم
كود PHP:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackgroundImage = New Bitmap("mypicture.bmp")
'Me.BackgroundImageLayout = ImageLayout.Stretch
'Me.BackgroundImageLayout = ImageLayout.Center
'Me.BackgroundImageLayout = ImageLayout.Tile
End Sub
End Class
'36-تحميل صورة بخلفية الفورم