Date: 02-16-2022
Return to Index
created by gbSnippets
'Compilable Example: (Jose Includes)
#Compile Exe
#Dim All
%Unicode=1
#Include "Win32API.inc"
Global hDlg As Dword
Function PBMain() As Long
Dialog New Pixels, 0, "Test Code",300,300,200,200, %WS_OverlappedWindow To hDlg
Control Add Button, hDlg, 100,"", 50,10,100,20
Control Add ListView, hDlg,300,"",10,40,150,150 '<--- does not generate popup message
Dialog Show Modal hDlg Call DlgProc
End Function
CallBack Function DlgProc() As Long
Select Case Cb.Msg
Case %WM_NotifyFormat
? "WM_NotifyFormat received" + str$(GetDlgCtrlID(Cb.wParam))
Case %WM_Command
Select Case Cb.Ctl
Case 100
Control Add ComboBox, hDlg, 101, , 400,400,10,10
Control Add Graphic, hDlg, 102, "", 400,400,10,10
Control Add Image, hDlg, 103, "", 400,400,10,10
Control Add ImageX, hDlg, 104, "", 400,400,10,10
Control Add Label, hDlg, 105, "", 400,400,10,10
Control Add Line, hDlg, 106, "", 400,400,10,10
Control Add ListBox, hDlg, 107, , 400,400,10,10
Control Add Progressbar, hDlg, 108, "", 400,400,10,10
Control Add ScrollBar, hDlg, 109, "", 400,400,10,10
Control Add Button, hDlg, 110, "", 400,400,10,10
Control Add Check3State, hDlg, 111, "", 400,400,10,10
Control Add CheckBox, hDlg, 112, "", 400,400,10,10
Control Add Frame, hDlg, 113, "", 400,400,10,10
Control Add ImgButton, hDlg, 114, "", 400,400,10,10
Control Add ImgButtonX, hDlg, 115, "", 400,400,10,10
Control Add ListView, hDlg, 116, "", 400,400,10,10
Control Add Option, hDlg, 117, "", 400,400,10,10
Control Add Statusbar, hDlg, 118, "", 400,400,10,10
Control Add Tab, hDlg, 119, "", 400,400,10,10
Control Add Toolbar, hDlg, 120, "", 400,400,10,10
Control Add Treeview, hDlg, 121, "", 400,400,10,10
Control Add Header, hDlg, 122, "", 400,400,10,10
End Select
End Select
End Function
'gbs_01174
'Date: 03-14-2012
http://www.garybeene.com/sw/gbsnippets.htm