11 replies to this topic

[kresh7]

how can i make that a textbox dont show a number or a letter
when someone tries to tipp 6 there will nothing appear can someone show me that ?

[TcM]

well in that case you will have to make that when vbKey6 (or something like that) is pressed text1.text = ""

or something similar. Sorry but I can't show you the code because VB6.0 is not installed.

[kresh7]

thanks anyway :D i thing you mean using if text1.text = "6" then
text1.text = "" end if
i thing that should works but i thought there must be an easier way

[Skel]

If text1.text = "6" then
text1.text = "" 
End If 

That's the best way to do it..

[TcM]

No i did not mean that, i mean you should monitor all buttons pressed and if 6 is pressed while you have a focus on text1 then text1.text=""

hope you understood better.

[kresh7]

TcM said:

No i did not mean that, i mean you should monitor all buttons pressed and if 6 is pressed while you have a focus on text1 then text1.text=""

hope you understood better.

i never worked with focus before how is an example code ?

[TcM]

Well I don't have VB 6.0 installed but it's either something like text1.focus or use the procedure text1_onfocus() maybe something like that....

[kresh7]

i will try it i hope i do it right

[badkarma]

TcM said:

No i did not mean that, i mean you should monitor all buttons pressed and if 6 is pressed while you have a focus on text1 then text1.text=""

hope you understood better.

how about ... if the field is called text1...

private sub text1_KeyPress (KeyAscii as integer)

if (KeyAscii = 65) then text1 = ""

end sub 

When typing in text 1, if you type in "A", it blanks the field
so you could do something like ..

dim mypwd as string

private sub text1_KeyPress (KeyAscii as integer)

mypwd = mypwd  + chr(keyascii)
text1 = ""

end sub 

[TcM]

I did not try it, but it seems like it would work.

Nice +rep given.

But please another time use code tags instead of color.

Thanks

[kresh7]

badkarma said:

how about ... if the field is called text1...

private sub text1_KeyPress (KeyAscii as integer)


if (KeyAscii = 65) then text1 = ""


end sub 

When typing in text 1, if you type in "A", it blanks the field
so you could do something like ..

dim mypwd as string


private sub text1_KeyPress (KeyAscii as integer)


mypwd = mypwd  + chr(keyascii)

text1 = ""


end sub 

Thx a lot my frend for this

[kresh7]

It dosent work i dont know why :S