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 Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As Any, ByVal lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long
Private Sub lblWWW_Click()
ShellExecute Me.hWnd, "Open", "http://www.deineURL.de", "", App.Path, 1
End Sub
Public Class Form1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As Any, ByVal lpParameters As Any, ByVal lpDirectory As Any, ByVal nShowCmd As Long) As Long
Dim Ladefaktor As String
Dim Ladezeit As String
' Nur Zahlen in den Feldern zulassen
Private Sub TextBox1_KeyPress( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox1.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8
' Zahlen, Backspace und Space zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub TextBox2_KeyPress( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox2.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8
' Zahlen, Backspace und Space zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text <> "" Then
If TextBox2.Text <> "" Then
If RadioButton1.Checked = True Then
Ladefaktor = 1.02
ElseIf RadioButton2.Checked = True Then
Ladefaktor = 1.3
End If
Ladezeit = Format((Val(TextBox1.Text) / Val(TextBox2.Text)) * Ladefaktor, "0.00")
TextBox3.Text = Str(Ladezeit)
End If
End If
End Sub
Private Sub lblWWW_Click()
ShellExecute(Me.hWnd, "Open", "http://www.deineURL.de", "", App.Path, 1)
End Sub
End Class