Animasi form Visual Basic   Leave a comment

Oke kita langsung aja ke topik bahasan dalam pembuatan animasi form.Tapi ini masih hanya sebagian y. Are you ready…………

Text Berjalan Biasa :

Label1.Left = Label1.Left – 50
If Label1.left < 0 Then
Label1.Left = Me.Width
End If

Text Berjalan Gaul :
Static Atas As Boolean
Label1.Top = Label1.Top + IIf(Atas, -50, 50)
If Label1.Top < 0 Then
Atas = False
ElseIf Label1.Top > Me.Height – Label1.Height – 300 Then
Atas = True
End If

Form Transparan

Tips kali ini adalah bagaimana Membuat Form Transparant dengan Visual Basic, disini kita menggunakan Fungsi API yaitu GetWindowLong, SetWindowLong dan SetLayeredWindowAttributes. Saya rasa tidak perlu penjelasan yang detail untuk hal ini sobat bisa langsung melihat penampakannya dibawah ini

Bagaimana dengan Codingnya ikuti Langkah – Langkah Berikut :

• Buat Project Baru Standart Exe

Ketik Coding dibawah ini pada Form Project Sobat

Option Explicit

Private Const WS_EX_LAYERED = &H80000

Private Const GWL_EXSTYLE = (-20)

Private Const LWA_COLORKEY = &H1

Private Const LWA_ALPHA = &H2

 

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 crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

 

Private Sub Form_Load()

Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)

Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 0, 255), 128, LWA_ALPHA Or LWA_COLORKEY)

End Sub

 

 

Untuk ketajaman transparant sobat bisa menggati Angka – Angka yang berwarna merah dengan angka yang lain (maximal value 255).

Membuka Notepad dengan Visual Basic
Memang pada dasarnya yang dapat dilakukan di visual basic itu tidak hanya membuat program sederhana saja, melainkan juga dapat membuka program yang ada di komputer kita

Cara ini biasa digunakan untuk pemanggilan virus induk didalam komputer, tapi kali ini saya hanya akan membahas Buka Notepad dengan VB

bahan yang kamu butuhkan hanyalah sebuah form dengan commandbutton didalamnya
lalu kamu masukan kode dibawah ini untuk pemanggilan notepad tersebut

Private Sub mnunotepad_Click()
On Error GoTo errcode
Dim a As Double
a = Shell(“C:\WINDOWS\System32\notepad.exe”, vbNormalFocus)
Exit Sub
errcode:
MsgBox “Notepad tidak bisa dibuka dikomputer mu”, vbError, “Notepad Error!”
Resume Next
End Sub

 

Posted Mei 17, 2012 by abdijeinlaknat brotherbad in Program

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s