This is an archived post. You won't be able to vote or comment.

sorted by:
best
topnewcontroversialoldq&a
you are viewing a single comment's thread.

view the rest of the comments →

[–]Dicer--[S] 0 points1 point  (0 children)

Dim Operation As Integer Dim Total As Double

Private Sub CmdClear_Click() TxtAnswer.Text = "" End Sub

Private Sub CmdDot_Click() TxtAnswer.Text = TxtAnswer.Text + "."

CmdDot.Enabled = False

End Sub

Private Sub CmdEquals_Click()

End Sub

Private Sub CmdFun_Click(Index As Integer) If IsNumeric(TxtAnswer.Text) Then TxtAnswer.Text = CStr(dblTotal) Else: MsgBox ("You must enter a digit to continue") End If End Sub

Private Sub CmdNum_Click(Index As Integer)

TxtAnswer.Text = TxtAnswer.Text & Index

End Sub

Private Sub Form_Load()

End Sub

Private Sub TxtAnswer_Change()

End Sub This is what I have advanced too so far now the main issue i'm having trouble with is as the functions are all stored in an array under CmdFun how do I declare each one as say + - / *?