2012-06-06 66 views

回答

4

试试这个:

Public Function GetRandomImageFilePath(ByVal folderPath As String) As String 
    Dim files() As String = Directory.GetFiles(folderPath, "*.png") 
    Dim random As Random = New Random() 
    Return files(random.Next(0, files.Length - 1)) 
End Function 

仅供参考,如果你要调用它多次,这将是最好一次创建random作为类的私有成员,使其不补种随机每次调用时都会生成一个数字。

+0

多种方式,这个程序只包含一种形式? –

+0

我只是说,如果要多次调用此方法,尤其是在快速连续的情况下,将'Dim Random As Asynchronous = New Random()'行移动到表单级别会很好,但如果表单只会调用一次,这不是必需的。无论哪种方式,它会正常工作。只是它会稍微低效,而且随意性也会降低。如果可能的话,处理随机数字只播种一次只是一种很好的做法。不过,为了您的目的,我认为这不是必要的。 –