随机图片生成器给出错误“对非共享成员的引用需要对象引用”

Question

我需要开发一个随机图片生成器作为我项目的一部分，因为我是新手，所以我捏了一些互联网代码，但是它抛出了错误消息“对非共享成员的引用需要对象引用”。这是我的代码：

      Dim randnum As random
      Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    randnum = Random.Next(30)
    pbxPicture.Image = My.Resources.ResourceManager.GetObject("Image_" & randnum.ToString())
End Sub

我的资源中的图像被命名为“image_0”“image_1”等等，所以我希望你能看到我在这里想要实现的目标，如果有人能帮助我，我将非常感激 :) 谢谢！

Answer 1

你必须 instantiate randnum 变量，然后调用 Next() 。您还需要一个Integer 变量来将Next() 的返回值放入。

为了清楚起见，我将第一个变量重命名为 rand，并将整数变量命名为 randnum：

Dim rand As New Random 'Renamed variable and added the "New" keyword.
Dim randnum As Integer = 0 'An Integer variable to hold the result of "rand.Next()".

Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    randnum = rand.Next(30)
    pbxPicture.Image = My.Resources.ResourceManager.GetObject("Image_" & randnum.ToString())
End Sub