| |
|
|
| | как сделать красивую формочку | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=251661609
http://hiprog.com/index.php?option=com_content&task=view&id=441 | |
| |
| |
| |
|
|
| | А если я буду использовать этот код
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, _
ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
' Layered - степень прозрачности 0-255
' Примечание: форма должна быть всплывающей
Sub TransparentForm(hwnd As Long, Layered As Byte)
Dim Ret As Long
Ret = GetWindowLong(hwnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes hwnd, 0, Layered, LWA_ALPHA
End Sub
|
Получается его надо прописать в отделный модуль, а как подципить его к форме | |
| |
| |
| |
|
|
| | Где я могу узнать стротегие warkraft3 игры
тоесь как когда и где надо строить здания и какие!?
-------------------------------
Form_Open
Call TransparentForm(Me.hWnd, 255) | |
| |
| |
| |
|
|
| | я в открытие формы прописываю DoCmd.openModule и не получается | |
| |
| |
| |
|
|
| | см. выше
и книжек купи побольше... творило...
с какого перепоя DoCmd??? | |
| |
| |
| |
|
|
| | красота - страшная сила (с) Художнег  | |
| |
| |
| |
 13 Кб. |
|
| | без комментов.... | |
| |
| |
