vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 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

Visual-Basic Einsteiger
Buttons und Textboxen zur Laufzeit aktivieren 
Autor: Surfine2001
Datum: 01.04.03 11:40
Hallo,

habe folgendes Problem:

Mein Programm hat eine Form, 6 Textboxen (schreibgeschützt), 1 ComboBox (schreibgeschützt), 1 Label Status und ein paar Buttons: Hinzufügen, Bearbeiten, Löschen, Übernehmen, Abbrechen und Schliessen.

Wenn ich nun auf den Button "Bearbeiten" klicke, sollen die Textboxen Hinzufügen, Bearbeiten, Löschen und Schliessen von der Form verschwinden (Übernehmen und Abbrechen sind zur Zeit nicht auf der Form zu sehen) und die ComboBox + Textboxen zur Texteingabe aktiviert werden. Das Aktivieren der ComboBox und der Textboxen funktioniert, aber der Button Bearbeiten wird nicht ausgeblendet, wenn ich drauf klicke und Übernehmen Button wird nicht gezeigt, nur das Abbrechen Button.

Ich arbeite mit Visual Basic 6 und ADO

Hier ist mein Code: 

Private Sub SetButtons(bVal As Boolean)
  cmdAdd.Visible = bVal
  SearchCmd.Visible = bVal
  cmdCancel.Visible = Not bVal
  cmdDelete.Visible = bVal
  cmdClose.Visible = bVal
  cmdNext.Enabled = bVal
  cmdFirst.Enabled = bVal
  cmdLast.Enabled = bVal
  cmdPrevious.Enabled = bVal
End Sub
Bearbeiten Button: 

Private Sub cmdEdit_Click(Index As Integer)
 
 
    For i = 0 To 5
       text1(i).Enabled = True
    Next
 
    Combo1.Enabled = True
 
    SetButtons False
    Combo1.SetFocus
 
End Sub
Übernehmen Button: 

Private Sub cmdUebernehmen_Click(Index As Integer)
 
 
    'frmEigentuemer.Show
    ADOrs!Anrede = Combo1
    ADOrs!Vorname = text1(0)
    ADOrs!Nachname = text1(1)
    ADOrs!Strasse = text1(2)
    ADOrs!HausNr = text1(3)
    ADOrs!PLZ = text1(4)
    ADOrs!Ort = text1(5)
    ADOrs.Update
 
    For i = 0 To 5
       text1(i).Enabled = False
    Next
 
    Combo1.Enabled = False
 
    SetButtons True
    Combo1.SetFocus
   ' Unload Me
End Sub
Abbrechen Button:[

code]
Private Sub cmdCancel_Click()
For i = 0 To 5
text1(i).Enabled = False
Next

Combo1.Enabled = False

SetButtons True
End SubLiegt das vielleicht an Index As Integer? Denn ich kann unter SetButtons cmdEdit und cmdUebernehmen nicht als bVal bestimmen.

Gibts vielleicht eine andere Lösung, ausser die Form auf mehrere Formen teilen, denn das wollte ich vermeiden?

Danke schon mal im Voraus

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Buttons und Textboxen zur Laufzeit aktivieren1.581Surfine200101.04.03 11:40
Re: Buttons und Textboxen zur Laufzeit aktivieren986mst54701.04.03 12:32
Re: Buttons und Textboxen zur Laufzeit aktivieren982Surfine200101.04.03 12:43
Re: Buttons und Textboxen zur Laufzeit aktivieren1.085Surfine200101.04.03 13:17
Re: Buttons und Textboxen zur Laufzeit aktivieren986mst54701.04.03 13:32
Danke 957Surfine200101.04.03 14:24

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