vb6 - 在全屏中心显示文件夹中的图片

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 控件名称为“Image1”，那么您可以使用以下方法在每次更改图片时将图像重新定位在中心。

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