menampilkan asisten office sebagai pengganti msgbox di vb net

dalam trik kali ini kita akan membahas bagaimana cara menampilkan assisten office sebagai media interaktif user untuk menampilkan info2 selain menggunakan msgbox
ayoo langsung saja berkoding ria



Imports System.Windows.Forms
Imports AgentObjects
Public Class Agent
Public aksi As _aksi
Public Merlin As AgentObjects.IAgentCtlCharacter
Public ctlAgent As New AgentObjects.Agent
Public Const DATAPATH = "C:\Windows\Msagent\Chars\Merlin.acs"
Public Sub New()
ctlAgent.Connected = True
ctlAgent.Characters.Load("Merlin", DATAPATH)
Merlin = ctlAgent.Characters("Merlin")
End Sub
Public Enum _aksi
GetAttention
GetAttentionReturn
Explain
Congratulate
Announce
Congratulate_2
DontRecognize
Write
Surprised
Suggest
Wave
End Enum

Public Sub PanggilAgent(ByVal aksi As _aksi, ByVal stringtext As String, ByVal locationX As Integer, ByVal locationY As Integer)
Try
Merlin.MoveTo(CShort(locationX + 420), CShort(locationY + 130))
Merlin.Show()
Merlin.Play(aksi.ToString())
Merlin.Speak(stringtext)
Merlin.IdleOn = True

Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub

Public Sub moveagent(ByVal htop As Integer, ByVal hleft As Integer, ByVal hwidth As Integer)
Try
Merlin.MoveTo(hleft + 20, htop + hwidth - 200)
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
End Class

jangan sampe lupa, add dulu referencenya, pilih microsoft agent control 2.0. selamat mencoba, semoga bermanfaat
Selengkapnya...

membuat fungsi validasi huruf saja dengan vb net

nie contoh saya ambil dari sesepuh programer ud muncul jogja, piss yak hehehee

