ListView Tabelle ordnen

Stoani

Servus,

ich hab bisher noch nie mit ListViews gearbeitet.

So sieht das ganze derweilen aus:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <GUiListview.au3>
$Form1_1 = GUICreate("Rechner", 450, 446, 355, 157)
$Berechnen = GUICtrlCreateButton("Berechnen", 216, 152, 225, 33)
$Mensur = GUICtrlCreateInput("z.B.: 650", 376, 16, 57, 21)
$Buende = GUICtrlCreateInput("z.B.: 21", 376, 40, 57, 21)
$Edit = GUICtrlCreateListView("Bund|Abstand zum Sattel", 8, 0, 202, 422)
$Bund = GUICtrlCreateListViewItem("Bund", $Edit)
$AbstandSattel = GUICtrlCreateListViewItem("Abstand zum Sattel", $Edit)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState()
GUICtrlSetData($Bund, "")
GUICtrlSetData($AbstandSattel, "")


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit




Case $Berechnen
			For $Bundzahl = 1 To GUICtrlRead($Buende)
			Next


        	Local $a = GUICtrlRead($Mensur), $b


        	For $i = 1 To GUICtrlRead($Buende)
            	If $i == 1 Then
                	$b = ($a / (2^(1/12)))
            	Else
                	$b = ($b / (2^(1/12)))
            	EndIf


            	GUICtrlSetData($AbstandSattel, Round($a - $b, 2))
        	Next




EndSwitch
WEnd

Alles anzeigen

Problem Nr. 1.: Irgendwie ist das ganze nicht mehr geordnet.... (vorher im Edit wars von "weniger" nach "mehr")
Problem Nr. 2.: Es wird immer nur der letzte Wert der For§ Schleife angezeigt..

Wie kann ich das ganze "Ordnen"?

Hat schnell jemand eine Antwort parat?

Grüße aus Upper Austria
Stoani

Ps.: Das Ganze ist ein FretCalculator falls jemand von euch Gitarrenbauer etc. ist......

name22

1. Ordnen kannst du die Items eines Listviews unter anderem mit _GUICtrlListview_Simple_sort. Alerdings sortiert diese Funktion nach den einzelnen Zeichen (1, 10, 2 etc.). Es gibt bestimmt eine Möglichkeit, das ganze numerisch zu sortieren, nur kenne ich sie nicht. Zur Not kannst du dir auch selbst eine Sortierunktion schreiben.
2. Du musst für jeden neuen Eintrag ein neues Item in der ListView erzeugen (GUICtrlCreateListViewItem). So veränderst du nur das existierende Item. Am besten ist es alle Einträge und ihre Control IDs in einem Array zu speichern.

Stoani

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
$GUI_form = GUICreate("Test",250, 180, 700, 280)
$GUI_input_a = GUICtrlCreateInput("", 157, 8, 81, 21)
$GUI_listview_a = GUICtrlCreateListView("A", 5, 8, 137, 169)
$GUI_button_a = GUICtrlCreateButton("Test", 156, 40, 81, 25)
_GUICtrlListView_AddColumn($GUI_listview_a,"B")
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_button_a
_GUICtrlListView_DeleteAllItems($GUI_listview_a)
$AnzahlB = GUICtrlRead($GUI_input_a)
Dim $Array[$AnzahlB]
$Bund = 1 
For $1 = 1 To $AnzahlB
GUICtrlCreateListViewItem($1,$GUI_listview_a)
Next
$Anzahl1B = GUICtrlRead($GUI_input_a)
Dim $Array[$Anzahl1B]
$Bund = 1 
For $2 = 1 To $Anzahl1B
_GUICtrlListView_AddSubItem($GUI_listview_a,0,$Anzahl1B,$2)
Next






EndSwitch
WEnd

Alles anzeigen

Kann mir jemand sagen wieso das nicht läuft?

Ein ganz anderer Denkansatz wäre das hier:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUiListview.au3>
$Form1_1 = GUICreate("Rechner", 450, 446, 355, 157)
$Berechnen = GUICtrlCreateButton("Berechnen", 216, 152, 225, 33)
$Mensur = GUICtrlCreateInput("z.B.: 650", 376, 16, 57, 21)
$Buende = GUICtrlCreateInput("z.B.: 21", 376, 40, 57, 21)
$Edit = GUICtrlCreateListView("Bund|Abstand zum Sattel", 8, 0, 202, 422)
Dim $inhalt[1]
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState()




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
    	Case $GUI_EVENT_CLOSE
        	Exit
    	Case $Berechnen


        	Local $a = GUICtrlRead($Mensur), $b


        	For $i = 1 To GUICtrlRead($Buende)
            	If $i == 1 Then
                	$b = ($a / (2 ^ (1 / 12)))
            	Else
                	$b = ($b / (2 ^ (1 / 12)))
            	EndIf
            	ReDim $inhalt[UBound($inhalt)+1]
          	$inhalt[$i-1] = GUICtrlCreateListViewItem("|"&Round($a - $b, 2), $Edit)  
        	Next
	   	 For $o = 1 To GUICtrlRead($Buende)
	   		 GUICtrlCreateListViewItem($o,$Edit) 
	   	 Next
	EndSwitch
WEnd

Alles anzeigen

Allerdings stehen die Werter der Spalten nicht parrallel zueinander...

Danke.