Курсор в тексбоксе TextBox

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

Подскажите как программировать нахождение курсора в тексбоксе TextBox
1 Если курсор стоит в начале текстбокса???
2 Поставить курсор перед, после последнего знака текстбокса??
3 Выделить n знак в текстбоксе??

@~~Busine2009~~ · 06.04.2011, 20:27

Положение курсора в TextBox:

Visual Basic

1
2
3

Private Sub CommandButton1_Click()
MsgBox TextBox1.SelStart
End Sub

Поставить курсор перед, после последнего знака текстбокса??

Visual Basic

Private Sub CommandButton1_Click()
With TextBox1
    .SetFocus
    .SelStart = Len(.Text)
End With
End Sub

Выделение второго знака в TextBox:

Visual Basic

Private Sub CommandButton1_Click()
With TextBox1
    .SetFocus
    .SelStart = 1
    .SelLength = 1
End With
End Sub

@Ципихович Эндрю · 06.04.2011, 20:58 **[ТС]**

а как будет если курсор в первом положении а пользователь жмёт BackSpace или стрелку влево, чтобы звук был - Beep

@~~Busine2009~~ · 06.04.2011, 21:18

Visual Basic

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox1.SelStart = 0 And KeyCode = 8 Or _
        TextBox1.SelStart = 0 And KeyCode = 37 Then
    Beep
End If
End Sub

@Ципихович Эндрю · 07.04.2011, 09:02 **[ТС]**

Понял, а как это же самое во всех тексбоксах на форме?

Добавлено через 30 секунд
чтобы к каждому не писать

Добавлено через 11 часов 18 минут

Visual Basic

'код клавищи
lngCode = BuildKeyCode(wdKeyAlt)
'код нескольких клавищ
lngCodesss = BuildKeyCode(wdKeyAlt, wdKeyControl, wdKeyW)
'код клавищи цифровой - имя клавиши
lngCode111 = ??????

Как узнать если есть номер клавиши 8, каково имя клавиши??

@mc-black · 07.04.2011, 09:26

В теле макроса набери wdKey и нажми Ctrl+J - выпадет список с тем, что тебя интересует.
Это перечисление WdKey.

Добавлено через 5 минут
Или сделай так:

Visual Basic

Sub m_1()
    Dim k As WdKey
    
    k =
End Sub

После того, как нажмешь кноку равно и пробел - вывалится весь список перечисления. =)

@Ципихович Эндрю 1584 / 554 / 71 Регистрация: 10.04.2009 Сообщений: 9,034
		1
	Курсор в тексбоксе TextBox 06.04.2011, 19:52. Показов 17470. Ответов 5 Метки нет (Все метки) Подскажите как программировать нахождение курсора в тексбоксе TextBox 1 Если курсор стоит в начале текстбокса??? 2 Поставить курсор перед, после последнего знака текстбокса?? 3 Выделить n знак в текстбоксе?? 0

@Ципихович Эндрю 1584 / 554 / 71 Регистрация: 10.04.2009 Сообщений: 9,034
	06.04.2011, 20:58 [ТС]	3
	а как будет если курсор в первом положении а пользователь жмёт BackSpace или стрелку влево, чтобы звук был - Beep 0

	07.04.2011, 09:26