VB6 textbox

#1
Arcanum

Posted 20 October 2006 - 22:35

New Member

Grup: Members
Posts: 6
Înscris: 20.10.2006

Salut,
Am facut un mic program pentru uz personal in VB6 care ma ajuta sa scriu si sa am pe aceeasi pagina mai multe informatii. Practic contine doar textbox-uri. Problema e ca de fiecare data cand inchid programul tot textul scris se reseteaza. Am incercat sa gasesc o modalitate de a salva modificarile facute in textbox, dar nu am reusit. Ma poate ajuta cineva?

Back to top

#2
Arcanum

Posted 21 October 2006 - 00:18

New Member

Grup: Members
Posts: 6
Înscris: 20.10.2006

Am gasit solutia, daca mai are nevoie cineva:

Private Sub Form_Load()
Dim T1
Open "c:\text1.txt" For Input As #1
Input #1, T1
Text1.Text = T1
Close #1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Open "c:\text1.txt" For Output As #1
Write #1, Text1.Text
End Sub

Fisierul Text1.txt trebuie sa contina initial ""

___
mod edit: foloseste tag-urile de cod

Edited by RAZ, 21 October 2006 - 16:47.

Back to top

#3
Grunt

Posted 21 October 2006 - 16:30

Junior Member

Grup: Members
Posts: 90
Înscris: 21.10.2006

Da. Doar ca nu ar fi inteligent sa salveze in "C:\", ci in directorul curent. De obicei, fisierele astea sunt sterse daca sunt observate. Cel putin mie imi place sa fac curatenie in dir. radacina.

Aici intervine un bug: ce sa faca daca nu gaseste fisierul? Ai Run-time error 54 (parca) si poc! Programul se inchide. Incearca asta:

Private Sub Form_Load()
Dim T1
On Error GoTo nofile:
Open "c:\text1.txt" For Input As #1
Input #1, T1
Text1.Text = T1
Close #1
nofile:
End Sub

___
mod edit: foloseste tag-urile de cod

Edited by RAZ, 21 October 2006 - 16:48.

Back to top

Anunturi

Bun venit pe Forumul Softpedia!

VB6 textbox

#1 Arcanum Posted 20 October 2006 - 22:35

#2 Arcanum Posted 21 October 2006 - 00:18

#3 Grunt Posted 21 October 2006 - 16:30

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
Arcanum

Posted 20 October 2006 - 22:35

#2
Arcanum

Posted 21 October 2006 - 00:18

#3
Grunt

Posted 21 October 2006 - 16:30