BCX_SET_TEXT function

Purpose:

BCX_SET_TEXT will place a text string in an edit field of a control or static text.

Syntax:

RetVal = BCX_SET_TEXT(HndlWnd AS HWND, Text AS STRING)

Return Value:

Data type: INTEGER
RetVal is a nonzero integer if the function succeeds, zero if the function fails.

Parameters:

Data type: HWND
HndlWnd The handle of the control in which to set the text.
Data type: STRING
Text Text string to be set in the edit field or control.

Example:

GUI "BCX_SET_TEXT_Demo"

GLOBAL Form1 AS HWND
GLOBAL Btn1  AS HWND
GLOBAL Btn2  AS HWND
GLOBAL Btn3  AS HWND
GLOBAL Lbl1  AS HWND

SUB FORMLOAD

  Form1 = BCX_FORM ("BCX_SET_TEXT Demo", 0, 0, 150, 75)
  Btn1  = BCX_BUTTON("Start", Form1, 1, 5,   5, 135, 15)
  Btn2  = BCX_BUTTON("Stop",  Form1, 2, 5,  20, 135, 15)
  Btn3  = BCX_BUTTON("Quit",  Form1, 3, 5,  35, 135, 15)
  Lbl1  = BCX_LABEL ("This is a label", Form1, 4, 5, 55, 135, 8)

  CENTER (Form1)
  BCX_SET_FORM_COLOR(Form1, RGB(210, 215, 215))
  SHOW    (Form1)
END SUB

BEGIN EVENTS
  SELECT CASE CBMSG
  CASE WM_COMMAND
    IF CBCTL = 1 THEN BCX_SET_TEXT(Lbl1, "[ * Start Button Pressed * ]" )
    IF CBCTL = 2 THEN BCX_SET_TEXT(Lbl1, "[ * Stop  Button Pressed * ]" )
    IF CBCTL = 3 THEN PostQuitMessage(0)
  END SELECT
END EVENTS