Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Cancellare ultima lettera di una label
Forum - C# / VB.NET - Cancellare ultima lettera di una label

Avatar
secretfabios (Normal User)
Rookie


Messaggi: 59
Iscritto: 17/08/2009

Segnala al moderatore
Postato alle 21:40
Giovedì, 20/08/2009
Sapete come cancellare l' ultima lettera di una Label con un button?

Ultima modifica effettuata da secretfabios il 20/08/2009 alle 21:40


Segno zodiacale: Lasagna
PM Quote
Avatar
r0gerblack (Ex-Member)
Pro


Messaggi: 70
Iscritto: 04/08/2008

Segnala al moderatore
Postato alle 23:13
Giovedì, 20/08/2009
è necessario usare la funzione LastWord:
Codice sorgente - presumibilmente VB.NET

  1. Function LastWord(ByVal anystring)
  2.     If Not InStr(anystring, Chr(32)) = 0 Then
  3.         Dim FindSpace As String, Pos As Integer, StrLen As Integer
  4.         FindSpace = "Z"
  5.         StrLen = Len(anystring)
  6.         Pos = StrLen
  7.         Do Until FindSpace = Chr(32)
  8.             Pos = Pos - 1
  9.             FindSpace = Mid(anystring, Pos, 1)
  10.         Loop
  11.         LastWord = Mid(anystring, Pos + 1, StrLen - Pos + 1)
  12.     End If
  13. End Function


Così hai il testo dell'ultima lettera in una stringa, poi basta che cancelli il testo dato  e che aggiorni il testo del Label

Ultima modifica effettuata da r0gerblack il 20/08/2009 alle 23:15
PM Quote
Avatar
riseofapocalypse (Ex-Member)
Pro


Messaggi: 150
Iscritto: 08/07/2009

Segnala al moderatore
Postato alle 9:54
Venerdì, 21/08/2009
Io invece farei così:
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button1_Click(ByVal sender As Object, Byval e As EventArgs) Handles Button1.Click
  2.      If Label1.TextLength > 0 Then Label1.Text = Label1.Text.Reverse.SubString(1).Reverse
  3. End Sub


Non ho provato il codice, potrebbe rendersi necessario un Cast di tipo ogniqualvolta viene chiamata la Reverse! :k:


Mountain's man said no!
PM Quote
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 13:14
Domenica, 23/08/2009
nono che state facendo -.- basta una riga di codice

label1.label=label1.text.remove(label1.lenght-1,1)

PM Quote