Date: 02-16-2022
Return to Index
created by gbSnippets
'Compilable Example: (Jose Includes)
#Compile Exe
#Dim All
%Unicode=1
#Include "Win32API.inc"
%IDC_LineA = 500 : %IDC_LineB = 501 : %IDC_LineC = 502 : %IDC_LineD = 503
%IDC_LineE = 504 : %IDC_LineF = 505 : %IDC_LineG = 506 : %IDC_LineH = 507 : %IDC_LineI = 508
Global hDlg As Dword
Function PBMain() As Long
Dialog New Pixels, 0, "Test Code",300,300,200,300, %WS_OverlappedWindow To hDlg
Control Add Line, hDlg, %IDC_LineA,"Push", 50,10,100,20, %SS_BlackFrame
Control Add Line, hDlg, %IDC_LineB,"Push", 50,40,100,20, %SS_GrayFrame
Control Add Line, hDlg, %IDC_LineC,"Push", 50,70,100,20, %SS_WhiteFrame
Control Add Line, hDlg, %IDC_LineD,"Push", 50,100,100,20, %SS_BlackRect
Control Add Line, hDlg, %IDC_LineE,"Push", 50,130,100,20, %SS_GrayRect
Control Add Line, hDlg, %IDC_LineF,"Push", 50,160,100,20, %SS_WhiteRect
Control Add Line, hDlg, %IDC_LineG,"", 50,190,100,20, %SS_Notify
Control Set Color hDlg, %IDC_LineG, %Red, %Red
Control Add Line, hDlg, %IDC_LineH,"", 50,220,100,20, %SS_Notify
Control Set Color hDlg, %IDC_LineH, %Green, %Green
Control Add Line, hDlg, %IDC_LineI,"", 50,250,100,20, %SS_Notify
Control Set Color hDlg, %IDC_LineI, %Blue, %Blue
Dialog Show Modal hDlg
End Function
'gbs_01152
'Date: 03-14-2012
http://www.garybeene.com/sw/gbsnippets.htm