我正在尝试使用变量名创建一堆WebBrowsers;我从以下代码开始,但似乎有一些错误,我无法想象我们; 错误发生在代码的第一部分中;
任何帮助/评论表示赞赏:
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim NumberOfBrowsers As Integer = 12
For Pro As Integer = 1 To NumberOfBrowsers
Dim frmNew As New Form
'------------------------- FIRST PORTION:
Dim MekdamBrowser As New WebBrowser
MekdamBrowser = "WebBrowser" & Pro
frmNew.Controls.Add(MekdamBrowser)
'-------------------------
MekdamBrowser.Location = New System.Drawing.Point(10, 10)
MekdamBrowser.Size = New System.Drawing.Size(300, 300)
MekdamBrowser.Show()
'-------------------------
Next
End Sub
End Class
由于
答案 0 :(得分:1)
似乎您希望第一部分改为:
'------------------------- FIRST PORTION:
Dim MekdamBrowser As New WebBrowser
MekdamBrowser.Name = "WebBrowser" & Pro
frmNew.Controls.Add(MekdamBrowser)
'-------------------------
这与您尝试的原始代码之间存在差异,上面的代码为WebBrowser
控件指定了名称,其中相应的代码行尝试"替换" WebBrowser
使用名称控制它自己(它尝试将字符串数据分配给WebBrowser
类型的变量,这不是有效的操作。)