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.
apfelkorn hat gesagt.:Und wenn ich auf denn Button "eintrag entfernen" klick , soll da die Frage kommen "eintrag wirklich entfernen?"
Und dann so 2 Button Ja / Nein!
Wie geht das?
Mfg apfelkorn
If MsgBox("Eintrag wirklich entfernen?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Form1") = vbYes Then
TextBox1.Text = ""
Else
' Nein
End If
Private Sub Command4_Click()
List1.RemoveItem a
List2.RemoveItem a
List3.RemoveItem a
List4.RemoveItem a
If MsgBox("Eintrag wirklich entfernen?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Form1") = vbYes Then
TextBox1.Text = ""
Else
' Nein
End If
End Sub
Private Sub Command4_Click()
If MsgBox("Eintrag wirklich entfernen?", vbExclamation Or vbYesNo Or vbDefaultButton2, "Form1") = vbYes Then
List1.RemoveItem a
List2.RemoveItem a
List3.RemoveItem a
List4.RemoveItem a
Else
' Nein
End If
End Sub
apfelkorn hat gesagt.:Wenn ich in der Inputbox eine zahl eingeben z.B "1000" soll immer € am ende stehen!
Wie mach ich das?