Visual Basic 6 - Calcolatrice

Salve,
vorrei sapere se nel sito è presente il sorgente di una calcolatrice che permette di inserire i numeri in due textbox(quindi bisogna effettuare un controllo)grazie a degli CommandButton. In pratica vorrei creare una sorta di tastierino numerio. Come posso fare?E' possibile?


Grazie mille

Ci sono moltissime guide online,almeno ha provato a cercare su google!
Ma poi creare una semplicissima calcolatrice in VB6,poi, non è tanto difficile.

Certo che è possibile (figurati).

Ma cosa non sai fare?

Hai iniziato a scrivere del codice?

Ritieni di avere la preparazione necessaria?

Lo so che non è difficile creare una calcolatrice, ma mi sn bloccato su questa cosa.
Al momento ho scritto questo:

Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)

If Option1.Value = True Then
Text3.Text = A + B
ElseIf Option2.Value = True Then
Text3.Text = A - B
ElseIf Option3.Value = True Then
Text3.Text = A * B
ElseIf Option4.Value = True Then
Text3.Text = A \ B
ElseIf Option5.Value = True Then
Text3.Text = A / B
ElseIf Option6.Value = True Then
Text3.Text = A Mod B
End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
Option6.Value = False
Text1.SetFocus

End Sub

Private Sub Command3_Click()
End

End Sub

Ora vorrei fare quello ke ho scritto sopra. Come si fa?

All'interno della form sono presenti:

3 TextBox
12 CommandButton
6 OptionButton

Come detto prima...voglio che cliccando sul Command del Tasto 1...se mi trovo nella prima TextBox mi inserisca ovviamente il numero 1 e lo stesso deve farlo se mi trovo nella seconda TextBox, però non deve inserirlo contemporaneamente. Quindi come devo controllare questa cosa?

Ho inserito questo codice:

Text1.text = 1

Ovviamente inserisce il numero alla prima TexBox, ma nn so come controllare per fare quello che voglio.
Mi potete aiutare???
Grazie

Facendo i controlli del caso, puoi scrivere

Dim lastTxt As TextBox

Private Sub IltuoTasto1_Click()
    lastTxt.Text = lastTxt.Text & "1"
End Sub

Private Sub Text1_LostFocus()
    Set lastTxt = Text1
End Sub

Private Sub Text2_LostFocus()
    Set lastTxt = Text2
End Sub

Scrive solo nella Text1 con questo controllo. Se vado nella Text2 e clicco sul CommandButton riferito al Tasto 1 inserisce il valore nella Text1. Io non voglio questo. Qualcosa è sbagliato. Aiuto Thanks

No ... forse hai sbagliato ad inserire il codice. Mostra, con copia incolla, quello che hai scritto.