> It is worth mentioning that when your code says "clicked" that is all that it is doing.
Indeed. I have no idea of what you want to do when the button is clicked.
I have removed AfxMsg and added code to write and read to an .ini file.
Code: Select all
CASE WM_COMMAND
SELECT CASE GET_WM_COMMAND_ID(wParam, lParam)
CASE IDC_Apply
IF GET_WM_COMMAND_CMD(wParam, lParam) = BN_CLICKED THEN
DIM cIni AS CInifile = "Test.ini"
cIni.WriteValue("Test", "Name", "deltarho[1859]")
DIM wsz AS WSTRING * 260
wsz = cIni.GetString("Test", "Name")
print wsz
END IF
END SELECT
Full example:
Code: Select all
'#CONSOLE ON
#define UNICODE
#INCLUDE ONCE "Afx/CWindow.inc"
#INCLUDE ONCE "Afx/CIniFile.inc"
USING Afx
#define IDC_Apply 1001
DECLARE FUNCTION WinMain (BYVAL hInstance AS HINSTANCE, _
BYVAL hPrevInstance AS HINSTANCE, _
BYVAL szCmdLine AS ZSTRING PTR, _
BYVAL nCmdShow AS LONG) AS LONG
END WinMain(GetModuleHandleW(NULL), NULL, COMMAND(), SW_NORMAL)
' // Forward declaration
DECLARE FUNCTION WndProc (BYVAL hwnd AS HWND, BYVAL uMsg AS UINT, BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT
' ========================================================================================
' Main
' ========================================================================================
FUNCTION WinMain (BYVAL hInstance AS HINSTANCE, _
BYVAL hPrevInstance AS HINSTANCE, _
BYVAL szCmdLine AS ZSTRING PTR, _
BYVAL nCmdShow AS LONG) AS LONG
' // Set process DPI aware
' // The recommended way is to use a manifest file
AfxSetProcessDPIAware
' // Creates the main window
DIM pWindow AS CWindow
' -or- DIM pWindow AS CWindow = "MyClassName" (use the name that you wish)
pWindow.Create(NULL, "CWindow with a button", @WndProc)
' // Sizes it by setting the wanted width and height of its client area
pWindow.SetClientSize(500, 320)
' // Centers the window
pWindow.Center
' // Adds a button
DIM hButton AS HANDLE = pWindow.AddControl("Button", , IDC_Apply, "&Apply", 350, 250, 75, 23)
PostMessageW hButton, BM_CLICK, 0, 0
' // Displays the window and dispatches the Windows messages
FUNCTION = pWindow.DoEvents(nCmdShow)
END FUNCTION
' ========================================================================================
' ========================================================================================
' Main window procedure
' ========================================================================================
FUNCTION WndProc (BYVAL hwnd AS HWND, BYVAL uMsg AS UINT, BYVAL wParam AS WPARAM, BYVAL lParam AS LPARAM) AS LRESULT
SELECT CASE uMsg
CASE WM_COMMAND
SELECT CASE GET_WM_COMMAND_ID(wParam, lParam)
CASE IDC_Apply
IF GET_WM_COMMAND_CMD(wParam, lParam) = BN_CLICKED THEN
DIM cIni AS CInifile = "Test.ini"
cIni.WriteValue("Test", "Name", "deltarho[1859]")
DIM wsz AS WSTRING * 260
wsz = cIni.GetString("Test", "Name")
print wsz
END IF
END SELECT
CASE WM_DESTROY
' // Ends the application by sending a WM_QUIT message
PostQuitMessage(0)
EXIT FUNCTION
END SELECT
' // Default processing of Windows messages
FUNCTION = DefWindowProcW(hwnd, uMsg, wParam, lParam)
END FUNCTION
' ========================================================================================
Instead of WSTRING, you can also also use CWSTR:
Code: Select all
CASE WM_COMMAND
SELECT CASE GET_WM_COMMAND_ID(wParam, lParam)
CASE IDC_Apply
IF GET_WM_COMMAND_CMD(wParam, lParam) = BN_CLICKED THEN
DIM cIni AS CInifile = "Test.ini"
cIni.WriteValue("Test", "Name", "deltarho[1859]")
DIM cws AS CWSTR
cws = cIni.GetString("Test", "Name")
print cws
END IF
END SELECT
or STRING if you don't care about unicode:
Code: Select all
CASE WM_COMMAND
SELECT CASE GET_WM_COMMAND_ID(wParam, lParam)
CASE IDC_Apply
IF GET_WM_COMMAND_CMD(wParam, lParam) = BN_CLICKED THEN
DIM cIni AS CInifile = "Test.ini"
cIni.WriteValue("Test", "Name", "deltarho[1859]")
DIM s AS STRING
s = cIni.GetString("Test", "Name")
print s
END IF
END SELECT
