StatusBar - Determine Part Clicked On

Date: 02-16-2022

Return to Index

 
'Code generated by gbVisualDesigner     03-25-2013    19:02:42
 
#Compile Exe
#Dim All
#Include "win32api.inc"
 
Enum Equates Singular
   IDC1_Option
   IDC2_StatusBar
End Enum
 
Global hDlg As Dword
 
Function PBMain() As Long
   Dialog New Pixels, 0, "gbVisualDesigner Source Code",,, 700, 500, %WS_OverlappedWindow To hDlg
   Control Add Statusbar, hDlg, %IDC2_StatusBar,"",0,0,0,0
   Statusbar Set Parts hDlg, %IDC2_StatusBar,200,200,99999
   Statusbar Set Text hDlg, %IDC2_StatusBar,1,0,"Part1"
   Statusbar Set Text hDlg, %IDC2_StatusBar,2,0,"Part2"
   Statusbar Set Text hDlg, %IDC2_StatusBar,3,0,"Part3"
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   Select Case Cb.Msg
      Case %WM_InitDialog
      Case %WM_Notify
         Select Case Cb.NmId
            Case %IDC2_StatusBar
               If Cb.NmCode = %NM_Click Then
                  Local lpnm As NmMouse Ptr
                  lpnm = Cb.LParam
                  ? "IDC2_StatusBar was clicked - part " + Str$(@lpnm.dwItemSpec+1)
               End If
         End Select
      Case %WM_Size
      Case %WM_ContextMenu
      Case %WM_Destroy
      Case %WM_Help
   End Select
End Function
 
'gbs_01230
'Date: 05-11-2013       

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