Problema risolto Dopo l'operazione il programma si chiude e altro...

[Gnam]

Uso vb6.0 .Ecco lo screen di un piccolo programma che ho fatto per testare alcune cose studiate xD

...vi numero le domane in modo che le risposte le potrete altrettato numerare XDDD

1)come avete intuito... si mettono i 2 valori...si seleziona l'operazione... si preme invio e esce una msgbox che dà il risultato... ma... una volta premuto ok del msgbox si chiude il programma... come faccio a mantenere il programma aperto dopo aver premuto ok del msgbox? ._.''

2)ho pensato di mettere un label... che... una volta premuto invio sia visibile con il risultato ma... come faccio? ho provato a "sparare" il codice xD ragionandoci un pò... ma nn funge

Perfavore, Entra oppure Registrati per vedere i codici!

mi potete dare il codice giusto ._.

3) ultimissima domanda... come faccio a concatenare + variabili nella stessa msgbox?
ad esempio... chiedo all'utente nome e cognome..e una volta premuto invio esce una msg box che dice : Il tuo nome è Tizio e il tuo cognome è Caio ...
ho provato a mettere

Perfavore, Entra oppure Registrati per vedere i codici!

ma nn funge... .-. help!!!

 

[loryx95]

Perfavore, Entra oppure Registrati per vedere i codici!

non vedi che alla fine del codice e presente un end che serve dopo l o perazione a far chiudere il programma rimuovilo e penso che dovrebbe andare

 

[amus]

nella 2) hai dimenticato sdi mettere il comando if che si attiva se uno ha mesaso on alla sottrazione xD


PS: se nonm funziona togliendfo end postaci anke il source del form .-.

 

[R3tr0s]

alla fine del ciclo devi mettere end if non end :S

 

[Brook]

Anche End sub non ha messo..

 

[Gnam]

nessuno dei tre è riuscito a risolvere il mio problema...per colpa mia visto che ho messo parte di codice... XD

posto il codice completo...

Perfavore, Entra oppure Registrati per vedere i codici!

e ripeto le domande...

1) perchè quando esce il msgbox con il risultato... premo ok del msgbox... e il programma si chiude? come risolvo?

2) come faccio a sostituire un label con quel msgbox in modo che sia visibile il risultato il quel label? potete darmi il codice preciso?

 

[R3tr0s]

devi togliere tutti gli End

e devi lasciare end if e end sub

 

[Spartan]

Senti inserisci così :

Dim val1 As Integer
Dim val2 As Integer
Dim risultato As Integer
Private Sub Command1_Click()
val1 = Text1.Text
val2 = Text2.Text
If Option1.Value = True Then
risultato = val1 + val2
MsgBox "Il risultato e' " & risultato, , "Risultato"
End If
val1 = Text1.Text
val2 = Text2.Text
If Option2.Value = True Then
risultato = val1 - val2
MsgBox "Il risultato e' " & risultato, , "Risultato"
End If
End Sub


E RICORDA CHE END FA CHIUDERE TUTTO SE VUOI INSERISCI UN BUTTON CON CAPTION CHIUDI oppure FINE

Clicchi due volte
e inserisci END cosi fai il tasto "CHIUDI"

Capito?
End non è come End Sub.

Ti sei solo confuso.

 

[Gnam]

ok o.o prima domanda ... risposte molto esaurienti e problema risolto :P

per la 2° e 3° ç_ç ?

 

[R3tr0s]

metti così:

label1.caption = "il risultato è " + risultato

 

[Gnam]

ok anche questo va bene :P

e per l'ultimo ._. ?

 

[PaoloNike]

prova questo che dovrebbe funzionare.

Perfavore, Entra oppure Registrati per vedere i codici!

Guarda alcune cose erano superflue, però le ho lasciate ugualmente.
queste sono le prime 2 risposte ora c'è la terza..
metti in 2 textbox il nome e il cognome e sul bottone "invio" metti:

Perfavore, Entra oppure Registrati per vedere i codici!

 

[Gnam]

grazie mille ;) mi fa piacere che sia gente seria su cui poterci contare =D

 

[xkaos17]

Metodo 1°
kaos = Environ("username")
MsgBox "il tuo Username è " & kaos & " ciao"

Metodo 2°
Private Sub Form_Load()
xkaos17 = InputBox("il tuo nome è")
kaos = InputBox("il tuo cognome è")
End Sub

'Comando
MsgBox (" il tuo nome è " & xkaos17 & " il tuo cognome è " & kaos & " "), vbInformation

 

[R3tr0s]

Niente di che :P cmq se hai risolto segnala a un mod di chiudere ^^

 

[Reatino]

Bene, segnalo io

 

[R3tr0s]

Sposto per problema Risolto ;)