[علي بنيان]

السلام عليكم

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


'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-تحميل صورة بخلفية الفورم