从全屏中心的文件夹中显示图片

Question

我有两组图片保存在两个文件夹中。我希望程序在全屏窗体中心随机显示这些图片。我正在试图用visual basic来做到这一点。

Private Sub VScroll1_Change() 

End Sub 

Private Sub Command1_Click() 
    Form2.Show 
    Form1.Hide 
    Timer1.Enabled = True 
End Sub 

Private Sub Form_Load() 

End Sub 

Private Sub Timer1_Timer() 

    If Interval > 0 Then 
     Timer1.Enabled = True 
    Else 
     Timer1.Enabled = False 
     Form2.Hide 
     End 
    End If 

End Sub 

Answer 1

如果使用Image控件来显示图像，如果你的Image控件的名称是“图像1”，那么你可以使用下面的每次更改图片的时间重新定位在中心你的形象。

Image1.Left = (Me.ScaleWidth - Image1.Width)/2 
Image1.Top = (Me.ScaleHeight - Image1.Height)/2 

添加以下内容：

你必须把你的形式FileListBox控件并将其命名为f

Dim folder As String 
Dim n As Integer 

Private Sub Timer1_Timer() 
    n = Rnd() * f.ListCount 

    Image1.Picture = LoadPicture(folder & "\" & f.List(n)) 

    Image1.Left = (Me.ScaleWidth - Image1.Width)/2 
    Image1.Top = (Me.ScaleHeight - Image1.Height)/2 

End Sub 

Private Sub Form_Load() 
    folder = "D:\VLTR" 

    f.Visible = False 
    f.Pattern = "*.jpg" 
    f.Path = folder 
End Sub