'use that sample under to create your rc file own inputbox.rc, copy from first line of rc file to last line of rc file

Or else if not needed to see the returned inputĬompile with: 'fbc' -s gui InputBox.bas InputBox.rc Msgon= CreateWindowEx(NULL, 'Button', 'Messages', WS_VISIBLE Or WS_CHILD, 10, 40, 90, 24, MainWindow, NULL, NULL, NULL)Ĭompile with: 'fbc' -s console InputBox.bas InputBox.rc MainWindow = CreateWindowEx(NULL, 'WindowClass', 'MainWindow', WS_OVERLAPPEDWINDOW Or WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, 800, 600, NULL, NULL, NULL, NULL) MessageBox(NULL, 'RegisterClass('WindowClass') FAIL!', 'Error!', MB_OK Or MB_ICONERROR) hbrBackground = GetStockObject(WHITE_BRUSH) lpfnWndProc = Cast(WNDPROC, = GetModuleHandle(NULL)

Return DefWindowProc(hWnd, msg, wParam, lParam) Var mboxresult= MessageBox(MessageWindow, textMessage, 'Saved', 1 ) MessageWindow = CreateWindowEx(NULL, 'WindowClass', 'Messages', WS_OVERLAPPEDWINDOW Or WS_VISIBLE, CW_USEDEFAULT, CW_USEDEFAULT, 300, 150, NULL, NULL, NULL, NULL)ĮditBox = CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', textmessage, WS_VISIBLE Or WS_CHILD, 10, 40, 200, 24, MessageWindow, NULL, NULL, NULL)īutton = CreateWindowEx(NULL, 'Button', 'Save', WS_VISIBLE Or WS_CHILD, 10, 70, 200, 24, MessageWindow, NULL, NULL, NULL)Ĭreatetooltip(editbox,'Write in a message')įunction WndProc(hWnd As HWND, msg As UINT, wParam As WPARAM, lParam As LPARAM) As LRESULTīeginPaint(hWnd, CreateSolidBrush(BGR(0,100,0))) SendMessage(TT, TTM_SETDELAYTIME, TTDT_RESHOW ,60)īubble.uFlags = TTF_IDISHWND Or TTF_SUBCLASS SendMessage(TT, TTM_SETDELAYTIME, TTDT_INITIAL ,10)

SendMessage(TT, TTM_SETMAXTIPWIDTH, 0, 180) Dim Shared As zString * 255 textMessage='start'ĭim Shared As HWND MainWindow, MessageWindowįunction CreateToolTip(X As hwnd,msg As String='') As hwndĭim As hwnd TT= CreateWindowEx(0,'ToolTips_Class32','',64,0,0,0,0,X,0,GetModuleHandle(0),0)

C++ getwindowtext not working