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 |
VB6 textbox
Last Updated: Oct 21 2006 16:30, Started by
Arcanum
, Oct 20 2006 22:35
·
0
#1
Posted 20 October 2006 - 22:35
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
Posted 21 October 2006 - 00:18
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
Posted 21 October 2006 - 16:30
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
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users