powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Форма возле кнопки! :)
3 сообщений из 3, страница 1 из 1
Форма возле кнопки! :)
    #34752598
GorloPavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте! Подскажите пожалуйста, а лучше дайте простой пример. Как мне сделать так, чтобы при нажатии на кнопку рядом с ней появлялась форма типа всплывающего меню. Как в QIP(выбор смайлов). Заранее ОГРОМНОЕ СПАСИБО!
...
Рейтинг: 0 / 0
Форма возле кнопки! :)
    #34752754
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
Option Explicit

Private Type POINTAPI
   x As Long
   y As Long
End Type
Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
Private Declare Function ScreenToClient Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long


Private Sub Command1_Click()
   Dim pt As POINTAPI
   Dim rc As RECT
   With Command1
      pt.x = .Left \ Screen.TwipsPerPixelX
      pt.y = (.Top + .Height) \ Screen.TwipsPerPixelY
   End With
   ClientToScreen hWnd, pt
   Load Form2
   GetWindowRect Form2.hWnd, rc
   OffsetRect rc, (pt.x - rc.Left), (pt.y - rc.Top)
   SetWindowPos Form2.hWnd, - 1 , rc.Left, rc.Top, (rc.Right - rc.Left), (rc.Bottom - rc.Top),  0 
   Form2.Visible = True
End Sub
...
Рейтинг: 0 / 0
Форма возле кнопки! :)
    #34752761
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если надо как модальную, откройте форму так:
Код: plaintext
1.
   SetWindowPos Form2.hWnd,  0 , rc.Left, rc.Top, (rc.Right - rc.Left), (rc.Bottom - rc.Top),  0 
   Form2.Show vbModal
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Форма возле кнопки! :)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]