sıfır gözükmesin

[köse]

merhaba arkadaşlar artık küçük çaplıda olsa proğram yapabiliyorum katkılarınızdan dolayı hepinize çok teşekkür ederim ama öğrenmeye devam bir sorunum var textbox kutusuna değer girerken kutuda sıfır değeri var ben sadece imlecin olmasını istiyorum bunun için If Then koşulunu nasıl yazmalıyım

 

[Levent Menteşoğlu]

Bunun için userformun initialize olayına Textbox1="" kodunu yazarak deneyin.

 

[xxrt]

İmlecin O TextBoxta görünmesi için,
*TextBox1'i iki kere tıklatarak içine bu kodu yazın.
TextBox1.Setfocus

TextBox'un İçinde Sıfır değeri kalsın isterseniz Açılışta O değeri seçmek yani veri girşine hazır duruma getirmek için,
*
Private Sub UserForm_Initialize()
Me.TextBox1.SelStart = 0
Me.TextBox1.SelLength = Len(Me.TextBox1)
Me.TextBox1.SetFocus
End Sub


İmlecin Devamlı Aynı TextBox'a gelmesi İçin TextBox1'in
*Tabİndex Ã?zelliğini sıfır yapmanız gerekmektedir.Yani UserForm Açılırken İmleç devamlı TextBox1 'de yanacak.

Sıfır Olmasın derseniz,
*TextBox1'in Text Ã?zelliğini silin.