Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Zapis i Odczyt z TextBoxa


Rekomendowane odpowiedzi

Opublikowano

Jak zrobić zapis i odczyt pliku z textboxa ??

 

Me.TextBox1.Text = System.IO.File.ReadAllText(filePath)
- To nie chodzi

 

 

A i ,że pojawia się to okienko gdzie zapisać i co otworzyć !!

Do Admina/Moderatora Tak się staram zdejmiecie mi parę procent ?



Opublikowano

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SaveFileDialog1
.Filter = "TXT (*.txt*)|*.txt"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
Then
My.Computer.FileSystem.WriteAllText _
(SaveFileDialog1.FileName, TextBox1.Text, True)
End If
End Sub

Opublikowano

A Otwier

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
SaveFileDialog1
.Filter = "TXT (*.txt*)|*.txt"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK _
Then
My.Computer.FileSystem.WriteAllText _
(SaveFileDialog1.FileName, TextBox1.Text, True)
End If
End Sub

A Otwieranie ?

Do Admina/Moderatora Tak się staram zdejmiecie mi parę procent ?



Opublikowano

A Otwier

 

A Otwieranie ?

Zmień SaveFileDialog na OpenFileDialog...

Opublikowano

OpenFileDialog tylko ci podaje ścieżkę. Korzystając z niej zapisz plik.

Zapisywanie mam ale nie mam odczytywania ( raczej mam ale tekstu nie pokazuje w TextBoxie )

Do Admina/Moderatora Tak się staram zdejmiecie mi parę procent ?



Opublikowano

Ja pierdole... odrobina logicznego myślenia skoro Write to zapisywanie to odczytywanie jak bedzie ? READ! I pomyśleć, że takie imbecyle coś próbują robic... + za checi, ale to za mało jak sie nie ma mózgu.

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
End Sub

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...