MEMBUAT ANIMASI PADA TOMBOL START XP

Awalnya gue liat gak sengaja diwarnet, tulisan tombol START kompie nya pke nama tuh warnet tapi gue berkhayal bisa gak ya klo tombol START kompie bukan cuma diganti aj tapi ada efek animasinya,, hemmmm??? setelah gw cb googling akhrnya gw dpet jg caranya. tombol START kompi lw akan bergerak dengan nama keinginan lw,, Penasaran mau cb? ok Cekidot


Buka program VB lw, Pilih Standard exe.
Setelah itu tambahkan 1 objek Timer dengan nama Timer1, pada form
klo udah klik 2x pada form kemudian copas code dibawah


Option Explicit
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

' ________________________________________________________________________
' __ : Bego_Shell_TrayWnd, 09-Aug-2006 9:44:50 PM ¯¯¯
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
' Module : Form1
' Author : Support
' Note : Mendapatkan HWND Start Button pada WindowXP
' History :
' ________________________________________________________________________
Function Bego_Shell_TrayWnd() As Long
Dim vbBeGo(1 To 2) As Long
'/Cari class Shell_TrayWnd
vbBeGo(1) = FindWindow("Shell_TrayWnd", vbNullString)
'/Cari Start Button Pada Class Shell_TrayWnd
vbBeGo(2) = FindWindowEx(vbBeGo(1), ByVal 0&, "Button", vbNullString)
Bego_Shell_TrayWnd = vbBeGo(2)
End Function


Private Sub Form_Load()
Timer1.Interval = 200
End Sub

' __________________________________________________________________
' __ : Timer1_Timer, 09-Aug-2006 9:45:35 PM ¯¯¯
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
' Module : Form1
' Author : Support
' Note : Animasi dengan menggunakan timer
' History :
' __________________________________________________________________

Private Sub Timer1_Timer()
Dim hText As String, btnHwnd As Long
Static pos As Integer

'/Set animasi Text
hText = " Visual Basic Community (www.vbbego.com)"

'/Masukan Hwnd Tombol Start
btnHwnd = Bego_Shell_TrayWnd
If btnHwnd > 0 Then

If pos < Len(hText) Then
pos = pos + 1
Else
pos = 1
End If

'/Rubah Text Baru
SetWindowText Bego_Shell_TrayWnd, Mid(hText, pos, 4)
'/Tampilkan perubahan text baru
RedrawWindow Bego_Shell_TrayWnd, ByVal 0&, ByVal 0&, &H1


End If
End Sub



Nah klo udah compile dah jd .exe dan taruh di startup kompie lw.
o iya pas di code tulisan yang tebal dan miring itu lw ubah aj pke nama lw atau apalah karena itu lah tulisan yang akan muncul di tombol START.



SUMBER: http://vb-bego.net/page.php?code=bcbe3365e6ac95ea2c0343a2395834dd