Sign In
Create Account
Back to top
 |
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 |
Probleme la listare si altele....
Last Updated: Mar 17 2012 19:38, Started by
DannyBOHLEN
, Feb 15 2012 20:53
·
0
0
#1
Posted 15 February 2012 - 20:53
|
Am făcut o aplicație în Excel 2010, un soi de bază de date, însă am două ”problemuțe” mari:
 1. Am un textbox multiline care, în funcție de anumite criterii (nu sunt importante), îmi afișează un text, structurat pe mai multe paragrafe (am folosit vbNewLine pentru asta), care are o lungime variabilă, iar numărul paragrafelor diferă de la un moment la altul! Problemă:  cu ce set de instrucțiuni VBA pot lista la imprimantă textul conținut de acel textbox, DOAR TEXTUL, fără textbox ???????????O soluție ar fi să salvez respectivul text pentru listare într-un fisier (*.txt în cazul meu) pe HDD, după care ar trebui să deschid fișierul și să listez ”manual” textul conținut, însă NU vreau să apelez la aceasta, aș vrea să se poată lista direct textul la imprimantă. Pentru această soluție ar trebui să salvez fișierul pe HDD, iar ulterior deschiderea, listarea, închiderea și ștergerea fișierului să se facă fără ca utilizatorul să vadă acești pași, lucru pe care, la momentul de față, nu știu să-l rezolv! De asemenea, textul conținut de textbox nu poate fi ”transferat” unei celule dintr-un sheet, după care să pot lista conținutul acelei celule tocmai din cauza faptului că textul este structurat pe mai multe paragrafe, ceea ce la copy/paste, îmi ”duce” textul pe mai multe celule! 2. Introducerea datelor pentru a fi actualizată baza de date se face prin intermediul mai multor shape-uri (textbox-uri și combobox-uri) plasate într-un sheet (protected)! Problemă: cum pot naviga (schimba focusul) între aceste shape-uri cu ajutorul tastelor tab (shift+tab) sau cu ajutorul săgeților, într-o anumită ordine, prestabilită ???????Asta deoarece sheet-ul care le conține este protejat cu parolă, pentru a preveni modificarea/ștergerea datelor înscrise, de către utilizator, iar lucrul DOAR cu mouse-ul este foarte obositor la o cantitate mare de date ce trebuiesc introduse în această bază de date! Vă mulțumesc anticipat și aștept cu nerăbdare soluțiile voastre! 
|
#2
Posted 17 March 2012 - 19:38
|
2. Introducerea datelor pentru a fi actualizată baza de date se face prin intermediul mai multor shape-uri (textbox-uri și combobox-uri) plasate într-un sheet (protected)! Problemă: cum pot naviga (schimba focusul) între aceste shape-uri cu ajutorul tastelor tab (shift+tab) sau cu ajutorul săgeților, într-o anumită ordine, prestabilită ???????Asta deoarece sheet-ul care le conține este protejat cu parolă, pentru a preveni modificarea/ștergerea datelor înscrise, de către utilizator, iar lucrul DOAR cu mouse-ul este foarte obositor la o cantitate mare de date ce trebuiesc introduse în această bază de date! Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then If Shift = 0 Then TextBox2.Activate Else TextBox4.Activate End If End If End Sub Private Sub TextBox2_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then If Shift = 0 Then TextBox3.Activate Else TextBox1.Activate End If End If End Sub Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then If Shift = 0 Then TextBox4.Activate Else TextBox2.Activate End If End If End Sub Private Sub TextBox4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 9 Then If Shift = 0 Then TextBox1.Activate Else TextBox3.Activate End If End If End Sub si asa mai departe... |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2023 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.