Simulare una inputbox (VB 6.0)

[pirolisi]

salve dovrei fare un programma...che simuli una inputbox...praticamente quando ad esempio nella procedura scrivo x=input....deve partire un'altra form uguale a quella della inputbox e poi passare in valore di nuovo alla procedura....io l'ho fatto così......

Private Sub Command1_Click() (Form1)
Dim X As Double
X = (input(X))
End Sub
---------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo xxx
X = Text1.Text (Form2)
input (X) (input)
Exit Sub
xxx:
MsgBox (Err.Description)
End Sub
Private Sub Command2_Click()
End
End Sub

Private Sub Text1_GotFocus()
X = Text1.Text
End Sub
-------------------------------------------------------------------
Public Function input(X As double)
If X <> 0 Then
Ris = X * X (modulo)
MsgBox ris
End If
Form2.Show
End Function

soltanto che il calcolo lo fa la funzione....io invece voglio che restituisca il valore alla procedura (form1).....grazie anticipatamente a chiunque voglia aiutarmi

[matpez]

Non so se è quello che volevi tu...ti ho fatto un progettino dimmi se poi vai bene...contiene una form principale, la form delle inputbox e un modulo della funzione (pubblico, così viene visto da tutti)...

Non ti ho messo le cose che servivono a te, ma basta che le metti nella funzione MyInputBox prima che ti torni indietro il valore.

ciaooooooooooooooooo e fammi sapere!!

[matpez]

Scusa...avevo fatto una dimenticanza importante...USA QUESTO:

[pirolisi]

....grazie provo subito..... :D

[tas]

Con la tecnica che ho utilizzato non serve nemmeno il modulo basic, questo form è autosufficiente.

[pirolisi]

grazie matpez...funzia soltanto che nn chiamava il module perchè aveva lo stesso nome del progetto....... ;)

x tas....provo immediatamente grazie

[pirolisi]

x tas....ehm se presento questo programma al prof mi mette 2....mi dice chi cavolo te l'ha fatto :D ...cmq grazie ho appreso come nn utilizzare un modulo.... ;)

[matpez]

Non convien utilizzare la form e basta perchè cmq tu hai chiesto una FUNZIONE che simula...e io ti ho dato una funzione!! Quella ti taz invece è un form richiamto con FORM.NOMEFUNZIONE....e come vedi in visual basic richiami INPUTBOX non FORM.INPUTBOX :)

Io ho seguito alla lettera quello che tu mi hai detto, anche perchè additittura potresti mettere quel codice in una DLL esterna e funziona invece quello di Taz funzionerebbe nche il suo ma con 3 strati: NOME_CLASSE.NOME_FORM.NOME_FUNZIONE

Cmq vedi tu quale preferisci :p

ciaoooooooooooooooooooooooooooo

[pirolisi]

x matpez....la tua ho scelto....perchè fra l'altro quella è un pò troppo complessa...all'inizio quando l'ho provata la tua mi dava un errore...e nn capivo cos'era poi ci sono arrivato ...la funzione si chiamava come il progetto quindi dava errore...cmq ora funzia bene....gracias ;)

[matpez]

Si perchè l'ho fatto poi dal notepad i nomi...e in effetti mi sono dimenticato che si chiamava come il progetto...cmq non volevo "vincere" il diverbio di progetti..era solo una precisazione che tu hai chiesto una cosa e ti ho fatto notare che quella di tas si non usa il modulo però non è la cosa che hai chiesto tu

PS: tas...scusa se mi sono intromesso forse un po' bruscamente :(