German Rätsel Label, Listview

arautio

Member
Licensed User
Steh wieder vor einem Rätsel bzgl. label und Listview
anbei Code
For i = 0 To XZahl -1

xString = ""

row = List3.Get(i)
stext = row(1)
xString = row(2)

If stext = SString Then

Label.Text=""

Listview2.Clear





pnlPage5.AddView(Label1,400dip,200dip,200dip,200dip) ' 1 Variante
pnlPage5.AddView(Listview2,400dip,200dip,200dip,200dip) '2 Variante
label1.Text=xString
Listview2.AddSingleLine (xString)

'Msgbox(xString,"")
Return
End If

Next


Egal obe ich bei dem View ein Clear setze oder bei Label ein Text="" mache, der text der beim ersten mal eingesetzt wurde verschwindet nicht, sondern wird immer dazu geschrieben


Vielleicht stehe ich mal wieder auf dem schauch, da ich jetzt fast den ganzen Tag nur an meinem Programm sitze und vor lauter wald die Bäume nicht mehr sehe, könnt Ihr mir ein Tip geben

Danke
Andreas
 

arautio

Member
Licensed User
Ok ...
ich drücke einen Button und dann soll über das Label oder Listview ein Infotext erscheinen,
Drücke ich auf einen anderen Button, soll die alte info in dem Label oder Listview verschwinden und der neue Text rein.
Es ist so, dass ich mit Listview.clear oder Label.Text="" den alten Text nicht loswerde, sondern der neue geht über den alten
und immer so weiter. Ich will nur dass bei jedem Click Label oder Listview leer ist und neuer Text angezeigt wird


Wenn Du mal Zeit hast, kannst Du dich mal meinem anderen Problem annehmen, mit dem TCIP Programm
 

klaus

Expert
Licensed User
Ich verstehe leider immer noch nicht was Du machen willst.
Du sagst wenn Du einen Button drückst soll der Text im Label und (oder?) ListView verändert werden.
In dem Code den Du geschickt hast sehe Ich kein Sub Button_Click ?
Du hast eine Schlaufe die Du XZahl mal durchläufst und jedes mal fügst ein neues Label und eine neue ListView an der gleiche Stelle hinzu !?
Deswegen meine Frage was genau willst Du machen ?
Kannst Du dein Projekt als zip-Datei posten.

Wenn Du mal Zeit hast, kannst Du dich mal meinem anderen Problem annehmen, mit dem TCIP Programm
Kannst Du einen Link für dieses Problem hinzufügen.
Normalerweise wenn Ich nicht antworte heisst das dass Ich keine Antwort habe.

Beste Grüsse.
 

arautio

Member
Licensed User
So ich hoffe es etwas klarer, es funktioniert alles bis auf das, das ich das Listview nicht leer bekomme



Sub BtnInfo_Click

Dim Zahl As Long
btn = Sender
Dim List3 As List

Dim stext As String
Dim SString As String
Dim szahl As Long
Dim row()As String
Dim xString As String
Dim Listview2 As ListView



listview2.Initialize("Listview2")

lober = btn.Tag
SString = btn.Text

List3 = StringUtils1.LoadCSV(File.DirAssets, "Cocktailinfo.csv" ,";")
sZahl = List3.Size '-1


For i = 0 To NumberOfRows -1 'Datensätze durchlaufen bis der Datensatz gefunden wurde der passt

xString = ""

row = List3.Get(i)
stext = row(1)
xString = row(2)

If stext = SString Then ' es gibt immer nur ein einziger datensatz


Listview2.Clear

pnlPage5.AddView(Listview2,400dip,200dip,200dip,200dip)

Listview2..AddSingleLine (xString) ' xString ist die info


'Wenn Datensatz gefunden programm beenden
Return
End If

Next


End Sub
 

klaus

Expert
Licensed User
Du hast eine Schlaufe die Du XZahl mal durchläufst und jedes mal fügst ein neues Label und eine neue ListView an der gleiche Stelle hinzu !?
Hast Du mal darüber nachgedacht ?

Du fügst mehrere mal die gleiche ListView2 in pnlPage5 an der gleichen Stelle an !

Beste Grüsse.
 

arautio

Member
Licensed User
Hallo nur einmal!

If stext = SString Then

'nur wenn dieser string mit dem in der Textdatei übereinstimmt, dann legt
er das Panel mit dem Listview2 an


Listview2.Clear

pnlPage5.AddView(Listview2,400dip,200dip,200dip,200dip)

Listview2..AddSingleLine (xString) ' xString ist die info

wo übersehen ich was ?
 

klaus

Expert
Licensed User
Wie schon einmal gefragt, kannst Du nicht dein Projekt mit einem Beispieltext als zip Datei posten (im IDE Menü File / Export As Zip)?
Dann kann Ich ausprobieren um rauszufinden wo das Problem ist.
Ohne den Rest des Programms zu sehen ist es schwer konkret zu helfen.
Wie viele mal wird Sub BtnInfo_Click aufgerufen ?
Wo und wie wird pnlPage5 behandelt ?
Warum benutzt Du eine ListView um nur einen String anzuzeigen, ein Label würde doch genügen.
Warum fügst Du jedes mal wenn Sub BtnInfo_Click aufgerufen wird eine neue ListView hinzu ?
Du musst nur einmal eine ListView oder ein Label in pnlPage5 hinzufügen und dann mit Label1.Text = xString oder Listview2.AddSingleLine(xString) die Daten anzeigen.
Anstatt eine csv Datei zu benutzen könntest Du eine SQLite Datenbank benutzten da könntest Du die Info direkt ausfiltern als Alle Datensätze durch zu laufen.

Beste Grüsse.
 
Top