Проблемы с текстом
Private Sub Command1_Click()
txtMain.Text = txtMain.Text & "A"
End Sub
Private Sub Command2_Click()
txtMain.Text = txtMain.Text & "B"
End Sub
Думаю просто и понятно.
Вот я кликаю раз десять Command1, а потом хочу вставить
в середине текста "ААААААААААА" , букву "B" но в том месте куда я КЛИКНУЛ МЫШКОИ в TextBox,(а не в конце, как сделано сейчас)
Я не такои уж чаиник, но напишите доступно. Пожалуиста!
Цитата:
Originally posted by dromer
Помогите, есть две функции для TextBox
Private Sub Command1_Click()
txtMain.Text = txtMain.Text & "A"
End Sub
Private Sub Command2_Click()
txtMain.Text = txtMain.Text & "B"
End Sub
Думаю просто и понятно.
Вот я кликаю раз десять Command1, а потом хочу вставить
в середине текста "ААААААААААА" , букву "B" но в том месте куда я КЛИКНУЛ МЫШКОИ в TextBox,(а не в конце, как сделано сейчас)
Я не такои уж чаиник, но напишите доступно. Пожалуиста!
Помогите, есть две функции для TextBox
Private Sub Command1_Click()
txtMain.Text = txtMain.Text & "A"
End Sub
Private Sub Command2_Click()
txtMain.Text = txtMain.Text & "B"
End Sub
Думаю просто и понятно.
Вот я кликаю раз десять Command1, а потом хочу вставить
в середине текста "ААААААААААА" , букву "B" но в том месте куда я КЛИКНУЛ МЫШКОИ в TextBox,(а не в конце, как сделано сейчас)
Я не такои уж чаиник, но напишите доступно. Пожалуиста!
Я так понимаю, что раз кликаю Command1, то значит она висит на кнопке... Проблема решается.
В ГЛОБАЛЬНОЙ переменной на событии потеря фокуса поля с текстом запоминаешь poz=txtMain.SelStart - это переменная которая говорит на какой позиции находится курсор. Ну а потом просто:
Private Sub Command2_Click()
txtMain.Text = left(txtMain, poz)& "B" & mid(txtMain, poz+1)
End Sub
Проверку на нули и другие крайние варианты сам напишешь (коль не чайник..) :-)))
Удачи!
Цитата:
Originally posted by Polev
Я так понимаю, что раз кликаю Command1, то значит она висит на кнопке... Проблема решается.
В ГЛОБАЛЬНОЙ переменной на событии потеря фокуса поля с текстом запоминаешь poz=txtMain.SelStart - это переменная которая говорит на какой позиции находится курсор. Ну а потом просто:
Private Sub Command2_Click()
txtMain.Text = left(txtMain, poz)& "B" & mid(txtMain, poz+1)
End Sub
Проверку на нули и другие крайние варианты сам напишешь (коль не чайник..) :-)))
Удачи!
Я так понимаю, что раз кликаю Command1, то значит она висит на кнопке... Проблема решается.
В ГЛОБАЛЬНОЙ переменной на событии потеря фокуса поля с текстом запоминаешь poz=txtMain.SelStart - это переменная которая говорит на какой позиции находится курсор. Ну а потом просто:
Private Sub Command2_Click()
txtMain.Text = left(txtMain, poz)& "B" & mid(txtMain, poz+1)
End Sub
Проверку на нули и другие крайние варианты сам напишешь (коль не чайник..) :-)))
Удачи!
Senk !!!!!!!
Begu domoi proveryat'
Ogromnoe spasibo !