Date: 02-16-2022
Return to Index
created by gbSnippets
'An online Option control tutorial may be found at:
'http://www.garybeene.com/power/pb-tutor-controls.htm
'Primary Code:
'Syntax: Control Add Option, hDlg, id&, txt$, x, y, xx, yy [, [style&] [, [exstyle&]]] [[,] Call CallBack]
Control Add Option, hDlg, 197,"Click Me!", 50,50,100,20, %WS_Group Or %WS_TabStop
'Compilable Example: (Jose Includes)
'The following compilable code demonstrates a dialog with a three Option controls
'acting as a group.
'The Dialog CallBack response to clicking one of the Option controls is demonstrated.
'Controls can also have a Callback function of their own.
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
Global hDlg As Dword
Function PBMain() As Long
Dialog New Pixels, 0, "Option Test",300,300,300,200, %WS_SysMenu, 0 To hDlg
Control Add Option, hDlg, 197,"Click Me!", 50,50,100,20, %WS_Group Or %WS_TabStop
Control Add Option, hDlg, 198,"Click Me!", 50,80,100,20
Control Add Option, hDlg, 199,"Click Me!", 50,110,100,20
Control Set Option hDlg, 197,197,199
Dialog Show Modal hDlg Call DlgProc
End Function
CallBack Function DlgProc() As Long
If CB.Msg = %WM_Command Then
MsgBox Str$(CB.Ctl)
End If
End Function
'gbs_00098
'Date: 03-10-2012
http://www.garybeene.com/sw/gbsnippets.htm