Combobox - Inhalte aus Textbox lesen und abhängige schriftfarbe erstellen

AndyII · 27. November 2011, 23:31

Hi leute,

Leider komm ich in meinem Code nicht meher weiter...

es geht um eine leere Combobox. in Form_loade lese ich eine Textdatei aus die in einem array gespeichert wird.
Die Textdatei ist nach folgender struktur aufgebaut:
Apfel
20
Kirsche
13
Melone
0

Nun sollen die Bezeichnungen (Apfel, Kirsch,... ) in die Combocox hinzugefügt werden und abhängig von dem Wert soll die schriftfarbe des jeweilen Objekts geändert werden (muss alerdings nur beim hinzufügen geschehen)
Hinzufügen habe ich mit einer For schleife realisiert die die arraylist ausliest und in die combobox einfügt. Nun weis ich allerdings nicht, wie ich die jeweile textfarbe des zu schreibenden objects abhängig vom wert ändern kann...
ich hoff man weis was gemeint ist

SystemUnknow · 27. November 2011, 23:34

vbarchiv.net/tipps/tipp_1448-c…rbe-wechsle-dich-net.html
oder
activevb.de/tipps/vbnettipps/tipp0085.html

AndyII · 28. November 2011, 16:16

als erstes mal vielen Danke für die Antwort...

so weit hab ich das ganze leider schon... ich weiß aber einfach nicht, wie ich den Wert des Array während des zeichnens auslesen kann , da bei mir immer ein Fehler auftritt...
Folgenden Code benutze ich bis jetzt:

Form_Loade: ("line" sind die Zeilen der Textdatei)

VB.NET-Quellcode

If line > 0 Then
For Me.ik = 0 To line Step 2
Combobox_auswahl.Items.Add(Array_readList(ik))
Next
End If

Draw Item:

VB.NET-Quellcode

