Chirurgia spinală minim invazivă
Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical. Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale. 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