AccessTr.neT

Tam Versiyon: textboxta imlecin olduğu yere, butonla karakter ekleme.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhaba üstatlar. Ø ve ° butonlarına bastığımda, bunları metin kutusundaki imlecin olduğu yere eklemek istiyorum. Yardımcı olursanız sevinirim. ornek ektedir.
Kod:
Private Sub Command3_Click()
Me.Text0 = Me.Text0 & Chr$(216)
End Sub

Private Sub Command4_Click()
Me.Text0 = Me.Text0 & Chr$(176)
End Sub
TEŞEKKÜRLER.
Hocam, Ø butonuna tıkladığımda metinin sonuna ekliyor. İmlecin olduğu yere ekletmek için ne yapmam gerekiyor.
Peki ilgili metin kutusunun "tuşa basıldığında" olayına şu kodları yazıp dener misiniz?
Butonlar yerine F2 ve F3 tuşlarına basmalısınız.

Kod:
Private Sub Text0_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case vbKeyF2
        Me.Text0 = Left(Me.Text0.Text, Me.Text0.SelStart) & Chr$(216) & Mid(Me.Text0.Text, Me.Text0.SelStart + 1)
        Me.Text0.SetFocus
    Case vbKeyF3
        Me.Text0 = Left(Me.Text0.Text, Me.Text0.SelStart) & Chr$(176) & Mid(Me.Text0.Text, Me.Text0.SelStart + 1)
        Me.Text0.SetFocus
    End Select
End Sub
güzel bir soru cevabını bendde merak ettim
butona tıklayıca imlecin yeri değişiyor
acaba sadece kısa yol tuşlarıyla mı olacak
yoksa program imlecin eski yerini (buton tıklanmadan önceki) hafızada tutabiliyor mu
teşekkürler