0

我是 VB 的新手。我读了一本书并遵循它的代码

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim Wrap As String
    Wrap = Chr(13) & Chr(10)
    Dim i As Integer
    For i = 1 To 4
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\face0" & i & ".ico")
        MsgBox("Click for next face")
    Next
End Sub
End Class

有用。但是，我尝试调整代码以使 Wrap 成为整个 form1 可用的变量。我做了以下，但它不起作用。为什么？

Public Class Form1

    Dim Wrap As String
    Wrap = Chr(13) & Chr(10)

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Dim i As Integer
    For i = 1 To 4
        PictureBox1.Image = System.Drawing.Image.FromFile("C:\face0" & i & ".ico")
        MsgBox("Click for next face")
    Next
End Sub
End Class
4

2 回答 2

1

您不能在类级别拥有任意代码段。Wrap = Chr(13) & Chr(10)是一段任意代码。

如果要为变量赋值，请使用初始值设定项：

Dim Wrap As String = Chr(13) & Chr(10)

更好的是，使用ControlChars.CrLfwhich 是相同的预定义常量。

于 2012-07-01T23:21:12.057 回答
0

因为您将代码放在函数之外，所以这里只允许声明。

顺便说一句，Chr(13) & Chr(10) 可以用一个更好的版本代替： vbCrLf 它是一个常数，所以你不需要声明它，它做的完全一样......

于 2012-07-01T23:21:43.550 回答