Hallo,
ich habe nochmal nachgedacht (sollte ich öfters mal machen)
Ja unbedingt,
dann würdest Du nachfolgenden Code sicher
nicht als "Lösung" bezeichnen.
If TextBox1.Text > "0" Then
ZellenKO.Text = ZellenJÄ.Text * TextBox1.Text
End If
bin zu dieser lösung gekommen
Dass dies keine "Lösung" ist, hatte ich in meiner vorigen
Antwort schon angemerk.
ich versuch es mal zu beschreiben:
*Combobox****PlusButton* **Textbox****Label *Label2*
*Label3*
*EndLabel*
Bedeutet dies, dass es zu jeder Deiner 14 ComboBoxen je einen
PlusButton, eine Textbox, ein Label, ein Label2 ein Label3 und
ein EndLabel gibt?
Was ist nun mit Deinen Minus-Buttons?
Timer
Combobox: wenn ein wort (z.B. Hallo) ausgewählt und der
plussbutton gedrückt wurde erscheint:
* 1. Der Text (Hallo) im Label und
* 2. es erscheint eine an das hallo gebundende Zahl
(z.B. 50) im Label2 und eine andere Zahl (z.B. 40)
im Label3
Zusammengefasst kann man so eine Kombination aus
einem Wort und zwei zugeordneten Zahlen als Objekt
mit den Eigenschaften
Text (String) -> z.B. "Hallo"
Num1 (Integer) -> z.B. 50
Num2 (Integer) -> z.B. 40
betrachten. Evtl sollte man noch eine weitere Eigenschaft "ID" (Integer)
spendieren, welche man mit einer eindeutigen ID belegt.
Ein solches Objekt könnte dann z.B. so aussehen:
Public Class XClass
Private mID As Integer
Private mText As String
Private mNum1 As Integer
Private mNum2 As Integer
Public Sub New _
(ByVal ID As Integer, _
ByVal Text As String, _
ByVal Num1 As Integer, _
ByVal Num2 As Integer)
mID = ID
mText = Text
mNum1 = Num1
mNum2 = Num2
End Sub
Public Sub New(ByVal ID As Integer)
mID = ID
mText = ""
mNum1 = 0
mNum2 = 0
End Sub
Public ReadOnly Property ID() As Integer
Get
Return mID
End Get
End Property
Public Property Text() As String
Get
Return mText
End Get
Set(ByVal value As String)
mText = value
End Set
End Property
Public Property Num1() As Integer
Get
Return mNum1
End Get
Set(ByVal value As Integer)
mNum1 = value
End Set
End Property
Public Property Num2() As Integer
Get
Return mNum2
End Get
Set(ByVal value As Integer)
mNum2 = value
End Set
End Property
End Class
Und eine ComboBox würde dann via ComboBox1.List.AddItem()
mit solchen Objekten befüllt:
Private Sub Form1_Load _
(ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
ComboBox1.DisplayMember = "Text"
FillCombo(ComboBox1)
End Sub
Private Sub FillCombo(ByVal Cbo As ComboBox)
Dim i As Integer
Dim XC As XClass
Dim N1 As Integer = 40
Dim N2 As Integer = 50
For i = 1 To 12
N1 = N1 + i * 10
N2 = N2 + i * 5
XC = New XClass(i, MonthName(i, False), N1, N2)
Cbo.Items.Add(XC)
Next
End Sub
Wenn jetzt eine Wert aus der DropDownListe der CombBox ausgewählt
wird, löst dies das Ereignis ComboBox_ListIndexChanged aus und
auf dieses Ereignis kannst Du reagieren:
Private Sub ComboBox1_SelectedIndexChanged _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles ComboBox1.SelectedIndexChanged
Dim XC As XClass
If ComboBox1.SelectedIndex > -1 Then
XC = DirectCast(ComboBox1.SelectedItem, XClass)
Label2.Text = XC.Num1.ToString
Label3.Text = XC.Num2.ToString
End If
End Sub
Mit der Auswahl eines Wertes aus der DropDownliste der Combobox
wird somit Label2.Text und Label3.Text verändert, was die Ereignisse
Label2.TextChanged u. Label3.TextChanged auslöst, die in der Sub
ValueChanged (s.weiter unten) behandelt werden.
Textbox: dort steht am anfang die zahl 0
... und in welcher Beziehung steht diese
Zahl zu dem Text aus der ComboBox?
es können andere zahlen eingegeben werden
In eine normale Textbox können aber auch Strings eingegeben werden,
die keine Zahlen repräsentieren, also z.B. "Mäuseklavier", was mit einer
Zahl nichts zu tun hat. Diesen möglichen Fall muss Dein Programmcode
abdecken (z.B. via .TryParse()).
EndLabel: Rechnung: Textbox.Text * (Label2.Text + Label3.Text)
-da kein button geklickt werden soll der diese rechnung durchführt
kommt ein timer zum einsatz
Dass man mit Strings, wie sie von Textbox.Text oder Label.Text zurückgegeben
werden, eben nicht rechnen kann, habe ich schon mehrfach erwähnt.
In diesem Zusammenhang auch nochmal der Hinweis, dass Du bei
allen Deinen Projekten "Option Explicit" und "Option Strict" einschalten
solltest.
Statt
Textbox.Text * (Label2.Text + Label3.Text)
sollte Dein Code etwa so aussehen:
Private Sub ValueChanged _
(ByVal sender As Object, _
ByVal e As System.EventArgs _
) Handles _
TextBox1.TextChanged, _
Label2.TextChanged, _
Label3.TextChanged
Dim Ergebnis As Integer
Dim OprA As Integer
Dim OprB As Integer
Dim OprC As Integer
Label1.Text = "" ' Ergebnisanzeige erst mal löschen
If Integer.TryParse(TextBox1.Text, Ergebnis) Then
OprA = Ergebnis
If Integer.TryParse(Label2.Text, Ergebnis) Then
OprB = Ergebnis
If Integer.TryParse(Label3.Text, Ergebnis) Then
OprC = Ergebnis
Ergebnis = OprA * (OprB + OprC)
Label1.Text = Ergebnis.ToString
End If
End If
End If
End Sub
Da diese Sub ValueChanged die Ereigniss TextBox1.TextChanged
und auch die .TextChanged-Ereignisse der beiden Labels (Label2
und Label3) abarbeitet, ist autom. sichergestellt, dass immer wenn
sich in der Textbox oder in einem der beiden Labels Label2 oder
Label3 der Textinhalt ändert auch sofort ein neues Ergebnis
berechnet wird, sofern Textbox und beide Labels einen zu einem
Wert vom Typ Integer umwandelbaren String enthalten.
Timer: er soll alle 100ms das ergebniss der rechnung erneuern -
also wenn die zeit agbelaufen ist wird das ergebniss angezeigt
-der timer beginnt von neuem -nach 100ms wird wieder das
ergebnis neu angezeigt
Da die Sub ValueChanged jede Änderung in Textbox1 und den
beiden Labels erfasst und ein Ergebnis berechnet, gibt es keinen
Grund via Timer nochmal ein ja ohnehin schon vorhandenes
Ergebnis zu berechnen.
z.B.: Textbox.Text * (Label2.Text + Label3.Text)
= 5 * (50 + 40
=450
also läuft im hintergrund ständig ein timer der die ergebnisse
aktualisiert damit nicht ein button angeklickt werden muss
Was, wenn ich Deine bisherigen Beschreibungen auch nur halbwegs
richtig interpretiert habe, völlig überflüssig wäre, da dieser Timer
nur Ergebnisse berechnen würde, die es ohnehin schon gibt.
Ich vermute mal, dass dir objektorientiertes Programmieren und
Ereignissteuerung (noch) nicht sonderlich geläufig sind. Mit diesen
Themen solltest Du Dich aber unbedingt vertraut machen, bevor
Du dann ein Ablauf und Bedienungskonzept für ein .net-Programm
erstellst.
Gruß aus St.Georgen
Peter Götz
www.gssg.de (mit VB-Tipps u. Beispielprogrammen)
