MapBasic + Winapi (Создание окна)
Добавлено: 12 мар 2013, 16:09
Добрый день!
Требуется ваша помощь.
Объявил функции
Далее в коде использовал:
Пробовал использовать различные значения для dwStyle, hInstance, но все безрезультатно.
Подскажите как реализовать создание контрола, на примере любого.
Спасибо.
Требуется ваша помощь.
Объявил функции
Код: Выделить всё
Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA"
(ByVal dwExStyle As Integer,
ByVal lpClassName As String,
ByVal lpWindowName As String,
ByVal dwStyle As Integer,
ByVal x As Integer,
ByVal y As Integer,
ByVal nWidth As Integer,
ByVal nHeight As Integer,
ByVal hWndParent As Integer,
ByVal hMenu As Integer,
ByVal hInstance As Integer,
lpParam As String) As Integer
Declare Function GetActiveWindow Lib "User32" () as IntegerКод: Выделить всё
Dim a As integer
a = GetActiveWindow()
cls
print CreateWindowEx(0, "Button", "Tra-ta-ta", 1073741824, 10, 10, 50, 20, a, 0, 0, str)
Подскажите как реализовать создание контрола, на примере любого.
Спасибо.
