kullanıcı girişi

[skat]

Herkese iyi geceler
Sayın hocalarım: userform üzerinde numaratör var
giriş şifresi sadece rakamlarda oluşuyor.
benim sorum giriş için sadece bu numaralar kullanılsın klavye devre
dışı kalabilirmi?
şifre "8458"

 

[Ayhan Ercan]

Merhaba Sayın skat

Textbox1'in KeyUp olayını kullanarak sonuca varabilirsiniz..

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1 = ""
MsgBox "Şifre için Klavye Kullanımı Kapalıdır." & Chr(13) & "Lütfen Şifrenizi Yandaki Tuşlar ile Giriniz.", vbOKOnly, "UYARI"
End Sub

 

[Zeki Gürsoy]

 [LEFT][COLOR=Black][COLOR=blue][FONT=&quot][B]Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)[/B][/FONT][/COLOR][/COLOR][/LEFT]
  [LEFT][COLOR=Black][COLOR=blue][FONT=&quot][B]   [/B][/FONT][/COLOR][COLOR=#339966][FONT=&quot][B] [/B][/FONT][/COLOR][COLOR=blue][FONT=&quot][B] [/B][/FONT][/COLOR][/COLOR][/LEFT]
  [LEFT][COLOR=Black][COLOR=blue][FONT=&quot][B]   If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then[/B][/FONT][/COLOR][/COLOR][/LEFT]
  [LEFT][COLOR=Black][COLOR=blue][FONT=&quot][B]        KeyAscii = 0[/B][/FONT][/COLOR][/COLOR][/LEFT]
  [LEFT][COLOR=Black][COLOR=blue][FONT=&quot][B]    End If[/B][/FONT][/COLOR][/COLOR]
[COLOR=Black][COLOR=blue][FONT=&quot][B]
[/B][/FONT][/COLOR][/COLOR][/LEFT]
  [LEFT][COLOR=Black][COLOR=blue][FONT=&quot][B]End Sub[/B][/FONT][/COLOR][/COLOR][/LEFT]

 

[Ayhan Ercan]

Alternatif olarak

KeyPress olayına;

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
MsgBox "Şifre için Klavye Kullanımı Kapalıdır." & Chr(13) _
& "Lütfen Şifrenizi Yandaki Tuşlar ile Giriniz.", vbOKOnly, "UYARI"
SendKeys "{backspace}"
End Sub

 

[hurkanpisirici]

şifre girme ekranı çok hoşuma gitti harika olmuş emeğinize sağlık kolay gelsin

 

[skat]

İyi Günler ,
Cevap yazan değerli arkadaşlara canı gönülden teşekkür ederim.