[VB.NET] iets toevoegen aan de tekst van een label

[Clyde Barrow]

In de textbox wordt een getal ingegeven en aan de hand van dat getal wordt een label gevuld:

bv: 3 in textbox :

label:
*
**
***

5 in textbox:
*
**
***
****
*****

ik blijf hierop vastzitten...

de code:

code:

Public Class frmSter

    Private Sub btnTeken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeken.Click
        Dim aantal As Short
        Dim teller As Short
        aantal = CShort(txtAantal.text)
        lblOutput.Text = "*"
        teller = 1

        For teller = 1 To aantal
            lblOutput.Text = CStr(lblOutput.Text) + "*" & vbCrLf
        Next
    End Sub

   
End Class

[Serpie]

Kijk eens naar de constructors van String, en anders misschien een tweede loop maken?

- Het lijkt me nu niet echt nodig om lblOutput.Text te casten, dit is al een string.
- Strings kun je beter altijd concatten met &, gebruik iedergeval 1 van beide, en niet + en & door elkaar heen.

[Niemand_Anders]

Staat je label (lblOutput) op AutoResize? Want anders past gewoon je resultaat niet in het label en zie je alleen de eerste regel. Plaats anders het resultaat eens een een grote textbox (MultiLine op true).

Daarnaast nog een aantal kleine opmerkingen:
cshort --> Convert.ToInt16(value). Werk je met Visual Studio 2005 (of hoger) dan kun je zelfs beter Int16.TryParse(value, aantal) en geeft true/false indien parsing wel of niet gelukt is.

Laatste lblOutput.Text &= "*" & Environment.NewLine

lblOutput.Text is altijd een string en is het dus niet nodig om een extra conversie naar een string te doen.

[Clyde Barrow]

bedankt!

[RobIII]

Clyde Barrow schreef op donderdag 09 augustus 2007 @ 18:01:
bedankt!

Als je nou ook nog even post wat de oplossing was, dan heeft het topic ook nog nut gehad voor anderen

[Clyde Barrow]

Eigenlijk was ik er niet uitgereikt en heb het label gewoon verandert door een TextBox (multiline true)

sorry...