Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Buchstaben aus Label löschen
Autor: Martin01
Datum: 07.05.03 22:13
'In Form, Bas, Cls ... Function LetztesZeichenWeg(byval Text as String) as String Dim Lang As Long Lang = Len(Text) If Text = 0 Then LetztesZeichenWeg=Text ' oder LetzesZeichenWeg= "" Else LetztesZeichenWeg = Text(Mid$(Text,1,Lang-1)) End If End Sub 'z.B. Sub Form_Load() Dim Str as String Str = "12345" '... Str = LetztesZeichenWeg(Str) Label1.Caption = LetztesZeichenWeg(Label1.Caption) End Sub

Buchstaben aus Label löschen	72	Nox	07.05.03 18:18
Re: Buchstaben aus Label löschen	32	Martin01	07.05.03 18:29
Re: Buchstaben aus Label löschen	20	Nox	07.05.03 21:23
Re: Buchstaben aus Label löschen	58	Martin01	07.05.03 22:13

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