0

我在代码中遇到问题。

我的代码:

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myPics As New DirectoryInfo("F:\Documents and Settings\Adam\My Documents\My Pictures")
        Dim r As New Random
        Dim i As Integer = r.Next(myPics.GetFiles.Length)
        Dim Pics() As FileInfo = myPics.GetFiles

        PictureBox1.ImageLocation = Pics(i).FullName
    End Sub
End Class

我得到错误:

imagelocation 不是 windows.forms.picturebox 的成员

我应该如何解决这个问题?

4

1 回答 1

0

谷歌:http ://www.daniweb.com/forums/thread127945.html

在此编码中,仅 Ctrl 是 Control 引用而不是 PictureBox。所以你需要将它投射到 PictureBox 参考

If TypeOf ctrl Is PictureBox And ctrl.Name = PictureBoxName Then
   Dim MyPictureBox as PictureBox
   MyPictureBox = ctrl

   MyPictureBox.Imagelocation = sFilename
   MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
End If
于 2009-02-10T09:13:25.460 回答