satriano17
Gebruiker
- Lid geworden
- 30 sep 2012
- Berichten
- 331
daar staat inderdaad bv Test.txt
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Image1.Picture = LoadPicture(CommonDialog1.FileName & ".bmp")
Image1.Picture = LoadPicture,Replace(CommonDialog1.FileName, ".txt", ".bmp")
CommonDialog1.FileName = Replace(CommonDialog1.FileName, ".txt", ".bmp")
Image1.Picture = LoadPicture(CommonDialog1.FileName)
Private Sub Command1_Click()
Dim Slash As String
Dim testo As String, kFile As String
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
' MkDir App.Path & "\DiagnoseArchief\" ' qui ho aggiunto
CommonDialog1.Filter = "Tekst|*.txt"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "DiagnoseArchief"
CommonDialog1.FileName = App.Path & Slash & "DiagnoseArchief" & "\*.txt"
CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
testo = ""
Do Until EOF(1)
Line Input #1, kFile
testo = testo & kFile & vbCrLf
Line Input #1, kFile
testo2 = testo2 & kFile & vbCrLf
Loop
Text1.Text = testo
Text2.Text = testo2
Close #1
CommonDialog1.FileName = Replace(CommonDialog1.FileName, ".txt", ".bmp")
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub
Private Sub Command2_Click()
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
On Error Resume Next ' save
Dim Slash As String
'On Error Resume Next
MkDir App.Path & "\DiagnosiArchivio" ' qui ho aggiunto
On Error Resume Next
CommonDialog1.Filter = "Tekst|*.txt"
If Right(App.Path, 1) <> "\" Then Slash = "\"
CommonDialog1.InitDir = App.Path & Slash & "DiagnoseArchief"
CommonDialog1.FileName = App.Path & Slash & "DiagnoseArchief" & "\*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
Print #1, Text1.Text
Print #1, Text2.Text
Close #1
SavePicture Image1.Picture, Replace(CommonDialog1.FileName, ".txt", ".bmp")
EndSub
Image1.Picture = LoadPicture(CommonDialog1.FileName)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.