'Hanya Huruf yang diperbolehkan
Public Shared Sub HanyaHuruf(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If StringType.StrLike(e.KeyChar.ToString(), "[A-Z]", CompareMethod.Binary) OrElse StringType.StrLike(e.KeyChar.ToString(), "[a-z]", CompareMethod.Binary) OrElse e.KeyChar = Chr(8) OrElse e.KeyChar = (" "c) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

validasi ini hanya akan mengijinkan karakter huruf saja [A-Z], [a-z] dan spasi.
fungsi tersebut paling afdol kalo dijadiin dalam sebuah class fungsi,sehingga bisa dipake dalam beberapa form, semoga bermanfaat teman

Selengkapnya...

contoh menulis dan membaca registry vb net

dalam contoh ini saya menggunakan 2 command button dan sebuah textbox

Imports Microsoft.Win32
Private Sub btnTes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTes.Click
Dim write As RegistryKey = Registry.LocalMachine.OpenSubKey("Software", True)
Dim key As RegistryKey = write.CreateSubKey("Tes")
Try
key.SetValue("program", Text1.Text)
Me.Close()
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub

Private Sub btnTes2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTes2.Click
Dim read As RegistryKey = Registry.LocalMachine
Try
read = read.OpenSubKey("Software\\Tes")
Text1.text = read.GetValue("program")
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub

untuk melihat hasilnya melalui regedit, selamat mencoba,,,,,,, semoga bermanfaat



Selengkapnya...

menambahkan suara pada tombol

trik untuk menambahkan suara pada saat tombol di klik. file yang didukung berupa file wav.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
CommonDialog1.Filter = "File WAV (*.wav)|*.wav"
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
On Error Resume Next
sndPlaySound CommonDialog1.FileName, SND_ASYNC
End Sub


Selengkapnya...

membuat form bergradasi

kali ini kita akan membuat agar form menjadi lebih cantik yakni dengan membuat form yang bergradasi, untuk membuat form yg bergradasi kita hanya perlu memainkan nilai komposisi warna RGB nya. contoh dalam aplikasi :

Private Sub Form_Paint()
Dim i As Integer

DrawMode = 13
DrawWidth = 6
ScaleMode = 3
ScaleHeight = 255
For i = 0 To 254
Line (0, i)-(Width, i + 1), RGB(255 - i, 0, 0), B
Next i
End Sub
Selengkapnya...

membuat stopwatch sederhana

dalam membuat stopwacth sederhana ini kita membutuhkan sebuah form, sebuah label, sebuah timer dan dua buah command button. dua command button ini digunakan pada saat start stopwatch dan reset stopwatch. script lengkapnya dapat dilihat seperti dibawah ini :

Dim total10detik, totaldetik, detik10 As Integer
Dim detik, menit, jam As Integer

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Command2_Click()
total10detik = -1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
total10detik = total10detik + 1
detik10 = total10detik Mod 10
totaldetik = Int(total10detik / 10)
detik = totaldetik Mod 60
menit = Int(totaldetik / 60) Mod 60
jam = Int(totaldetik / 3600)
Label1 = jam & ":" & menit & ":" & detik & ":" & detik10
End Sub
Selengkapnya...

script untuk menghitung waktu mundur

dalam tutorial kali ini kita akan mencoba membuat sebuah script sederhana untuk menghitung mundur waktu. sebelumnya kita persiapkan dalam project kita sebuah form, sebuah komponen timer dan sebuah comand button serta sebuah label.
untuk scripnya dapat dituliskan sebagai berikut :

Dim total10detik, totaldetik, detik10 As Integer
Dim detik, menit, jam As Integer

Private Sub Form_Load()
jam = Hour(Now)
menit = Minute(Now)
detik = Second(Now)
Time = TimeSerial(jam, menit, detik)
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
total10detik = detik * 10 + menit * 600 + jam * 36000
End Sub

Private Sub Timer1_Timer()
If total10detik <= 0 Then
Beep
Label1 = "0:0:0"
Timer1.Enabled = False
Exit Sub
End If

total10detik = total10detik - 1
detik10 = total10detik Mod 10
totaldetik = Int(total10detik / 10)
detik = totaldetik Mod 60
menit = Int(totaldetik / 60) Mod 60
jam = Int(totaldetik / 3600)
Label1 = jam & ":" & menit & ":" & detik
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Selengkapnya...

script untuk menghitung umur vb

untuk menghitung antara dua buah datetime, kita dapat menggunakan fungsi built in pada visual basic yaitu DateDiff. untuk lebih jelasnya dapat melihat source code dibawah ini, untuk contoh masukan sebuah command button dan sebuah dtpicter

Private Sub Command1_Click()
Dim totalhari As Integer
Dim umur As Integer
Dim hari As Integer

totakhari = DateDiff("d", DTPicker1.Value, Date)
umur = totakhari / 365
hari = totakhari - (umur * 365)
MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"
End Sub

selamat mencoba :)
Selengkapnya...

script untuk mendeteksi tahun kabisat pada vb

apa itu tahun kabisat???? menurut wikipedia tahun kabisat (Bahasa Inggris: Leap Year) adalah sebuah Tahun Syamsiah di mana pada tahun tersebut jumlah hari tidak terdiri dari 365 hari tetapi 366 hari.

Terdapat algoritma mudah untuk menentukan apakah suatu tahun termasuk tahun kabisat atau bukan sebagai berikut:

1. Jika angka tahun itu habis dibagi 400, maka tahun itu sudah pasti tahun kabisat.
2. Jika angka tahun itu tidak habis dibagi 400 tetapi habis dibagi 100, maka tahun itu sudah pasti bukan merupakan tahun kabisat.
3. Jika angka tahun itu tidak habis dibagi 400, tidak habis dibagi 100 akan tetapi habis dibagi 4, maka tahun itu merupakan tahun kabisat.
4. Jika angka tahun tidak habis dibagi 400, tidak habis dibagi 100, dan tidak habis dibagi 4, maka tahun tersebut bukan merupakan tahun kabisat.



scripnya mudah saja, ini contoh fungsi yang dapat digunakan

Public Function cek_kabisat(tahun As Integer)
If (tahun Mod 4 = 0) And ((tahun Mod 100 <> 0) Or (tahun Mod 400 = 0)) Then
cek_kabisat = tahun & " tahun kabisat"
Else
cek_kabisat = tahun & " bukan tahun kabisat"
End If
End Function

