casella di testo e command button

[Vlad Tepes]

ma certo che si! intercetti l'evento del singolo elemento della matrice! hai mai fatto matrici di oggetti in VB?... sai come funzionano? non cambia assolutamente nulla, con la differenza che eviti di scrivere sbrodolate di codice inutile... ah... non esistono più i programmatori di una volta... l'ho detto che micro$oft rende handicappati...

[darkblOOd]

[dvcappie]

grazie davvero a tutti, perchè tutti mi avete dato una mano.
di nuovo grazie.

un piccolino aiuto per favore...

Option Explicit
Dim var As Variant
Dim tipo As Variant
Dim intMsg As Integer

Private Sub Command1_Click()
var = Text1.Text
tipo = VarType(var)
intMsg = MsgBox("La variabile è di tipo " & tipo)
End Sub


Praticamente volevo fare una piccola cosa...
inserendo un valore in una casella e premendo il command button, doveva uscire(almeno queste erano le intenzioni)un msgbox che mi diceva la variabile (che doveva essere cambiata con il cambiare del textbox)di che tipo era...se una stringa o qualche altra cosa...prechè mi dice sempre che è una stringa...grazie a tutti.

Davide

[Vlad Tepes]

la proprietà "text" dell'oggetto textbox è una stringa davide, quindi per forza ti dirà che è sempre di tipo stringa. il tipo di una variabile non si differenzia solamente dal contenuto, ma dal comportamento stesso della variabile all'interno del codice. esempio:

se hai due variabili che sono di tipo INTERO entrambe, potrai eseguire con esse operazioni algebriche, e in questo caso il risultato della funzione VarType sarà appunto "integer".

ma tu devi vedere le proprietà degli oggetti come vere e proprie variabili, perché questo sono. nel tuo caso specifico la proprietà "text" è una stringa, indipendentemente dal contenuto, sia esso una lettera, una parola o un numero.

[dvcappie]

ti ringrazio molto, quindi diciamo che non posso fare nulla per ovviare questo problema?

[kikko81]

Private Sub Command1_Click(Index As Integer)
If Index = 0 Then Text1.Text = Text1.Text + "1"
If Index = 1 Then Text1.Text = Text1.Text + "2"
If Index = 2 Then Text1.Text = Text1.Text + "3"
If Index = 3 Then Text1.Text = ""
End Sub

CIOè ca%%o, non è difficile mi chiedo io.....se ho sbagliato fammelo sapè...

ciao

MI SA CHE HA RAGIONE CHI DICE CHE GATES RINCOGLIONISCI I PROGRAMMATORI

[kikko81]

Apri un progetto exe standard.
ci metti una bella text e la lasci chiamata text1
Ci metti un bell command1
destro del mouse copia
incolla
Si desidera creare una matrice di controlli? SIIIIIIII
(Non è necessario fare milioni di righe di codice)
Ne copi per esempio 4 come ho fatto io e ti ritrovi con
Command(0) "1" - Command(1) "2" - Command(2) "3" - Command(3) "Azzera"
poi copi il codice che ti ho messo prima e come per magia spunta ciò che avevi chiesto....

Scusa se ti sembro scortese, ma devi considerare che sono le 3.00 del mattino e dopo aver letto le risposte che ti ha dato certa gente...................non ne parliamo....

[kikko81]

Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Text1.Text = Text1.Text + "1"
Case 1
Text1.Text = Text1.Text + "2"
Case 2
Text1.Text = Text1.Text + "3"
Case 3
Text1.Text = ""
End Select
End Sub

[dvcappie]

Bello a Kikko...
mi sei piaciuto... ti ringrazio...
adesso se vuoi fare il non plus ultra aiutami a questo

Dim Numero As Single
Numero = 15 + 1
Label1.Caption = Numero

COSI' SULL'ETICHETTA MI ESCE UN BEL 16
PERCHÉ SE INVECE DI SCRIVERE 15+1 IO SCRIVO TEXT1.TEXT OVVERO LA CASELLA DI TESTO, MI ESCE UN'ERRORE... E SE ADDIRITTURA METTO NUMERO COME VARIABILE MI ESCE 15+1 E NON IL RISULTATO.

IO VORREI CAPIRE:
FACCIO UNA VARIABILE NUMERICA
CI DEVE ANDARE TUTTO QUELLO CHE IO SCRIVO NELLA CASELLA DI TESTO?
PERCHÉ ALLORA NON MI CAPISCE CHE QUELLA É UN'OPERAZIONE MATEMATICA?
STO PERDENDO LA TESTA MO M'AIUTI ALTRIMENTI NON TI FACCIO VINCERE L'ENALOTTO.
GRAZIE...
DAVIDE

[Vlad Tepes]

purtroppo non in modo diretto. dovresti analizzare carattere per carattere il contenuto della proprietà "text" e, una volta visto che si tratta di sole cifre numerice definire a manina che si tratta di un numero. è sempre per la tua calcolatrice? devi capire se si tratta di un numero decimale o esadecimale?