|
|
|
![]() |
|
Strumenti |
![]() |
#1 |
Senior Member
Iscritto dal: May 2002
Città: Foligno (Pg)
Messaggi: 9174
|
primi passi col visual basic!
ho appena finito il mio primo programma in VB.. e vi ho scelto come betatester
![]() ![]() ![]() |
![]() |
![]() |
![]() |
#2 | |
Senior Member
Iscritto dal: May 2001
Città: RE
Messaggi: 575
|
Re: primi passi col visual basic!
Quote:
![]()
__________________
Many Official Tacchinator!!!(tiger,supermicro,dual mp 2600+,2GB DDRECC CAS2.5;2Maxtor DMP9 200GB Raid0,pionner106,plex premium,5900ultra,audigy2 platinum ex,MW 550THX,epson3200photo, philips201p,natural keyboard pro,ifeel mouseman!) |
|
![]() |
![]() |
![]() |
#3 |
Senior Member
Iscritto dal: May 2002
Città: Foligno (Pg)
Messaggi: 9174
|
mi sono accorto di un bug :P se lascio i campi vuoti e clicco su un pulsante si blocca tutto :P come devo fare per far apparire un messaggino?
if text1.text = " " then...? |
![]() |
![]() |
![]() |
#4 | |
Senior Member
Iscritto dal: Oct 2002
Messaggi: 487
|
Quote:
MsgBox("blablablabla...") Bye
__________________
AcM Racing :: Nulla è impossibile per chi non deve farlo |
|
![]() |
![]() |
![]() |
#5 | |
Senior Member
Iscritto dal: May 2002
Città: Foligno (Pg)
Messaggi: 9174
|
Quote:
![]() |
|
![]() |
![]() |
![]() |
#6 |
Senior Member
Iscritto dal: May 2002
Città: Foligno (Pg)
Messaggi: 9174
|
Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox ("errore") senzaiva = Text1.Text Text2.Text = ((senzaiva / 100) * 20) + senzaiva perchè non funziona e continua a dare l'errore? :P cioè, il messaggino appare, ma poi si blocca lo stesso :P help! ![]() |
![]() |
![]() |
![]() |
#7 |
Senior Member
Iscritto dal: Oct 2002
Messaggi: 487
|
Beh, perche' "senzaiva" prende il valore da text1.text, ma se quest'ultimo non e' inizializzato ...
Prova a scrivere: Private Sub Command1_Click() If Text1.Text = " " Then MsgBox ("errore") else Text2.Text = ((text1.text / 100) * 20) + text1.text end if Nota che se Text1.text non e' un numero, Vb potrebbe arrabbiarsi ![]() Bye
__________________
AcM Racing :: Nulla è impossibile per chi non deve farlo |
![]() |
![]() |
![]() |
#8 |
Senior Member
Iscritto dal: Dec 2001
Città: Cagliari - Roma
Messaggi: 589
|
Io trimmerei la textbox ed aggiungerei anche il controllo se è un valore numerico
![]()
__________________
Macbook Pro Mid 2012 con Samsung 840 PRO 256GB Asus N55 - Ho felicemente trattato con lee_oscar, reflectionofdawn, cogand. |
![]() |
![]() |
![]() |
#9 | |
Senior Member
Iscritto dal: Oct 2002
Messaggi: 487
|
Quote:
Bye
__________________
AcM Racing :: Nulla è impossibile per chi non deve farlo |
|
![]() |
![]() |
![]() |
#10 | |
Senior Member
Iscritto dal: May 2002
Città: Foligno (Pg)
Messaggi: 9174
|
Quote:
|
|
![]() |
![]() |
![]() |
#11 | |
Senior Member
Iscritto dal: Oct 2002
Messaggi: 487
|
Quote:
Il piu' semplice e' editare l'evento "change" della tbox: all'interno della funzione fai un controllo sulla stringa inserita per vedere se corrisponde ad un numero. Esistono varie funzioni in Vb che ti permettono di operare tale controllo. Un metodo piu', come dire...cazzuto, e' invece agganciarsi all'evento "tasto premuto", controllare quale tasto e' stato effettivamente schiacciato, e se corrisponde ad un numero o al piu' al "." inoltrarlo alla textbox. In questo modo impedisci all'utente di inserire un qualsiasi carattere che non sia numerico. Aloha
__________________
AcM Racing :: Nulla è impossibile per chi non deve farlo |
|
![]() |
![]() |
![]() |
#13 | |
Senior Member
Iscritto dal: Oct 2001
Città: Dublino
Messaggi: 878
|
Quote:
![]() ![]() |
|
![]() |
![]() |
![]() |
#14 | |
Senior Member
Iscritto dal: Dec 2001
Città: Lecce
Messaggi: 3936
|
Quote:
![]() |
|
![]() |
![]() |
![]() |
#15 |
Member
Iscritto dal: Dec 2000
Messaggi: 42
|
scusate sapete l'indirizzo di qualche sito con esempi di programmi vb
|
![]() |
![]() |
![]() |
Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 16:50.