Selengkapnya...

mengganti pointer mouse dengan gambar

mengganti pointer mouse dengan gambar, trik ini digunakan untuk mempercantik pointer standar yg hanya berbentuk panah, misalnya kita ganti dengan icon palu atau apalah hehehe
langsung saja kita ke pokok bahasan :

yg perlu kita siapkan hanyalah gambar yg akan digunakan untuk menggantikan pointer mouse, file harus berekstensi "ico"

Private Sub Form_Load()
MousePointer = 99
MouseIcon = LoadPicture(App.Path & "\hammer1.ico")
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'pointer mouse akan berubah pada saat di klik
MouseIcon = LoadPicture(App.Path & "\hammer2.ico"): Beep
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseIcon = LoadPicture(App.Path & "\hammer1.ico")
End Sub
Selengkapnya...

membuat animasi pointer

trik kali ini akan membahas bagaimana cara mempercantik pointer mouse,
pertama2 siapkan file yang akan digunakan untuk menggantikan pointer mouse standar,
file ini berekstensi "ani"
dalam project masukkan sebuah form dan dua buah command button serta sebuah module
untuk script codenya bisa dilihat dibawah ini :

script pada bagian module :
Public Const GCL_HCURSOR = -12
Declare Function LoadCursorFromFile Lib "user32" Alias _
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal _
hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


script pada bagian form :
Dim lResult As Long
Dim mhAniCursor As Long

Private Sub Command1_Click()
mhAniCursor = LoadCursorFromFile(App.Path & "\horse.ani")
'file yg akan digunakan untuk menggantikan pointer mouse dijadikan satu dengan project
'ganti horse.ani dengan nama file yg akan digunakan
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhAniCursor)
End Sub

Private Sub Command2_Click()
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End Sub

Private Sub Form_Unload(Cancel As Integer)
lResult = SetClassLong((hwnd), GCL_HCURSOR, mhBaseCursor)
End Sub

Selengkapnya...

melihat nilai keyascii pada keyboard

tips kali ini kita akan melihat berapa nilai keyascii pada keyboard, dalam tips kali ini kita membutuhkan sebuah form dan sebuah textbox
pada event textbox pilih keypress. kemudian tuliskan kode seperti dibawah ini :

Private Sub Form_KeyPress(KeyAscii As Integer)
Text1 = KeyAscii
End Sub
Selengkapnya...

menyembunyikan pointer mouse

trik sederhana ini digunakan untuk menyembunyikan pointer mouse pada form,
langsung saja, kita hanya perlu mendeklarasikan fungsi showcursor.
berikut ini contohnya :

kita membutuhkan sebuah form dan 2 buah command button dalam project kali ini :
'script codenya

Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Unload(Cancel As Integer)
ShowCursor True
End Sub

Private Sub Command1_Click()
ShowCursor True
End Sub

Private Sub Command2_Click()
ShowCursor False
End Sub

Selengkapnya...

membuat label bergradasi

dalam trik kali ini kita akan membuat sebuah label yg apabila dijalankan akan menghasilkan warna yg bergradasi, tujuan nya untuk mempercantik form itu sendiri.
Bagaimana cara membuatnya????? ohh ternyata sangat mudah, kita hanya perlu menggeser value kode warnanya.
OK langsung saja ke project nya saja :

kita ambil contoh sebuah form, sebuah label untuk objeknya dan komponen timer, kita ambil default namanya saja form1,label1 dan timer 1

pada komponen timer1 di dobel untuk masuk ke bagian kode, lalu tulis skrip dibawah ini :

Private Sub Timer1_Timer()
Static A
A = A + 10: If A > 500 Then A = 0
Label1.ForeColor = RGB(0, 0, Abs(A - 256))
End Sub

selamat mencoba, happy coding :)
Selengkapnya...

Membuat alphablended form

apa itu yg dimaksud alphablended form??? AlphaBlend merupakan sebuah animasi ketika proses atau aplikasi mulai load atau berjalan. Dengan berupa muncul sedikit demi sedikit ataupun menghilang sedikit demi sedikit, sehingga akan mempercantik program yg anda buat, project kali ini kita buat dengan visual basic 06
langsung saja

