Показывать картинки из папки в центре полного экрана

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

Если вы используете элемент управления изображением для отображения изображения и если вашим именем элемента управления изображением является "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