
Merhaba üstatlar. Ø ve ° butonlarına bastığımda, bunları metin kutusundaki imlecin olduğu yere eklemek istiyorum. Yardımcı olursanız sevinirim. ornek ektedir.
Private Sub Command3_Click()
Me.Text0 = Me.Text0 & Chr$(216)
End Sub
Private Sub Command4_Click()
Me.Text0 = Me.Text0 & Chr$(176)
End Sub
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