pertama2 buka dulu vb06 nya, ya iyalah masak mau koding pake photoshop hehehehe
sebagai contoh :
1. masukkan sebuah form dengan komponen timer, misalkan saja kita beri nama form1 dan timer1
2. buat sebuah modul

untuk script kodingnya pada bagian form1 :
Option Explicit
Dim Transparan As Integer
Dim mulai As Boolean

Private Sub Form_Load()
mulai = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True: mulai = False
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
If mulai Then
Transparan = Transparan + 5
If Transparan > 255 Then Transparan = 255: Timer1.Enabled = False
Else
Transparan = Transparan - 5
If Transparan < 0 Then Transparan = 0: End End If SetTransparan Form1.hwnd, Transparan End Sub

untuk script kodingnya pada bagian module:
Option Explicit
Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal x As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Sub SetTransparan(frm As Long, nilai As Integer)
On Error GoTo Err
Dim attrib As Long
attrib = GetWindowLong(frm, GWL_EXSTYLE)
SetWindowLong frm, GWL_EXSTYLE, _ attrib Or WS_EX_LAYERED SetLayeredWindowAttributes frm, RGB(255, 255, 0), nilai, LWA_ALPHA
Exit Sub
Err:
MsgBox Err.Description & " Source : " & Err.Source
End Sub

sekian dari saya selamat mencoba,,,,,,, happy coding :)
Selengkapnya...

encrypt and decrypt with vb

Public Function Encrypt(ByVal Teks As String) As String
Dim Panjang_Teks As Integer
Dim Teks_Baru As String

Karakter = ""
Panjang_Teks = Len(Teks)

For i = 1 To Panjang_Teks
Karakter = Mid(Teks, i, 1)
Select Case Asc(Karakter)
Case 65 To 90 'huruf besar
Karakter = Chr(Asc(Karakter) + 100)
Case 97 To 122 'huruf kecil
Karakter = Chr(Asc(Karakter) + 100)
Case 48 To 57 'angka
Karakter = Chr(Asc(Karakter) + 100)
Case 32 'spaci
Karakter = Chr(32)
End Select
Teks_Baru = Teks_Baru + Karakter
Next
Encrypt = Teks_Baru
End Function


Public Function Decrypt(ByVal Teks As String) As String
Dim Panjang_Teks As Integer
Dim Teks_Baru As String

Karakter = ""
Panjang_Teks = Len(Teks)

For i = 1 To Panjang_Teks
Karakter = Mid(Teks, i, 1)
Select Case Asc(Karakter)
Case 165 To 190
Karakter = Chr(Asc(Karakter) - 100)
Case 197 To 222
Karakter = Chr(Asc(Karakter) - 100)
Case 148 To 157
Karakter = Chr(Asc(Karakter) - 100)
Case 32
Karakter = Chr(32)
End Select
Teks_Baru = Teks_Baru + Karakter
Next
Decrypt = Teks_Baru
End Function

Private Sub Command1_Click()
Text2 = Encrypt(Text1)
End Sub

Private Sub Command2_Click()
Text3 = Decrypt(Text2)
End Sub

check this out for example encrypt decrypt with vb 06
Selengkapnya...

transfer data from access database into excell with vb

Option Explicit
Dim con As ADODB.Connection
Dim rec As ADODB.Recordset
Dim connectString As String
Dim objExcel As Object
Dim objTemp As Object

Public Sub excel(rec As ADODB.Recordset)
Dim indexbaris As Integer
Dim indexcolom As Integer
Dim jmlrecord As Integer
Dim jmlfield As Integer
Dim totalbaris As Variant
Dim excelVersion As Integer

totalbaris = rec.GetRows()

jmlrecord = UBound(totalbaris, 2) + 1
jmlfield = UBound(totalbaris, 1) + 1

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add

Set objTemp = objExcel
excelVersion = Val(objExcel.Application.Version)
If (excelVersion >= 8) Then
Set objExcel = objExcel.ActiveSheet
End If

