Here is my ENTIRE project code:
I'm just starting on a new project to display 78 images similar to a PPT slide show. I would like each image/picture (they are all jpgs) to (eventually ALMOST) fill the form/screen.
I made my form maximized at start up. I set all (only 4 here) pics invisible at first. Then the command button
was supposed to place the first picture top left and then fill the screen vertically and horizontally.
What I got is shown below: (I am not currently worried about resolution of the actual images.)
Is it because the jpgs are already a certain height and width that they will display ONLY at those dimensions? Can I stretch them if they are?
I tried this with an imagecontrol as well. Could not figure it out.
Attachment 93031
Code:
Option Explicit
Private Sub Command1_Click()
Picture1(0).Visible = True
Picture1(0).Top = 0
Picture1(0).Left = 0
Picture1(0).Width = Screen.Width
Picture1(0).Height = Screen.Height
End Sub
Private Sub Form_Load()
Dim i As Object
For Each i In Picture1
i.Visible = False
Next i
End SubI made my form maximized at start up. I set all (only 4 here) pics invisible at first. Then the command button
was supposed to place the first picture top left and then fill the screen vertically and horizontally.
What I got is shown below: (I am not currently worried about resolution of the actual images.)
Is it because the jpgs are already a certain height and width that they will display ONLY at those dimensions? Can I stretch them if they are?
I tried this with an imagecontrol as well. Could not figure it out.
Attachment 93031