從全屏中心的文件夾中顯示圖片

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