ternyata saya temukan solusinya yaitu
1. buat folder di drive C dengan nama visual basic 6 atau terserah anda mau buat apa
2. copy semua file visual basic 6 ke dalam Folder yang tadi anda buat di Drive C
3. Klik Folder Setup di dalam folder yang ada di Drive C
4.jangan coba coba klik di file setup.exe
4.jangan coba coba klik di file setup.exe
5. klik 2x di file acmsetup.exe setelah selesai
6. klik di acmboot maka proses instalasi VB akan berjalan
selamat menginstal vb di windows 8 atau windows 8.1
=======================================
1. Agar di Textbox hanya dapat di isi dengan data numerik / Angka.
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
Dengan Koding diatas, Selain hanya mengaktifkan Tombol 0 dan 9, tombol seperti Delete, BackSpace, ‘dan SpaceBar juga bisa diterima. Pada contoh disini saya menggunakan Event KeyPress.
2. Hanya Huruf besar yang boleh di Input pada Textbox
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Dengan Koding diatas, Semua yang di inputkan akan menjadi Huruf Besar. Koding ini di letakkan pada even OnKeypress().
3. Hanya Huruf Kecil yang boleh Di Entri kedalam Textbox
KeyAscii = Asc(LCase(Chr(KeyAscii)))
Walaupun kita aktifkan Capslock, Huruf yang akan di entri akan berubah menjadi Huruf Kecil. Cara diatas menggunakan event Keypress.
4. Menghindari Input Karakter – Karakter tertentu
Dim sTemplate As String
'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda
'inginkan untuk dihindari diinput pada Text1
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _
KeyAscii = 0
Dengan Koding diatas, Anda akan menghindari Input karakter “!@#$%^&*()_+=”, Jika ingin menambah karakternya, tinggal tambah saja karakter yang tidak di inginkan. Cara di atas juga menggunakan even Keypress.
=======================================
1. Agar di Textbox hanya dapat di isi dengan data numerik / Angka.
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
Dengan Koding diatas, Selain hanya mengaktifkan Tombol 0 dan 9, tombol seperti Delete, BackSpace, ‘dan SpaceBar juga bisa diterima. Pada contoh disini saya menggunakan Event KeyPress.
2. Hanya Huruf besar yang boleh di Input pada Textbox
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Dengan Koding diatas, Semua yang di inputkan akan menjadi Huruf Besar. Koding ini di letakkan pada even OnKeypress().
3. Hanya Huruf Kecil yang boleh Di Entri kedalam Textbox
KeyAscii = Asc(LCase(Chr(KeyAscii)))
Walaupun kita aktifkan Capslock, Huruf yang akan di entri akan berubah menjadi Huruf Kecil. Cara diatas menggunakan event Keypress.
4. Menghindari Input Karakter – Karakter tertentu
Dim sTemplate As String
'Ganti '!@#$%^&*()_+=' dengan karakter yang Anda
'inginkan untuk dihindari diinput pada Text1
sTemplate = "!@#$%^&*()_+="
If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then _
KeyAscii = 0
Dengan Koding diatas, Anda akan menghindari Input karakter “!@#$%^&*()_+=”, Jika ingin menambah karakternya, tinggal tambah saja karakter yang tidak di inginkan. Cara di atas juga menggunakan even Keypress.