Informasi

http://www.viralitas.com/

Pointer Windows7...

http://www.rw-designer.com/cursor-set/grayscale

Macam2 Pointer...

http://grynays.deviantart.com/gallery/28125483?offset=48

Driver Toshiba Satellite L640 & L645 Untuk Windows7

Keyboard, Mouse and Input Devices
Realtek USB 2.0 Card Reader	Download
Synaptics Touchpad	Download
ENE CIR Receiver	Download
HP ProtectSmart Hard Drive Protection	Download
Validity Fingerprint Sensor Driver	Download
HP Wireless Assistant	Download
Network
Bluetooth	Download
Broadcom Wireless LAN Driver	Download
Atheros Wireless LAN Driver	Download
Intel PRO/Wireless Drivers	Download
Realtek Ethernet Controller Drivers	Download
Chipset
Intel Chipset Driver *Prameres*	Download

Membuat efek fade VB

Yang Perlu Di Siapkan... :




1 buah Form Kosong terserah dink mo di isi apaan
2 buah Timer
1 Command Button (exit button)

oke kalo udah pertama Buat Declare dari Fungsi" fade codenya kek Gini...

Option Explicit

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 color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean

Const LWA_BOTH = 3
Const LWA_ALPHA = 2
Const LWA_COLORKEY = 1
Const GWL_EXSTYLE = -20
Const WS_EX_LAYERED = &H80000

Dim iTransparant As Integer

Sub MakeTransparan(hWndBro As Long, iTransp As Integer)
On Error Resume Next

Dim ret As Long
ret = GetWindowLong(hWndBro, GWL_EXSTYLE)

SetWindowLong hWndBro, GWL_EXSTYLE, ret Or WS_EX_LAYERED
SetLayeredWindowAttributes hWndBro, RGB(255, 255, 0), iTransp, LWA_ALPHA
Exit Sub
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()

Timer1.Enabled = False
Timer2.Enabled = False
Timer1.Interval = 1
Timer2.Interval = 1
Me.Visible = False
Timer1.Enabled = True

End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Timer1.Enabled = False
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
iTransparant = iTransparant + 5
If iTransparant > 255 Then
iTransparant = 255
Timer1.Enabled = False
End If
MakeTransparan Me.hWnd, iTransparant
Me.Show
End Sub

Private Sub Timer2_Timer()
On Error Resume Next
iTransparant = iTransparant - 5
If iTransparant < 0 Then
iTransparant = 0
Timer2.Enabled = False
End
End If
MakeTransparan Me.hWnd, iTransparant
End Sub

*coco_nk4l*

Visual Basic :
*Membuat Caption Label Bergerak*

- Buat Project baru Standart Exe
- Tambahkan 1 buah Control Timer (Timer1) Property yang diset :
Enable = True, Interval = 100
- Satu Buah Control Label (Label1)

Ketik Coding dibawah ini pada Form Project

Dim Pos As Integer, StartPos As Integer, Lengh As Integer, iTeks As Integer
Dim MyTeks As String

Private Sub Form_Load()
iTeks = 1
End Sub

Private Sub Timer1_Timer()
Pos = Pos + 1
If iTeks = 1 Then
MyTeks = "Ini adalah Contoh ..."
ElseIf iTeks = 2 Then
MyTeks = "Pembuatan Label Berjalan"
ElseIf iTeks = 3 Then
MyTeks = "Dengan Visual Basic"
End If
StartPos = Len(MyTeks)
Lengh = StartPos - Pos
If Lengh = 0 Then
If iTeks = 1 Then
iTeks = 2
ElseIf iTeks = 2 Then
iTeks = 3
ElseIf iTeks = 3 Then
iTeks = 1
End If
Pos = 0 - StartPos
End If
Label1 = Right(MyTeks, Lengh)
End Sub






Semoga Bermanfaat,,GOOD LUCK
Written by eRGe

Kata - Kata Favorit

- Menutupi 1000 kekurangan dengan 1 kelebihan...(R.C)

- Diawali dengan Rencana dan diakhiri dengan Hasil...(R.C)

- Belajarlah Menyimpan sesuatu untuk Hari esok...(R.C)

- Jika sesuatu yang besar Hilang maka sesuatu yang lebih besar akan datang...(R.C)

- Terkadang, kesulitan harus kamu rasakan terlebih dulu sebelum kebahagiaan yang sempurna datang kepadamu..(R.C)

- Terkadang, seseorang lebih memilih tuk tersenyum, hanya karena tak ingin menjelaskan mengapa dia bersedih...(R.C)