Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Buchstaben aus Label löschen
Autor: Martin01
Datum: 07.05.03 18:29
Str = "12345" Str = Mid$(Str,1,4) Label1.Caption = "12345" Label1.Caption = Mid$(Str,1,4) Function LetzesZeichenWeg(byval Text as String) as String) Dim Lang as long Lang = Len(Text) If Text = 0 Then LetzesZeichenWeg=Text ' oder LetzesZeichenWeg= "" Else LetzesZeichenWeg = Text(Mid$(Text,1,Lang-1)) End If End Sub '... Str = LetzesZeichenWeg(Str) Label1.Caption = LetzesZeichenWeg(Label1.Caption)

Buchstaben aus Label löschen	72	Nox	07.05.03 18:18
Re: Buchstaben aus Label löschen	33	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