biar textboxnya hanya bisa buat angka n string saja, di event keypress check apa yg diinput user dg fungsi berikut:
Public Function SetAlphaNumericOnly(KeyAscii As Integer) As Integer
Dim s As String
s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
If Not (InStr(s, Str(KeyAscii)) > 0) And Not KeyAscii = vbKeyBack Then
SetAlphaNumericOnly = 0
Else
SetAlphaNumericOnly = KeyAscii
End If
End Function
Dim s As String
s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
If Not (InStr(s, Str(KeyAscii)) > 0) And Not KeyAscii = vbKeyBack Then
SetAlphaNumericOnly = 0
Else
SetAlphaNumericOnly = KeyAscii
End If
End Function
kalau buat tampilan, coba cari komponent2 3rd party yg khusus buat UI, ada banyak banget pilihan tapi yg bagus biasanya sih harus beli :) mungkin yg mas maksud itu yg sejenis vb skin, coba aja liat2 di
www.componentsource.com.
best regards
[wwn]
On 4/5/06, .: Dicky Firmansyah :. <[EMAIL PROTECTED]> wrote:
Assalamu'alaikum Wr WbHalo, rekan-rekan milis...Saya mau tanya, bagaimana caranya agar sebuah textbox hanya bisa digunakan untuk menginput angka atau string saja?Lalu, apakah ada program khusus agar tampilan program yang saya buat di VB tidak monoton (standard windows) ? Jadi seperti kalau kita menggunakan WindowBlinds. Tapi ini khusus untuk program kita saja. Semoga rekan-rekan mengerti maksud saya.Ya sudah.. itu aja dulu. Terima kasih ya rekan-rekan semua....Wassalamu'alaikum Wr Wb
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
