easy questions
Hello .
1-How to install a new Font to my computer , for example Times New Roman Tur ( for Turkish )
2-put the cursor at the end of the text in a textbox .
3-While I write in a textbox , I want to activate the command1_click event pressing KeyReturn .
[278 byte] By [
EI00618] at [2007-11-15 17:37:32]
# 1 Re: easy questions
>1-How to install a new Font to my computer , for example Times New Roman Tur ( for Turkish )
1) Start-> Settings->Control panel->
select Fonts, Select installfonts from file menu, select the font file path to install. Thats it.
>2-put the cursor at the end of the text in a textbox .
2) here is the code that u can write to send the cursor to the end of the text
Text1.SelStart = len(Text1.Text)
Text1.SetFocus
>3-While I write in a textbox , I want to activate the command1_click event pressing KeyReturn .
3)Following code activates next control when return key pressed.
private Sub Text1_KeyPress(KeyAscii as Integer)
If KeyAscii = 13 then
SendKeys "{tab}"
End If
End Sub
Regards
sanjay@reliableanswers.com
Bangalore, India.
-Sanjay kattimani
# 2 Re: easy questions
Thanks for your answers .But I have more questions .
1)Where can I find (in Internet , I suppose) new fonts that doesn't exist in file path ? , for example Times new roman tur ( for turkish) doesn't exist in c:/windows/fonts
2)I can't put the cursor at the end ... , I don't know why .If I automaticly select all the text ... ,it could be good as well ... , how to do it ? .
3)My purpose it's a little bit coplicated : I'm writing in a textbow that doesn't accept keyreturn.But when the user press keyreturn , the comandbutton must be clicked , but the focus should be still in textbox , and the cursor is at the end of the text .Your code , I think that it's not adequate ...
Thanks anyway .
# 3 Re: easy questions
the subject 2) is solved ... , was easy ... , but not the first and the third .
# 4 Re: easy questions
1) yes its internet.
2) You said u solved it
3)This code will execute what ever is there in command button and select the text in text1 and set the focus back.
private Sub Text1_KeyPress(KeyAscii as Integer)
If KeyAscii = 13 then
Call Command1_Click
Text1.SelStart = 0
Text1.SelLength = len(Text1.Text)
Text1.SetFocus
End If
End Sub
-Regards
sanjay@reliableanswers.com
-Sanjay kattimani
# 5 Re: easy questions
Sorry , the lqst question ...;
I've searched through internet for the strange True Type Fonts (f.example.Times New Roman Tur) that I want to install in my OS , but I didn't find a thing . Do you know some place concretely ? .
