Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: TOLO68 en Marzo 17, 2020, 01:46:00 pm
-
Hola a todo el foro, no se porque pero no puedo crear un DOT con CreateWindowEx, el codigo es de FreeBasic, pero es muy parecido al VB, puedo crear otro controles ( Button, Combo, Text), pero este no me sale....Gracias
'------------------------
#Include "windows.bi"
#Include "win/commctrl.bi"
#Include "win/commdlg.bi"
InitCommonControls
dim shared as hwnd hwnd1
Dim As MSG msg ' Message variable (stores massages)
hWnd1 = CreateWindowEx( 0, "#32770", "Hello", WS_OVERLAPPEDWINDOW Or WS_VISIBLE, 100, 100, 500, 300, 0, 0, 0, 0 )
While GetMessage( @msg, 0, 0, 0 ) ' Get message from window
TranslateMessage( @msg )
DispatchMessage( @msg )
Select Case msg.hwnd
Case hWnd1
Select Case msg.message
Case 273
End
case WM_paint
CreateWindowEx(ws_ex_topmost,"Dot","",ws_child or ws_visible or ws_clipchildren or ws_clipsiblings,0,0,6,6,hWnd1,0,GetModuleHandle(0),0)
End Select
End Select
Wend
-
hola tolo para tener un poco mas de idea que es un DOT?
-
Hola leandro. Un DOT es un cuadradito como el que sale ciando seleccionas un control en VB6.... esos que son azules que te permiten redimensionar el control.... Hay 8
-
hola de nuevo, he encontrado poca info sobre ello, pero no pasa nada, lo hare con un control "Label" en VB, que con la API usando CreateWindowEX seria el control "Static"