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 - [VB.NET] Nascondere parte di testo visualizzato in label
Forum - C# / VB.NET - [VB.NET] Nascondere parte di testo visualizzato in label

Avatar
Cobra (Normal User)
Rookie


Messaggi: 29
Iscritto: 04/11/2011

Segnala al moderatore
Postato alle 10:40
Domenica, 05/02/2012
Ciao ragazzi,
attraverso l'uso di steamwriter e streamreader sto creando un programma in vb.net che mi permetta di settare varie impostazioni in un file di testo. Vorrei sapere, è possibile nascondere parte di testo visualizzato in una label? Cioè, faccio un esempio pratico e poi posto il codice per essere quanto più chiaro possibile. Ipotizziamo che abbia nel documento di testo la seguente riga:

Opzione 1 = Ciao

è possibile visualizzare nella label solo la parola "Ciao"?

Eccovi il codice:

Codice sorgente - presumibilmente VB.NET

  1. Imports System
  2. Imports System.IO
  3. Imports Microsoft.VisualBasic
  4.  
  5. Public Class Form1
  6.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  7.         TextBox1.TabIndex = 0
  8.         TextBox2.TabIndex = 1
  9.         TextBox3.TabIndex = 2
  10.         TextBox4.TabIndex = 3
  11.         TextBox5.TabIndex = 4
  12.         Button1.TabIndex = 5
  13.         Button2.TabIndex = 6
  14.         Timer1.Start()
  15.         Timer1.Interval = 1
  16.     End Sub
  17.  
  18.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  19.         Dim sw As System.IO.StreamWriter
  20.         sw = IO.File.CreateText("C:\Impostazioni.txt")
  21.         sw.WriteLine(Chr(91) & Label1.Text & Chr(93))
  22.         sw.WriteLine(Label2.Text & " " & Chr(61) & " " & TextBox1.Text())
  23.         sw.WriteLine(Label3.Text & " " & Chr(61) & " " & TextBox2.Text())
  24.         sw.WriteLine(Label4.Text & " " & Chr(61) & " " & TextBox3.Text())
  25.         sw.WriteLine(Label5.Text & " " & Chr(61) & " " & TextBox4.Text())
  26.         sw.WriteLine(Label6.Text & " " & Chr(61) & " " & TextBox5.Text())
  27.         sw.Flush()
  28.         sw.Close()
  29.     End Sub
  30.  
  31.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  32. 'Pulsante per ottenere il settaggio predefinito delle impostazioni
  33.         Dim sw As System.IO.StreamWriter
  34.         sw = IO.File.CreateText("C:\Impostazioni.txt")
  35.         sw.WriteLine(Chr(91) & Label1.Text & Chr(93))
  36.         sw.WriteLine(Label2.Text & " " & Chr(61) & " " & "Predefinita 1")
  37.         sw.WriteLine(Label3.Text & " " & Chr(61) & " " & "Predefinita 2")
  38.         sw.WriteLine(Label4.Text & " " & Chr(61) & " " & "Predefinita 3")
  39.         sw.WriteLine(Label5.Text & " " & Chr(61) & " " & "Predefinita 4")
  40.         sw.WriteLine(Label6.Text & " " & Chr(61) & " " & "Predefinita 5")
  41.         sw.WriteLine(Label12.Text & " " & Chr(61) & " " & "Predefinita 5")
  42.         sw.Flush()
  43.         sw.Close()
  44.     End Sub
  45.  
  46.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  47. 'Utilizzo il timer per visualizzare in tempo reale le impostazioni contenute all'interno del file
  48.         Dim file As New StreamReader("C:\Impostazioni.txt")
  49.         Label7.Text = file.ReadLine()
  50.         Label8.Text = file.ReadLine()
  51.         Label9.Text = file.ReadLine()
  52.         Label10.Text = file.ReadLine()
  53.         Label11.Text = file.ReadLine()
  54.         Label12.Text = file.ReadLine()
  55.         file.Close()
  56.     End Sub
  57. End Class



Rimanendo in attesa di vostre risposte, auguro a tutti una felice domenica :k: :k: :k:


« La vita è troppo breve per avere dei nemici. »
    
(Ayrton Senna)
PM Quote
Avatar
nessuno (Normal User)
Guru^2


Messaggi: 5473
Iscritto: 03/01/2010

Segnala al moderatore
Postato alle 10:49
Domenica, 05/02/2012
Ma tu sai cosa sia una

variabile?

Penso di sì, perché altrimenti non potresti scrivere programmi.

Quindi usa una variabile per leggere la linea (con la ReadLine) e copia la parte della variabile che ti serve nella Label.


Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 10:55
Domenica, 05/02/2012
Usa il metodo remove.

Remove(I, L) : rimuove dalla stringa tutti i caratteri a partire dall'indice I, opzionalmente specificandone anche il numero L

Esempio: Ciao 1

Codice sorgente - presumibilmente Plain Text

  1. Label1.Text = "ciao 1"
  2. Label1.Text = Label1.Text.Remove(4)


PM Quote
Avatar
Cobra (Normal User)
Rookie


Messaggi: 29
Iscritto: 04/11/2011

Segnala al moderatore
Postato alle 14:23
Domenica, 05/02/2012
Grazie, tutto ok ;)


« La vita è troppo breve per avere dei nemici. »
    
(Ayrton Senna)
PM Quote