Вопрос по Visual Basic 6.

[С.М.С]

Доброй ночи! Подскажите решение вопроса! На форме расположены кнопки, подписанные символами транскрипции английского языка, а также элемент textbox. Элемент text заполняется с помощью нажатия на кнопки формы. т.е

Private Sub Command1_Click()
Dim tranc As String
tranc = Form1.Text1.Text
Form1.Text1.Text = tranc & Command1.Caption
End Sub

Private Sub Command2_Click()
Dim tranc As String
tranc = Form1.Text1.Text
Form1.Text1.Text = tranc & Command2.Caption
End Sub

Private Sub Command3_Click()
Dim tranc As String
tranc = Form1.Text1.Text
Form1.Text1.Text = tranc & Command3.Caption
End Sub

и.т.д

так вот после заполнения поля text1 символами, текст не смещается в право, т.е при дальнейшем наборе таким методом невидно вновь вводимых символов, как к примеру если бы текст вводился с помощью обычной клавиатуры.
Подскажите, что можно придумать.

[EducatedFool]

Да вроде всё правильно...
Может, причина именно в символах транскрипции (то есть они добавляются в текстбокс, но не отображаются)

Для проверки перед каждым End Sub добавьте строку
msgbox len(Form1.Text1.Text)

Ну а лучше прикрепите к сообщению Ваш проект - будет НАМНОГО проще разобраться...
Да и вообще, код можно оптимизировать (а то у Вас слишком много одинаковых обработчиков событий)

[С.М.С]

Дело в том, что при вводе более 20 символов через нажатие на кнопки формы, строка не смещается, поэтому и невидно последующих вводимых символов при вводе. Неудобно. Было бы идеальным если кнопкам на форме присвоить теже свойства, что у кнопок на компьютерной клавиатуре(при нажатии).

[EducatedFool]

Во-первых, у текстбокса можно установить свойство MultiLine в True, и увеличить размеры поля.
В этом случае текста влезет очень много (если добавить ещё вертикальную прокрутку)

Во-вторых, можно после ввода каждого символа ставить курсор в конец текстбокса.

В-третьих, проще всего установить свойство Alignment текстбокса в 1 (Right Justify) - выравнивание по правому краю.
Тогда всегда будут видны последние введённые символы.

[С.М.С]

А как осуществить "после ввода каждого символа ставить курсор в конец текстбокса."

[EducatedFool]

Например, так:

Private Sub Text1_Change()
     Me.Text1.SelStart = Len(Me.Text1.Text)
End Sub

[С.М.С]

Отлично! Спасибо большое! То что надо!

[Малый Програмист]

День добрый!
Как в Бейсике делать игры?