Hi!Everyone! Do You Know That New API Of Win2000

[iProgram]

I found a new API named AnimateWindow.
You can declare it like that:

Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long

And codes here:


Private Sub Form_Load()
AnimateWindow hwnd, 200, 16
'dwFlags can have value as 1,2,3....
End Sub

NOTE: 1.Form1.BorderStyle should not be "0-none"
2.Win2000 is necessary.

[anaviro]

I recently installed Win2k. The most part of my VB API calls doesn't work any more.

Can you adress me to any site with info about API & Win2k?

Thanks in advance, Roby.

[iProgram]

MSDN is the best way,I think.
http://msdn.microsoft.com

[iProgram]

"SetLayeredWindowAttributes" is another function of win2000
You can use the following code.
It's Verrrrrrrry Cool!!
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = &H2
Private Const LWA_COLORKEY = &H1
-------------Code 1 -----------------------
Private Sub Form_Load()
¡¡¡¡Dim rtn As Long
¡¡¡¡rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
¡¡¡¡rtn = rtn Or WS_EX_LAYERED
¡¡¡¡SetWindowLong hwnd, GWL_EXSTYLE, rtn
¡¡¡¡SetLayeredWindowAttributes hwnd, 0, 200, LWA_ALPHA
End Sub
-------------Code 2 -----------------------
'Add Label1 & Label2 First
Private Sub Form_Load()
¡¡¡¡Dim rtn As Long
¡¡¡¡BorderStyler=0
Label1.ForColor=&HFF0000
Label1.Caption="Hillo,I Am iProgram"
Label2.BackColor=&HFF0000
¡¡¡¡rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
¡¡¡¡rtn = rtn Or WS_EX_LAYERED
¡¡¡¡SetWindowLong hwnd, GWL_EXSTYLE, rtn
¡¡¡¡SetLayeredWindowAttributes hwnd, &HFF0000, 0, LWA_COLORKEY
End Sub




¡¡ ¡¡