Ist es Möglich das direkt in dem Feld "Anzahl" zu machen, also wie in Excel per Eingabe der Anzahl?
Danke für einen Tip
Code: Alles auswählen
If OpenWindow(0, 100, 100, 500, 400, " Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ListIconGadget(0, 5, 5, 490, 350, "Dateiname", 200, #PB_ListIcon_GridLines |#PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
AddGadgetColumn(0, 1, "Grösse", 150)
AddGadgetColumn(0, 2, "Anzahl", 50)
ButtonGadget(1, 5, 360, 200, 20, "Plus")
ButtonGadget(2, 250, 360, 200, 20, "Minus")
Directory$ = "C:\Windows"
If ExamineDirectory(0, Directory$, "*.*")
While NextDirectoryEntry(0)
If DirectoryEntryType(0) = #PB_DirectoryEntry_File
AddGadgetItem(0, -1, DirectoryEntryName(0) +Chr(10)+ Str(DirectoryEntrySize(0)))
EndIf
Wend
FinishDirectory(0)
EndIf
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case 1
a.i = a+1
SetGadgetItemText(0, GetGadgetState(0) ,Str(a),2)
Case 2
a.i = a-1
SetGadgetItemText(0, GetGadgetState(0),Str(a),2)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf

