Hoi,
Onder de refresh button staat een read-only textbox. Die maak je door een textbox te plaatsen en dan in het property's venster 'read-only' op true te zetten.
Wat bedoel je precies met 'ik kom niet verder dan hier'? Dat je de codes verder niet kan zien?
Form1:
[CPP]Imports System.IO
Public Class Form1
Friend TempFolder As String = Path.Combine(My.Computer.FileSystem.SpecialDirectories.Temp, Application.ProductName)
Friend TempFile As String = Path.Combine(TempFolder, "temp.txt")
Friend Host As String = ""
Friend User As String = ""
Friend Pass As String = ""
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Directory.Exists(TempFolder) Then
Directory.CreateDirectory(TempFolder)
End If
Form2.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If File.Exists(TempFile) Then
File.Delete(TempFile)
End If
My.Computer.Network.DownloadFile(Host, TempFile, User, Pass)
Dim Stream As New FileStream(TempFile, FileMode.Open)
Dim Reader As New StreamReader(Stream)
TextBox1.Text = Reader.ReadToEnd
Reader.Close()
Stream.Close()
File.Delete(TempFile)
End Sub
End Class
[/CPP]
Form2:
[CPP]Imports System.IO
Public Class Form2
Private TempFile As String = Form1.TempFile
Private Host As String = Form1.Host
Private User As String = Form1.User
Private Pass As String = Form1.Pass
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If File.Exists(TempFile) Then
File.Delete(TempFile)
End If
My.Computer.Network.DownloadFile(Host, TempFile, User, Pass)
Dim Stream As New FileStream(TempFile, FileMode.Open)
Dim Reader As New StreamReader(Stream)
Form1.TextBox1.Text = Reader.ReadToEnd
Reader.Close()
Stream.Close()
Stream = New FileStream(TempFile, FileMode.Append)
Dim Writer As New StreamWriter(Stream)
Writer.WriteLine(TextBox1.Text)
Writer.Close()
Stream.Close()
My.Computer.Network.UploadFile(Host, TempFile, User, Pass)
File.Delete(TempFile)
Form1.Button1.PerformClick()
End Sub
End Class[/CPP]
MartinJM
