jika anda ingin mencoba-coba perintah perintah visual basic, atau penasaran script visual basic dan lain sebagainya, tetapi ketika itu anda sedang di rental, komputer teman, kantor, warnet, ato komputer rumah, yang mana dikomputer2 tersebut belum terinstal visual basic, namun anda ingin sekali mempraktekkanya tanpa menunggu harus menginstal visual basic terlebihd dahulu, terus solusinya gimana dong?....
jangan khawatir, banyak jalan menuju STEKOM......
anda bisa make program2 yang ada diwindows such as word, excell, maupun acces....
lets start it,.....
klik tool, macro,macro, ketikkan nama makro yang ingin dinamai sembarang saja (asal jangan nama orang) trus create
kopi pastekan spt ini
rem =========
Public Declare Function CariWindow Lib "user32" Alias "FindWindowA" (byval jeniswindow as string, nama window as string) as long
Public Declare Function UbahJudul Lib "user32" Alias "SetWindowTextA" (byval kodewindow as long, katapengganti as string) as long
sub mbuh()
dim kalimat as string
kode=CariWindow("notepad",vbnullstring)
'kode=CariWindow("Shell_TrayWnd",vbnullstring) ' untuk tombol start
if kode=0 then msgbox "bukak doeloe notepadnya" : exit sub
kalimat=inputbox("kata pengganti ??","320","dapeton")
UbahJudul kode,kalimat
end sub
rem =========
habis itu jalanin, tool,macro,macro,run=== maka dalam sekejap mata caption notepad berubah sesuai dengan yang diinginkan, so simple kan?......
kalo mo buat tombol?... textbox ?....,
alt+f11 (tool,macro,visual basic editor, pada proyek klik kanan, insert userform) trus desain, beri kode jalanin,
