vb做生日快乐小程序

《VB代码VB祝福小程序: 祝你生日快乐》代码在这里：http://hi.baidu.com/100bd/blog/item/e16e68ded6e7890648540357.html

源文件找楼主要。

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_COLORKEY = &H1

Private Sub Form_Load()

Me.BorderStyle = 0

Me.BackColor = vbBlue 'vbBlue

Me.WindowState = 2

Dim rtn As Long

rtn = GetWindowLong(hwnd, GWL_EXSTYLE)

rtn = rtn Or WS_EX_LAYERED

SetWindowLong hwnd, GWL_EXSTYLE, rtn

SetLayeredWindowAttributes hwnd, vbBlue, 0, LWA_COLORKEY 'vbBule

End Sub

加上这堆代码以后，随便在上面加几个生日快乐的image

---