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 command1()
open"den in der Listbox markierten Pfad"
...
End sub
Private Sub command1_click()
open"markierten Pfad" for input as #Nr
input #Nr, ...
...
End sub
Private Sub Command1_Click()
Dim Text As String
Dim Nr As Integer
Nr = FreeFile
Open List1.List(List1.ListIndex) For Binary As #Nr
Text = Space(LOF(Nr))
Get #Nr, , Text
Close #Nr
Text1.Text = Text
End Sub