Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. www.neurohope.ro |
subrutina simpla in vbasic 6
Last Updated: Sep 30 2015 17:46, Started by
bogd1n
, Sep 29 2015 18:12
·
0
#1
Posted 29 September 2015 - 18:12
as avea nevoie de o minirutina
am un textbox1 , si un label de exemplu si vreau sa se intample astfel daca ce introduc in textbox1 > label1 sa imi ceara programul sa reintroduc valoarea in textbox 1 daca se ofera cineva sa ma ajute as fi recunoscator e o subrutina banala va multumesc |
#2
Posted 29 September 2015 - 18:40
VB6 În 2015?!
Nu înțeleg ce zici aici: Quote daca ce introduc in textbox1 > label1 sa imi ceara programul sa reintroduc valoarea in textbox 1 Edited by 0x0c, 29 September 2015 - 18:44. |
#3
Posted 29 September 2015 - 18:51
0x0c, on 29 septembrie 2015 - 18:40, said:
VB6 În 2015?! Nu înțeleg ce zici aici: deci introduc intr-un text box valoarea 1200 si daca e mai mare decat valoarea din label1 de exemplu atunci sa trebuiasca sa reintrduc valoarea pana introduc sub 1200 bogd1n, on 29 septembrie 2015 - 18:45, said: deci introduc intr-un text box valoarea 1200 si daca e mai mare decat valoarea din label1 de exemplu atunci sa trebuiasca sa reintrduc valoarea pana introduc sub 1200 |
#4
Posted 29 September 2015 - 19:37
n-ai nevoie de subrutina, ci de un EVENT
mai exact la schimbarea textului, compari cu valoarea de pe label |
#5
Posted 29 September 2015 - 19:42
#6
Posted 29 September 2015 - 19:51
ti-e greu sa dai dublu click pe texbox si sa scrii doua linii de cod?
|
#7
Posted 29 September 2015 - 19:59
#9
Posted 29 September 2015 - 20:14
#10
Posted 29 September 2015 - 20:44
Private Sub Text1_AfterUpdate()
If Val(Text1.Text) > Val(Label1.Caption) Then MsgBox "Introduceti o valoare mai mica" End Sub Mai trebuie si rutine de verificare: daca a fost introdusa o valoare numerica, etc Edited by shobosorin, 29 September 2015 - 20:56. |
|
#11
Posted 29 September 2015 - 21:12
spune-mi ca nu vorbesti serios
nu-ti trebuie varianta de verificare daca a fost intrudusa o valaore numerica trebuie o procedura pentru a permite doar introducerea cifrelor |
#13
Posted 30 September 2015 - 11:08
Private Sub textbox1_Validate(Cancel As Boolean)
If Val(textbox1.Text) > val(label1.caption) Then Cancel = True MsgBox ("aici scrii ce vrei tu") End If End Sub textbox1.causesvalidation=true (in designer) si maxlength=4 (sa accepte doar 4 caractere) Trebuie sa mai ai un alt control in form (sa preia focusul) si sa lanseze validarea. Daca vrei validare doar pentru cifre in textbox se face altfel. Edited by N62B44, 30 September 2015 - 11:09. |
#15
Posted 30 September 2015 - 14:17
voi cu validarea voastra
Private Sub TextBox1_Change() currentValue = Val(TextBox1.text) if (currentValue < maxValue) then validValue = currentValue else MsgBox "Wrong Value" TextBox1.Text = validValue End if End Sub |
|
#16
Posted 30 September 2015 - 15:32
Nu e bun codul ala, daca faci o greseala si apesi Backspace sa stergi o cifra se va activa codul tau ceea ce nu e dezirabil...
|
#17
Posted 30 September 2015 - 15:48
si intainte sa dai enter (continue), nu verifici ce introduci?
Edited by MarianG, 30 September 2015 - 15:48. |
#18
Posted 30 September 2015 - 17:35
Eu iti explicam ca evenimentul Change nu e cea mai buna alegere. Era mai bine Keypress si verificare sa poata fi introduse numai cifre si backspace.
|
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users