|
| |
VB.NET - Ein- und Umsteiger| Textbox Inhalt löschen | |  | | Autor: Der ratlose Rudi | | Datum: 09.07.13 08:01 |
| Hallo 
ich habe eine Form mit mehreren Textfeldern, die wenn bestimmte Werte zutreffen, mit Daten aus der Datenbank gefüllt werden. das klappt soweit.
Wenn ich aber nun eines oder mehrere dieser Textfelder ändern möchte, sollte, wenn ich in dem entsprechenden Feld einen Text eingebe, der da bereits vorhandene Text aus der Datenbank gelöscht werden.
Gibt es dafür eine Möglichkeit ?
bisher muss ich ihn manuell verändern oder löschen, das ist aber nervig
MfG | |
| Re: Textbox Inhalt löschen | | | | Autor: Zardoz | | Datum: 09.07.13 14:54 |
| Hallo Rudi,
am einfachsten ist es, einen Button "Felder löschen" anzulegen.
Wenn du das automatisieren willst, kannst du das über ein Flag
steuern. Ich gehe mal von einem Steuerelementefeld aus:
Private flgClear As Boolean
Private Sub Form_Load()
flgClear = True
End Sub
Private Sub Text1_Change(Index As Integer)
Dim i%
If flgClear = False Then Exit Sub
flgClear = False
For i = Text1.LBound To Text1.UBound
If i <> Index Then Text1(i).Text = ""
Next i
End SubWenn die Daten aus den Textfeldern verarbeitet sind,
das Flag wieder mit flgClear = True setzen.
Weiterhin kannst du den Text einer Textbox bei Focuserhalt
markieren. Dann wird er mit dem ersten Testendruck gelöscht:
Private Sub Text1_GotFocus(Index As Integer)
With Text1(Index)
.SelStart = 0
.SelLength = Len(.Text)
End With
End SubGruss,
Zardoz | |
| Re: Textbox Inhalt löschen | | | | Autor: Der ratlose Rudi | | Datum: 09.07.13 19:55 |
| Hallo Zardoz
Danke für deine Antwort.
Also im Idealfall sollte beim ersten Tastendruck im entsprechendem Textfeld der vorhandene Wert gelöscht werden ohne vorher markiert zu sein und eine neue Eingabe zugelassen werden.
Das wäre schön.
Deswegen gefällt mir diese Lösung am besten.
Private flgClear As Boolean
Private Sub Form_Load()
flgClear = True
End Sub
Private Sub Text1_Change(Index As Integer)
Dim i%
If flgClear = False Then Exit Sub
flgClear = False
For i = Text1.LBound To Text1.UBound
If i <> Index Then Text1(i).Text = ""
Next i
End Sub
bei den markierten Stellen habe ich eine Fehlermeldung ( LBound bzw. UBound ist kein Member von "System.Windows.Forms.Textbox".
und bei Text1(i) Die Klasse "System.Windows.Forms.Textbox" kann nicht indiziert werden, da sie keine Standardeigenschaft hat.
flgClear = True sollte das bei lostfocus oder besser beim nächsten feld gotfocus untergebracht werden ?
Grüße
der ratlose | |
| Textbox Inhalt löschen | | | | Autor: Der ratlose Rudi | | Datum: 09.07.13 21:04 |
| Ups... sorry
danke für den Hinweis | |
| Re: Textbox Inhalt löschen | | | | Autor: Der ratlose Rudi | | Datum: 12.07.13 08:00 |
| hallo
Ich habe mein Problem gelöst
Danke für Euere Tipps
Gruß
Der Ratlose | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
| |
|
Copyright ©2000-2024 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
|
|
Mai 2024
Sie sind aktuell nicht angemeldet.