| |
|
|
| | VBA имеет крайне ограниченные возможности рисования.
В то же время, с помощью WinApi можно нарисовать все, что угодно (трудоемкость - это другой вопрос)
Но как получить дискриптор hDc формы (окна)? | |
| |
| |
| |
|
|
| |
Private Declare Function FindWindow _
Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowDC Lib "user32.dll" ( _
ByVal hWnd As Long) As Long
'Private Declare Function GetDC Lib "user32.dll" ( _
ByVal hWnd As Long) As Long
Private Sub UserForm_Initialize()
Dim ihDC As Long
ihDC = GetWindowDC(FindWindow(vbNullString, Me.Caption))
'''
End Sub
|
| |
| |
| |
