Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Textfelder leeren
Autor: Brauner
Datum: 16.06.08 21:03
Hallo Dieter, ich habe das wie folgt eingefügt, aber was mache ich falsch ? Private Sub Command2_Click() ' Noch verbessern WICHTIG Dim bNoChangeEvent As Boolean bNoChangeEvent = True 'Textfelder löschen Call LöscheAlleTextFelder(Form1) bNoChangeEvent = False Text1(0).SetFocus End Sub Sub LöscheAlleTextFelder(frmForm As Form) Dim bNoChangeEvent As Boolean Dim ctlControl As Object bNoChangeEvent = True For Each ctlControl In frmForm.Controls Select Case TypeName(ctlControl) Case "TextBox" ctlControl.Text = "" Case "ComboBox" ctlControl.Text = "" ctlControl.ListIndex = -1 End Select Next bNoChangeEvent = False End Sub Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) For Index = 0 To Text2.UBound Text2(Index).Text = "" Next Index End Sub Sub Form_Load() Dim i As Integer For i = 0 To Text1.UBound Text1(i).Text = "" Next i For i = 0 To Text2.UBound Text2(i).Text = "" Next i 'Picture1.Picture = LoadPicture("c:\bildkopie\pic00049.jpg") xpi# = 4 * Atn(1) xy# = xpi# / 180 xz# = 180 / xpi# End Sub Private Sub Text1_Change(Index As Integer) Dim bNoChangeEvent As Boolean If bNoChangeEvent Then Exit SubOn Error Resume Next xa# = CCur(Text1(0).Text) xh# = CCur(Text1(1).Text) If xa# > 0 And xh# > 0 Then berechnen

Textfelder leeren	1.153	Brauner	15.06.08 10:14
Re: Textfelder leeren	871	VBStein	15.06.08 10:31
Re: Textfelder leeren	764	Brauner	15.06.08 11:24
Re: Textfelder leeren	788	Dieter	16.06.08 07:35
Re: Textfelder leeren	841	Brauner	16.06.08 17:07
Re: Textfelder leeren	924	Dieter	16.06.08 18:01
Re: Textfelder leeren	779	Brauner	16.06.08 21:03
Re: Textfelder leeren	779	Brauner	16.06.08 21:17
Re: Textfelder leeren	731	Dieter	17.06.08 08:56
Re: Textfelder leeren	749	Brauner	17.06.08 18:04
Re: Textfelder leeren	735	Dieter	17.06.08 18:23
Re: Textfelder leeren	739	Brauner	17.06.08 20:55

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übersicht

Suchen