Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Private Sub Bildwechsel(Bild) {
Image1.Image = Bild
If Image1.Height > Picture1.ScaleHeight Then
VScroll.Visible = True
VScroll.Min = 0
VScroll.Max = Image1.Height - Picture1.ScaleHeight - HScroll1.Height
Else
VScroll.Visible = False
End If
If Image1.Width > Picture1.ScaleWidth Then
HScroll.Visible = True
HScroll.Min = 0
HScroll.Max = Image1.Width - Picture1.ScaleWidth - VScroll1.Width
Else
HScroll.Visible = False
End If
Image1.Left = 0
Image1.Top = 0
VScroll.Value = 0
HScroll.Value = 0
}
Private Sub BildScrollen()
{
Image1.Left = -HScroll.Value
Image1.Top = -VScroll.Value
}