Retrieve Incremental Search String (WM_User)

Category: Edit/Modify

Date: 03-28-2012

Return to Index


 
'Credit: Dave Biggs
 
'Compilable Example:
#Compiler PBWin 9, PBWin 10
#Compile Exe
#Dim All
#Include "Win32API.inc"
#Include "commctrl.inc"
%IDC_TreeView = 100
%IDC_Label    = 200
Global hDlg,hTree As Dword
 
Function PBMain() As Long
   Local hItem As Dword, hTemp As Dword, hTemp2 As Dword, hTemp3 As Dword
   Dialog New Pixels, 0, "TreeView",,,155,220, %WS_SysMenu, 0 To hDlg
   Control Add Label, hDlg, %IDC_Label, "", 10,10,130,200
   Control Add Treeview, hDlg, %IDC_TreeView, "", 10,40,130,200, %TVS_EditLabels
   Control Handle hDlg, %IDC_TreeView To hTree
   Treeview Insert Item  hDlg, %IDC_TreeView, 0, %TVI_Last, 0,0,"RootTo hItem
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"MotherTo hTemp
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"FatherTo hTemp
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"HotheadTo hTemp
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"CowTo hTemp
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"SisterTo hTemp
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"HotelTo hTemp
   Treeview Insert Item  hDlg, %IDC_TreeView, hItem, %TVI_Last, 0,0,"CowardTo hTemp
   Treeview Set Expanded hDlg, %IDC_TreeView, hItem, %True
   Dialog Show Modal     hDlg Call DlgProc
End Function
 
 
CallBack Function DlgProc() As Long
   Local SearchTerm As AsciiZ * 256, iResult As Long, pNMTVK As NMTVKEYDOWN Ptr
   Select Case Cb.Msg
      Case %WM_User + 1000
         iResult = TreeView_GetISearchString(hTree, SearchTerm)
         'highlight only the matching letters
         Control Set Text hDlg, %IDC_Label, SearchTerm
         Control ReDraw hDlg, %IDC_TreeView
      Case %WM_Notify
         Select Case Cb.NmId
            Case %IDC_TreeView
               Select Case Cb.NmCode
                  Case %TVN_KeyDown
                      pNMTVK = Cb.LParam
                      PostMessage Cb.Hndl, %WM_User + 1000, 0, @pNMTVK.wVKey
               End Select
         End Select
   End Select
End Function
 
   
'gbs_01167
'Date: 03-25-2


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