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.
Open "C:\datei.txt" For Output As #1
Print #1, Text1.Text
Close #1
Open "C:\datei.txt" For Input As #1
Do While Not Eof(1)
Text1.Text = Text1.Text & vbNewLine
Line Input #1, Text1.Text
Loop
Private Sub Beenden_Click()
Unload Me
End Sub
Private Sub Speichern_Click()
Open "C:\datei.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Laden_Click()
Open "C:\datei.txt" For Input As #1
Do While Not EOF(1)
Text1.Text = Text1.Text & vbNewLine
Line Input #1, Text1.Text
Loop
End Sub
Dim text As String
Private Sub laden_Click()
Open "C:\datei.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, text
Text1.text = Text1.text & vbNewLine & text
Loop
End Sub
Private Sub speichern_Click()
Open "C:\datei.txt" For Output As #1
Print #1, Text1.text
Close #1
End Sub