VB6 textbox

#1
Arcanum

Publicat: 20 octombrie 2006 - 22:35

New Member

Grup: Members
Mesaje: 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?

Sus

#2
Arcanum

Publicat: 21 octombrie 2006 - 00:18

New Member

Grup: Members
Mesaje: 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

Editat de RAZ, 21 octombrie 2006 - 16:47.

Sus

#3
Grunt

Publicat: 21 octombrie 2006 - 16:30

Junior Member

Grup: Members
Mesaje: 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

Editat de RAZ, 21 octombrie 2006 - 16:48.

Sus

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 Publicat: 20 octombrie 2006 - 22:35

#2 Arcanum Publicat: 21 octombrie 2006 - 00:18

#3 Grunt Publicat: 21 octombrie 2006 - 16:30

Anunturi

▶ Utilizatori activi: 1

Autentificare

#1
Arcanum

Publicat: 20 octombrie 2006 - 22:35

#2
Arcanum

Publicat: 21 octombrie 2006 - 00:18

#3
Grunt

Publicat: 21 octombrie 2006 - 16:30