Menampilkan Pesan Menggunakan User Agen Pada VB 6.0

Oleh gfgf

Monday, October 20, 2008

Bagikan :

Tweet

Lama ga memposting tentang artikel visual basic sekarang kembali lagi nih…………………… dengan artikel Visual Basic tentunya. Mungkin artikel tentang ini telah banyak dimuat oleh banyak orang tapi manusia biasa cuman ingin membagikan sedikit ilmu yang manusia bisa punya (tapi bukan ilmu mgaic tentunya).

WOKE LANJUT!!!!!!!!!!! wah tapi ga rame kalo ga teriak2 dulu nih teriak ah *ala Tarzan* AWUOUOUOUOuououoUUOUOUOuouououoUUUOUOuououoououou

Nah artikel kali ini manusia biasa coba membuat kotak pesan menggunakan Microsoft Agent Control 2.0 untuk diketahui kotak pesan menggunakan user agen ini kita hanya cukup memanggil sang penyihir (Merlin) yang merupakan bawaaan asli dari Windows. Nah, bagi yang belum tau, semoga artikel ini bermanfaat bagi rekan-rekan sekalian. Baik sekarang kita lanjutkan kecara pembuatannya saja. WOKE

Pertama-tama buatlah project baru dengan pilihan standart exe, Pilih menu Project dan klik Components... Kemudian beri tanda centang pada Microsoft Agent Control 2.0. dan klik OK

Nah kemudian pada toolbos akan bertambah sebuah komponen bernama agent……. Lalu klik icon tersebut, dan tambahkan pada form anda. Sudah lanjut lagi kalo begitu…… Nah, tampilannya entar seperti ini :


Kemudian ketikkan coding (kalo malas copy paste aja) berikut pada coding editor anda dengan cara klik icon view code yang ada pada sudut kanan properties project:

Dim merlin As IAgentCtlCharacterEx
Const DATAPATH = "merlin.acs"
Private Sub Form_Load()
Agent1.Characters.Load "merlin.acs", DATAPATH
Set merlin = Agent1.Characters("merlin.acs")
merlin.LanguageID = &H409
merlin.Show
merlin.MoveTo 700, 10 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.MoveTo 700, 500 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.MoveTo 100, 500 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.MoveTo 400, 300 // dapat diubah sesuai dengan kebutuhan pembacaan dari x,y
merlin.Speak "Kreasi By : Manusia Biasa Contact : http://jenggotcommunity.blogspot.com"
merlin.Hide
End Sub
Setelah itu klik tombol start atau tekan F5 pada keyboard anda. Kalo dijalankan tampilannya seperti ini:


Jika ingin melakukan hasil yang maksimal silahkan kreasi anda.
Sekian artikel dari saya semoga bermanfaat bagi anda sekalian. SELAMAT MENCOBA!!!!!

Artikel lengkap dapat diDownload klik disini

Karena “Ilmu itu untuk diamalkan”
jadi …"Letakkanlah Ilmu itu di
Depan JIDAT Kamu,agar orang lain
dapat mempelajari dan MELIHAT
ilmu kamu"

Tag : Tutorial Visual Basic