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

Neurochirurgie minim invazivă

"Primum non nocere" este ideea ce a deschis drumul medicinei spre minim invaziv.

Avansul tehnologic extraordinar din ultimele decenii a permis dezvoltarea tuturor domeniilor medicinei. Microscopul operator, neuronavigația, tehnicile anestezice avansate permit intervenții chirurgicale tot mai precise, tot mai sigure. Neurochirurgia minim invazivă, sau prin "gaura cheii", oferă pacienților posibilitatea de a se opera cu riscuri minime, fie ele neurologice, infecțioase, medicale sau estetice.

www.neurohope.ro

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