indexbaris = 1
indexcolom = 1
For indexcolom = 1 To jmlfield
With objExcel.Cells(indexbaris, indexcolom)
.Value = rec.Fields(indexcolom - 1).Name
With .Font
.Name = "Tahoma"
.Bold = True
.Size = 8
End With
End With
Next

rec.Close
Set rec = Nothing

With objExcel
For indexbaris = 2 To jmlrecord + 1
For indexcolom = 1 To jmlfield
.Cells(indexbaris, indexcolom).Value = totalbaris(indexcolom - 1, indexbaris - 2)
Next
Next
End With

objExcel.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit
End Sub

Private Sub Form_Activate()
Dim SqlString As String

Set con = New ADODB.Connection
Set rec = New ADODB.Recordset

connectString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"

SqlString = "SELECT * FROM Publishers where PubID <= 50" con.Open connectString rec.CursorLocation = adUseClient rec.Open SqlString, con End Sub Private Sub Command1_Click() Call excel(rec) End Sub

check this out for example

Selengkapnya...

Cara membuat hyperlink di Visual Basic

nie ku kasih lihat preview project yg mau kita bikin. yaitu buat sebuah form dan 3 buah comand button di dalam nya.
dalam project cara membuat hyperlink akan ada 3 sampel yakni link ke web, link ke control panel dan link ke file exe. oke langsung saja menuju tkp.


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub link_Click(Index As Integer)
Select Case Index
Case 0
result = ShellExecute(Me.hwnd, vbNullString, "http:\\www.google.co.id", vbNullString, vbNullString, SW_SHOWNORMAL)
Case 1
result = Shell("rundll32.exe shell32.dll, Control_RunDLL", 5)
Case 2
result = Shell(App.Path & "\form transparan.exe", 5)
End Select
End Sub

download source code
Selengkapnya...

Membuat kotak dialog browse for forder

Pertama-tama buat project baru :
1. tambahkan form dan sebuah command button
2. buat sebuah module
ketikkan script kode berikut pada module


Public Const BIF_RETURNONLYFSDIRS = 1
Public Const BIF_DONTGOBELOWDOMAIN = 2
Public Const MAX_PATH = 260
Declare Function SHBrowseForFolder Lib _
"shell32" (lpbi As BrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
Declare Function lstrcat Lib "kernel32" _
Alias "lstrcatA" (ByVal lpString1 As String, ByVal _
lpString2 As String) As Long

Public Type BrowseInfo
hWndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As Long
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type

kemudian untuk menampilkan kotak dialog tersebut pada saat comamnd button di klik ketik script berikut :
Private Sub Command1_Click()
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
'Ganti 'This Is My Title' dengan judul yang ingin Anda 'letakkan pada kotak dialog "Browse For Folders" 'tersebut.
szTitle = "This Is My Title"
With tBrowseInfo
.hWndOwner = Me.hWnd
.lpszTitle = lstrcat(szTitle, "")
.ulFlags = BIF_RETURNONLYFSDIRS + _
BIF_DONTGOBELOWDOMAIN
End With
lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
'Nilai sBuffer adalah directori yang dipilih oleh
'user pada kotak dialog.
sBuffer = Left(sBuffer, InStr(sBuffer, _
vbNullChar) - 1)
MsgBox sBuffer
End If
End Sub


--semoga bermanfaat--
Selengkapnya...

validasi string pada vb (fungsi validasi tombol keyboard)

Tips ini banyak diterapkan untuk menvalidasi suatu text box agar pada waktu input ke database bisa sesuai dengan tipe data yang digunakan, misal text box hanya menampilkan angka atau huruf saja, untuk lebih jelasnya lihat script berikut :

tips untuk menampilkan angka saja :

'Hanya karakter 0 sampai dengan 9 saja.
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

'Cara di atas hanya menerima karakter 0 sampai dengan 9 'saja. Agar tombol lainnya seperti Delete, BackSpace, 'dan SpaceBar juga bisa diterima, Anda bisa menggunakan 'tips di bawah ini:

Private Sub Text2_KeyPress(KeyAscii As Integer)
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
End Sub

tips untuk menghindari karakter tertentu :

Private Sub Text1_KeyPress(KeyAscii As Integer)
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
End Sub


--semoga bermanfaat--
Selengkapnya...