Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Was meinst du mit exe in der selbel größe laden? Willst du, dass die Form immer Fullscreen ist?Option Explicit
Private Declare Function GetDeviceCaps Lib "gdi32" ( _
ByVal hdc As Long, ByVal nIndex As Long) As Long
Const HORZRES = &H8
Const VERTRES = &HA
Private Sub Command1_Click()
Dim intBreite As Integer, intHoehe As Integer
intBreite = GetDeviceCaps(Me.hdc, HORZRES)
intHoehe = GetDeviceCaps(Me.hdc, VERTRES)
Text1.Text = Str(intBreite) & " * " & Str(intHoehe)
End Sub
frmmain_Laod()
...auflösung ermittel siehe oben...
frmmain.scalemode=pixel
frmmain.scalewidth=ermittelte weite
frmmain.scaleheight=ermittelte höhe