_END_RC_ 'last line of rc file // commented lineĭim Shared AS String retour : retour = "Closed"ĭeclare Function DlgProc(ByVal hI1 As hWnd, ByVal uI1 As Uinteger, ByVal wP1 As wParam, ByVal lP1 As lParam) As Integerĭeclare Function WinMain(ByVal hI1 As hInstance, _ Icon1 ICON DISCARDABLE "your.ico" // change here for your own an uncomment means delete the 2 first / a beginning of that line '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)
0 kommentar(er)