Private Sub Combobox_asuwahl_DrawItem(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Combobox_auswahl.DrawItem
Dim nColor As Color
Dim sItem As String = Combobox_auswahl.Items(e.Index)
If (e.State And DrawItemState.HotLight) Or (e.State And DrawItemState.Selected) Then
nColor = Color.White
e.DrawBackground()
Else
If Array_readList.Item(ik + 1) Then
nColor = Color.Red
Else
nColor = Color.Black
End If
e.Graphics.FillRectangle(New SolidBrush(Color.White), e.Bounds)
End If
e.Graphics.DrawString(sItem, e.Font, New SolidBrush(nColor), e.Bounds.X, e.Bounds.Y)
End Sub

ErfinderDesRades · 28. November 2011, 16:21

VB-Tag richtig benutzen
du kannst deine Posts auch editieren

AndyII · 28. November 2011, 17:09

ErfinderDesRades schrieb:

VB-Tag richtig benutzen
du kannst deine Posts auch editieren

werds gleich ändern

ErfinderDesRades · 28. November 2011, 17:39

scheint mißlungen. Code sieht doch normalerweise so aus:

VB.NET-Quellcode

Private Sub Combobox_asuwahl_DrawItem(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles Combobox_auswahl.DrawItem
Dim nColor As Color
Dim sItem As String = Combobox_auswahl.Items(e.Index)
If (e.State And DrawItemState.HotLight) Or (e.State And DrawItemState.Selected) Then
nColor = Color.White
e.DrawBackground()
Else
If Array_readList.Item(ik + 1) Then
nColor = Color.Red
Else
nColor = Color.Black
End If
e.Graphics.FillRectangle(New SolidBrush(Color.White), e.Bounds)
End If
e.Graphics.DrawString(sItem, e.Font, New SolidBrush(nColor), e.Bounds.X, e.Bounds.Y)
End Sub

warum deiner nicht?

vlt. VB-Tag richtig benutzen nochmal richtig durchlesen.

und machma Option Strict On!, weil

VB.NET-Quellcode

If Array_readList.Item(ik + 1) Then

ist höchstwahrscheinlich ein Datentyp-Fehler

AndyII · 28. November 2011, 19:15

Wann wird das Draw Item denn aufgerufen? wenn die objecte durch Form_loade hinzugefügt werden oder wenn ich die Combobox öffne??

ErfinderDesRades · 28. November 2011, 19:23

das bestimmt letztlich das Betriebssystem, da hast du keinen Einfluss drauf.

Dein Job ist, in _DrawItem das angefragte Item richtig zu drawen, sonst ist da nix zu tun.

Wie kommst du mit Option Strict On! voran - hat sich da etwa kein Fehler gezeigt?

AndyII · 28. November 2011, 19:35

ErfinderDesRades schrieb:

Wie kommst du mit Option Strict On! voran - hat sich da etwa kein Fehler gezeigt?

Doch... Es lässt keine Operanten des Typs "Object" für den <-Operator zu ...

ErfinderDesRades · 28. November 2011, 19:38

nanu - wo verwendest du denn einen <- Operator?

AndyII · 28. November 2011, 19:45

VB.NET-Quellcode

If Array_readList.Item(ik + 1) < 4 Then Then
nColor = Color.Red
Else
nColor = Color.Black
End If

Das Problem , das hinzu kommt ist, dass die Liste auch noch auf sotieren stehen soll...

ErfinderDesRades · 28. November 2011, 19:59

tja, nun musst du uns wohl sagen, was wirklich in Array_readList.Item(ik + 1) drin ist.

Kleiner tipp: Es ist genau das darin, was du zuvor irgendwo hineingetan hast.

AndyII · 28. November 2011, 20:25

Es geht wirklich um
Apfel
Bananen
usw...
das problem ist nur dass man den werten die im array stehn nicht direkt mit der combobox zuweisen kann , das die combobox automatisch sotiert werden soll... damit ma eben leichter B - Bananen, Birnen usw findet...
und wenn der wert in der Textdatei bei zb. Bananen unter 4 liegt (also wenig bananen auf vorrat sind) soll das element namens Bananen in der Combobox Rot geschrieben werden...

Hier mal der ganze Code von Form_loade

VB.NET-Quellcode

Array_readList.Clear()
line = 0
Combobox_auswahl.Items.Clear()
Combobox_auswahl.Items.Insert(0, " Bitte auswählen...")
Combobox_auswahl.SelectedIndex = 0
If IO.File.Exists(My.Settings.Konfig_Ordner & Steuerung.Obstliste) Then
Using sr As New IO.StreamReader(My.Settings.Konfig_Ordner & Steuerung.Obstliste)
Dim Leser As String = 0
Do Until sr.EndOfStream
Leser = sr.ReadLine
If Leser <> "" Then
Array_readList.Add(Leser)
line = line + 1
End If
Loop
End Using
If line > 0 Then
If line Mod 2 = 0 Then line = line - 1
For Me.ik = 0 To line Step 2
Combobox_auswahl.Items.Add(Array_readList(ik))
Next
End If
End If

ErfinderDesRades · 28. November 2011, 20:29

AndyII schrieb:

Es geht wirklich um
Apfel
Bananen
usw...

Wow!

Wie machstedas, eine Banane in eine Listbox zu tun?

Bei mir wird da immer der Bildschirm ganz dreckig, und funktioniert auch nicht richtig.

AndyII · 28. November 2011, 20:46

genau darauf hab ich eig. gewartet...

das auslesen funktioniert ... nur eben nicht das zuordnen zu einem eintrag ich bekomms entweder hin dass alle rot sind oder eben keins^^

ErfinderDesRades · 28. November 2011, 20:53

wie funktioniert das auslesen? weil wenn du einen Eintrag "ausliest", dann hast du ihn doch - was mußt du da noch zuordnen?

AndyII · 28. November 2011, 21:05

es soll ja eben für jedes Element die Farbe bestimmt werden...
ich kann die werte aus dem array aber nicht den elementen aus der combobox zuordenen also kann ich nur einen wert vom array hernehmen der dann alle elemente aus der combobox rot oder schwarz erstellt

ErfinderDesRades · 28. November 2011, 21:16

ich verstehe nicht, warum du die Elemente aus der Combo dem Array wieder zuordnen willst, dem sie entnommen sind.
Es sind doch dieselben Strings.

Btw - von welchem Array reden wir eigentlich?

AndyII · 28. November 2011, 21:23

Im Arra steht:

Apfel
40
Bananen
110
Melonen
2

Apfel, Bananen usw stehen in der Combobox...
Jetzt soll beim zeichnen der Werte zu den Elementen also sprich bei Apfel eben 40 ausgewertet werden...
Ist der Wer unter 4 soll das Element Rot sein ansonsten schwarz...
Beispiel: Apfel -> 40 liegt über 4 also soll es schwarz sein
Melone -> 2 liegt unter 4 also soll es Rot sein

SystemUnknow · 29. November 2011, 08:10

Items mit schleife durchlaufen in schleife Werte abfragen die größen/kleine sind, dann mit gewünschte farbe darstellen.

Combobox - Inhalte aus Textbox lesen und abhängige schriftfarbe erstellen

Combobox - Inhalte aus Textbox lesen und abhängige schriftfarbe erstellen

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

AndyII schrieb:

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben