Option

Category: Controls - .Basic Examples

Date: 03-28-2012

Return to Index


 
'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:
'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
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


created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm