2 вопроса по UserForm

[tolikman]

Доброго дня, 2 вопроса:
есть открытая UserForm
1) при нажатии на Enter или еще на что-то (например shift,ctrl... знаки преп.), когда фокус находится в TextBox (а лучше где угодно) хочу активировать функцию, как это можно реализовать.
2) можно ли на формах в VBA программно рисовать линии? и если да то как...

[EducatedFool]

Вопрос 2.

Да, можно. Разными способами.

Например, с использованием WinAPI (позволяет рисовать линии, эллипсы и т.д. и т.п.)

В Интернете много примеров. Например, здесь.

А в этой теме есть прикреплённый файл с примером рисования.

Далее Вы просто используете одну из функций

Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpPoint As Long) As Long
Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function RoundRect Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

каждая из которых что-то рисует.



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

Здесь обсуждалась подобная тема.

[tolikman]

EducatedFool большое спасибо!
а как на счет 1 вопроса?

[EducatedFool]

Вопрос 1.

Создайте пустую форму, в модуль формы впишите такой код:

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Application.StatusBar = "KeyCode= " & KeyCode & "            " & "Shift= " & Shift
    If KeyCode = 13 Then MsgBox "Вы нажали клавишу Enter"
End Sub

Теперь, запустив форму, смотрите на строку состояния Excel, и нажимайте разные клавиши ( в том числе удерживая одну или несколько клавиш типа Alt, Ctrl и Shift)

Чтобы при нажатии Enter запускались Ваши макросы, используйте примерно такую конструкцию внутри обработчика события:

    Select Case KeyCode
        Case vbKeyCapital: Макрос1 ' нажата клавиша CapsLock
        Case vbKeyControl: Макрос2 ' нажата клавиша Ctrl
    End Select

когда фокус находится в TextBox (а лучше где угодно) хочу активировать функцию

Для каждого элемента управления придётся создать подобный обработчик. То есть, если у Вас на форме несколько контролов, для каждого из них (ну и про саму форму не забывая) в обработчик впишите подобный код.

Проще сделать функцию, которая принимает в качестве параметра значение KeyCode, и уже, анализируя его, что-то выполняет. После чего вызывать эту функцию из каждого обработчика событий.

[tolikman]

большое спасибо!