For..next loop

[krolik]

In VB5 gebruikte ik

For i = 1 to 10
Print i
Next i

Dan verschenen de getallen 1 t/m 10 onder elkaar in beeld

In Visual Studio 2008 werkt dit niet.

Is er iets veranderd? Misschien een ander statement?

Iemand die mij hierbij kan helpen?

Bvd,

Królik

 

[Tdj]

Hallo krolik,

er is inderdaad iets verandert.

Nu in Visual Studio 2008 is het:

Dim i as Integer

For i = 0 To 10
  'Code
Next

Of nog beter:

For i as Integer = 0 To 10
  'Code
Next

Tdj

 

[krolik]

Bedankt voor het meedenken. Die loop is wel duidelijk, maar het gaat om het statement "print". Het volgende zou te zien moeten zijn:
1
2
3
4
5
6
7
8
9
10

En dat doet niets.

 

[Tdj]

Console.WriteLine(i) zou moeten werken

 

[krolik]

Dat is waarschijnlijk van toepassing voor een 'Console Application'.
Ik ben bezig met een 'Windows Forms Application'.

 

[Jabber]

Waar wil je tekst in laten zien?

Maak eerst een string.... (Met bv stringbuilder)

Dim sb as New StringBuilder
For i as integer = 0 To 10
sb.AppendLine(i.ToString)
Next

Nu moeten we het nog ergens in laten zien. Misschien een tekstbox (multpile line):

TextBox1.Text = sb.ToString.

Je kunt natuurlijk ook het volgende doen:

For i as integer = 0 To 10
Display(i,false)
Next

Public Sub Display(i as integer, clearbox as boolean)
Dim newLine as String = String.Empty
if clearbox then
TextBox1.Text = String.Empty
Else
newLine = Environment.NewLine 
endif

TextBox1.Text = TextBox1.Text & newLine & i.ToString
End Sub

 

[krolik]

Ik wil de text in Form1 zien, na op Button1 geklikt te hebben

 

[krolik]

OK Jabber,

De laatste oplossing werkt. Vroeger was het gemakkelijker, kon je direct in het formulier schrijven. Nu met een textbox gaat het ook, alleen meer werk.

Bedankt voor de hulp, ook de anderen.

Mvg,

Królik

 

[That Guy]

bestaat er in vb200X niet zoiets als me.forms.form1 als ding?

check anders deze site, mischien is het iets:
http://msdn.microsoft.com/en-us/magazine/cc301924.aspx

 

[bn2vs]

om direct op je form te schrijven heb je iets in deze aard nodig als ik het goed heb

dim gfx as graphics = me.creategraphics()
gfx.drawtext(args)

 

[krolik]

Bedankt voor je reactie, maar 'drawtext' is nergens te vinden.

 

[bn2vs]

Oh ja, het is .drawstring()

Ik heb ff een procedure geschreven die het je wat makkelijker maakt

    Private Sub printString(ByVal text As String, ByVal color As System.Drawing.Brush, _
     ByVal drawingSurface As Control, ByVal position As Point, _
    Optional ByVal seize As Integer = 15, _
    Optional ByVal fontStyle As FontStyle = FontStyle.Regular, _
    Optional ByVal font As String = "Microsoft Sans Serif")
        drawingSurface.CreateGraphics.DrawString(text, New Font(font, seize, fontStyle), color, position.X, position.Y)
    End Sub

Gewoon in je class paste, en dan bv dit doen (als je 0 tot 9 onder elkaar wilt hebbe)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For x As Integer = 0 To 9
            printString(x.ToString, Brushes.DarkBlue, Me, New Point(10, 20 * x + 10))
        Next
    End Sub

Heb hem hier ook ff gepost http://code.tiko-world.com/forum/viewtopic.php?t=38

Hoop dat je nu verder kan

 

[krolik]

Geachte bn2vs,

Dit is het helemaal, precies wat ik bedoelde. Weliswaar wat meer code dan vroeger. Maar het gaat mij erom om dingen in een form te printen, zonder extra textbox.
Zeer bedankt.

Mvg,

Królik

 

[bn2vs]

zet je de topic dan ff op opgelost?