[VB6] Errore "Method or data member not found"

[camelon]

Ciao a tutti,
è da poco che studio Visual Basic e gia mi trovo in difficoltà.
Ho preso questo codice da una guida VB :


Private Sub cmdEvaluate_Click(Index As Integer)
'Dichiara due variabili a virgola mobile
Dim reWidth As Double, reHeight As Double
'Estrai valori da TextBox di Input
reWidth = CDbl(txtWidth.Text)
reHeight = CDbl(txtHeight.Text)
'Calcola i risultati e assegnali alle TextBox di output
txtPerimeter.Text = CStr(reWidth + reHeight) * 2
txtArea.Text = CStr(reWidth * reHeight)
End Sub

ho poi messo 4 TexBox e un CommandButton sulla Form,
Al momento di eseguirlo mi da questo errore:

Method or data member not found.

Qualc\uno può aiutarmi ,Grazie 1000

[alka]

A quale versione di VB fai riferimento?
Hai ripassato il Regolamento?

[oregon]

Il codice prevede che utilizzi un pulsante che si chiami

cmdEvaluate

e che sia parte di un array di pulsanti (dato il parametro Indice)

E prevede che i 4 textbox si chiamino

txtWidth
txtHeight
txtPerimeter
txtArea

Se cosi' non e', ovviamente hai degli errori ...

[camelon]

X Alka,ciao

Scusa ma a ame sembra che nel titolo della discussione
ci sia scritta la versione se poi ho sbagliato chiedo scusa

[camelon]

Ciao oregon,
In effetti è cosi
ma non funziona lo stesso,proverò ancora a rivedere se ci sono errori
Grazie comunque

[oregon]

E' cosi' ... come?

Hai inserito un array di pulsanti con quel nome?

Hai inserito i textbox con quel nome?

Se fosse cosi' non dovresti avere nessun errore ... quasi sicuramente c'e' un problema con il nome degli oggetti che hai messo sul form ...

[camelon]

Scusa oregon ,ho sbagliato a scrivere la prima riga di codice,
quello giusto è questo


Private Sub cmdEvaluate_Click()
'Dichiara due variabili a virgola mobile
Dim reWidth As Double, reHeight As Double
'Estrai valori da TextBox di Input
reWidth = CDbl(txtWidth)
reHeight = CDbl(txtHeight)
'Calcola i risultati e assegnali alle TextBox di output
txtPerimeter.Text = CStr(reWidth + reHeight) * 2
txtArea.Text = CStr(reWidth * reHeight)
End Sub

e il nome del Pulsante è appunto cmdEvaluate
mentre le TexBox:

1)txtWidth
2)txtHeight
3)txtPerimeter
4)txtArea

ma alla fine non funziona lo stesso

[oregon]

Probabilmente l'errore e' da qualche altra parte del codice ... non nelle righe che hai mostrato ...

Se c'e' altro codice, metti il progetto in uno zip e mettilo da qualche parte in modo che si possa scaricare e controllare ...

[camelon]

Lo farei volentieri ma purtroppo è tutto li,
questo piccolo programma dovrebbe funzionare cosi,
comunque grazie per la pazienza.
Ciao

[oregon]

Beh ... non so cosa dirti ...

Ho anche provato il codice inserendo i controlli e funziona tutto regolarmente ...

Solo per scrupolo ... tu stai usando VB6 (non VBA ...) e hai inserito il tutto in un Form di VB6 ... giusto?