Autor Tema: Como crear un DOT con CreateWindowEx  (Leído 1411 veces)

0 Usuarios y 1 Visitante están viendo este tema.

TOLO68

  • Kilobyte
  • **
  • Mensajes: 60
  • Reputación: +2/-0
    • Ver Perfil
Como crear un DOT con CreateWindowEx
« 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


LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +150/-8
    • Ver Perfil
Re:Como crear un DOT con CreateWindowEx
« Respuesta #1 en: Marzo 17, 2020, 03:40:57 pm »
hola tolo para tener un poco mas de idea que es un DOT?

TOLO68

  • Kilobyte
  • **
  • Mensajes: 60
  • Reputación: +2/-0
    • Ver Perfil
Re:Como crear un DOT con CreateWindowEx
« Respuesta #2 en: Marzo 18, 2020, 10:16:35 am »
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

TOLO68

  • Kilobyte
  • **
  • Mensajes: 60
  • Reputación: +2/-0
    • Ver Perfil
Re:Como crear un DOT con CreateWindowEx
« Respuesta #3 en: Marzo 18, 2020, 11:22:20 am »
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"