فوائد متنوعة لكافة المبرمجين (3)

Private Declare Sub Sleep Lib 'kernel32' (ByVal dwMilliseconds As Long) 

Sleep 3000 

Const FLASHW_STOP = 0 

Const FLASHW_CAPTION = &H1 

Const FLASHW_TRAY = &H2 

Const FLASHW_ALL = (FLASHW_CAPTION Or FLASHW_TRAY) 

Const FLASHW_TIMER = &H4 

Const FLASHW_TIMERNOFG = &HC 

Private Type FLASHWINFO 

cbSize As Long 

hwnd As Long 

dwFlags As Long 

uCount As Long 

dwTimeout As Long 

End Type 

Private Declare Function FlashWindowEx Lib 'user32' (pfwi As FLASHWINFO) As Boolean 

Dim FlashInfo As FLASHWINFO 

FlashInfo.cbSize = Len(FlashInfo) 

FlashInfo.dwFlags = FLASHW_ALL Or FLASHW_TIMER 

FlashInfo.dwTimeout = 0 

FlashInfo.hwnd = Me.hwnd 

FlashInfo.uCount = 0 

FlashWindowEx FlashInfo 

Me.Visible = Not Me.Visible 

Public Sub Delay(HowLong As Date) 

TempTime = DateAdd('s', HowLong, Now) 

While TempTime > Now 

DoEvents 

Wend 

End Sub 

Delay 5 

MsgBox ' خالد الزعبي', vbExclamation, ' النمر'  

Dim a As Integer 

Dim b As Boolean 

If a > 455 Then b = True 

If a < 10 Then b = False 

If b Then a = a - 10 Else a = a + 10 

Label1.ForeColor = RGB(a, a, a) 

Declare Function mciSendString Lib 'winmm.dll' Alias 'mciSendStringA' (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 

Dim lngReturn As Long 

Dim strReturn As Long 

lngReturn = mciSendString('set CDAudio door open', strReturn, 127, 0) 

lngReturn = mciSendString('set CDAudio door closed', strReturn, 127, 0) 

Picture1.ScaleMode = vbPixels 

x = Picture1.ScaleWidth 

y = Picture1.ScaleHeight 

For i = 0 To y - 1 

For j = 0 To x - 1 

pixel = Picture1.Point(j, i) 

red = pixel Mod 256 

green = ((pixel And &HFF00) / 256) Mod 256 

blue = (pixel And &HFF0000) / 65536 

g = ((red * 30) + (green * 60) + (blue * 20)) / 100 

Picture1.PSet (j, i), RGB(g, g, g) 

Next 

Next 

Picture1.ScaleMode = vbTwips