PureBoard

Verfasst: **26.08.2006 23:25**

Hi,

mit folgendem Code bau ich mir einen Dateiexplorer, aus dem ich den ausgewählten Dateinamen in einen String schreiben will, wenn er mit der MAus 2x angeklickt wurde.

Code: Alles auswählen

ExplorerListGadget(#ExplorerList_0, 0, 0, 600, 250, ".\*.dat",#PB_Explorer_BorderLess | #PB_Explorer_NoParentFolder | #PB_Explorer_NoFolders | #PB_Explorer_NoMyDocuments)
      SetGadgetItemAttribute(#ExplorerList_0, Eintrag , #PB_Explorer_ColumnWidth , 475,0)
      SetGadgetItemAttribute(#ExplorerList_0, Eintrag , #PB_Explorer_ColumnWidth , 100,3)
      RemoveGadgetColumn(#ExplorerList_0, 1) ; entfernt die 'Spalte 2'
      RemoveGadgetColumn(#ExplorerList_0, 2) ; entfernt die 'Spalte 3'

Ich habe trotz studium der Hilfe und suchen hier irgendwie keine Peilung wie ich das hinkriege.

Für Hilfe im voraus herzlichen Dank.

Verfasst: **26.08.2006 23:56**

Code: Alles auswählen

  hwnd = OpenWindow(0,0,0,300,300,"")
  
  CreateGadgetList(hwnd)
  ExplorerListGadget(0,0,0,300,300,"c:\")
  
  Repeat
    event = WaitWindowEvent()
    
    If event = #PB_Event_Gadget
      If EventGadget() = 0 
        If EventType() = #PB_EventType_LeftDoubleClick 
          index     = GetGadgetState(0) 
          eintrag.s = GetGadgetItemText(0,index,0) 
          MessageRequester("",eintrag) 
        EndIf 
      EndIf 
    EndIf
    
    
  Until event = #WM_CLOSE

Verfasst: **27.08.2006 09:21**

Funktioniert!
Danke schön!

PureBoard

Dateinamen aus ExplorerListGadget

Dateinamen aus ExplorerListGadget