Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Rename SQL column

Achiziționare tuner TV !

Din ce este facuta terasa asta?

Cum accesez site-ul CNAS ?
 Algoritm simplu de calculare al u...

Bitdefender Total Security ș...

casa verde 2024

Intrerupator cu N - doza doar cu ...
 Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...
 probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National
 

VB6 textbox

- - - - -
  • Please log in to reply
2 replies to this topic

#1
Arcanum

Arcanum

    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?

#2
Arcanum

Arcanum

    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.


#3
Grunt

Grunt

    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.


Anunturi

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate