vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Textbox Problem 
Autor: rtaucher
Datum: 23.06.05 07:56
Hallo!

Dies ist eigentlich eine Fortsetzung meines Beitrags:
http://www.vbarchiv.net/forum/id22_i4444t4444.html

also ich habe 12 textboxen auf einem panel.
wenn ich was reinschreibe in eine textbox, dann werden die werte in ein array geschrieben...
jetzt habe ich eine combobox, wo ich verschiedene "rezepte" auswähle...
dh. zb. rezept1, in textb1 steht 15, textb.2 steht 3 etc...
bei rezept2 steht in textbox1 25, in textb2 47...

jetzt habe ich folgenden code: 
    Private Sub tbGewMK1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tbGewMK1.TextChanged
        Me.Update_Werte_Gewichtung()
    End Sub
den habe ich für alle textboxen drinnen....
die funktion update_werte_gewichtung schaut folgendermaßen aus: 
   Private Sub Update_Werte_Gewichtung()
        Dim Rez As Integer
        Dim temp As ComboItem
 
        Rez = Me.cbEinstellungRezepte.SelectedIndex + 1
 
        Me.Rezept_Intern(Rez).MK1Gew = Me.tbGewMK1.Text
        Me.Rezept_Intern(Rez).MK2Gew = Me.tbGewMK2.Text
        Me.Rezept_Intern(Rez).MK3Gew = Me.tbGewMK3.Text
        Me.Rezept_Intern(Rez).MK4Gew = Me.tbGewMK4.Text
        Me.Rezept_Intern(Rez).MK5Gew = Me.tbGewMK5.Text
        Me.Rezept_Intern(Rez).MK6Gew = Me.tbGewMK6.Text
        Me.Rezept_Intern(Rez).MK7Gew = Me.tbGewMK7.Text
        Me.Rezept_Intern(Rez).MK8Gew = Me.tbGewMK8.Text
        Me.Rezept_Intern(Rez).MK9Gew = Me.tbGewMK9.Text
        Me.Rezept_Intern(Rez).MK10Gew = Me.tbGewMK10.Text
        Me.Rezept_Intern(Rez).MK11Gew = Me.tbGewMK11.Text
        Me.Rezept_Intern(Rez).MK12Gew = Me.tbGewMK12.Text
wenn ich das rezept in der combobox wechsle führe ich folgenden code aus: 
   Public Sub WertZuweisung()
        Dim Rez As Integer
 
        Rez = Me.cbEinstellungRezepte.SelectedIndex + 1
 
 
        If Me.Rezept_Intern(Rez).Teachin = "" Then
            Me.cbTeachin.SelectedIndex = -1
            Me.Zuweisung_Farbe_Text_Rezept()
        Else
            'Gewichtung
            Me.tbGewMK1.Text = Me.Rezept_Intern(Ma, Rez).MK1Gew
            Me.tbGewMK2.Text = Me.Rezept_Intern(Ma, Rez).MK2Gew
            Me.tbGewMK3.Text = Me.Rezept_Intern(Ma, Rez).MK3Gew
            Me.tbGewMK4.Text = Me.Rezept_Intern(Ma, Rez).MK4Gew
            Me.tbGewMK5.Text = Me.Rezept_Intern(Ma, Rez).MK5Gew
            Me.tbGewMK6.Text = Me.Rezept_Intern(Ma, Rez).MK6Gew
            Me.tbGewMK7.Text = Me.Rezept_Intern(Ma, Rez).MK7Gew
            Me.tbGewMK8.Text = Me.Rezept_Intern(Ma, Rez).MK8Gew
            Me.tbGewMK9.Text = Me.Rezept_Intern(Ma, Rez).MK9Gew
            Me.tbGewMK10.Text = Me.Rezept_Intern(Ma, Rez).MK10Gew
            Me.tbGewMK11.Text = Me.Rezept_Intern(Ma, Rez).MK11Gew
            Me.tbGewMK12.Text = Me.Rezept_Intern(Ma, Rez).MK12Gew
            'TeachIn
            Me.cbTeachin.SelectedItem = Me.Rezept_Intern(Ma, Rez).Teachin
        End If
end sub
aber es funktioneirt irgendwie nicht!
ich ändere zb. in der textbox 1 etwas und auch in textbox 2, aber die änderung übernimmt er mir nur von textbox1!

was mache ich da falsch?

danke für eure hilfe!
bin echt schon recht verzweifelt...

mfg
rt

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Textbox Problem756rtaucher23.06.05 07:56
Re: Textbox Problem470ModeratorFZelle23.06.05 09:27
Re: Textbox Problem476rtaucher23.06.05 09:38
Re: Textbox Problem572ModeratorFZelle23.06.05 10:30
Re: Textbox Problem525rtaucher23.06.05 10:37

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel