how to send message to Calculator !!! - Xtreme Visual Basic Talk

02-27-2005, 02:15 AM

JtheD

Centurion

Join Date: Sep 2003

Posts: 142

how to send message to Calculator !!!

hello,
i have a problem,i want to send the value of text box to calculator , i.e. (calculator.display = text1.text) is it possible for me to achieve this, if yes how , please help me , thanks in advance

02-27-2005, 05:09 AM

Hugh Lerwill Hugh Lerwill is offline

Junior Contributor

Join Date: Oct 2004

Posts: 292

Quote:

Originally Posted by JtheD

JtheD,

The following bit of test code may be of interest.

Code:

' copy this into a new form having a CommandButton, a label (lbResult) and a TextBox (CalcTextBox)
' Enter formula into TextBox, Click button, result appears in label
Option Explicit
DefLng A-Z
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As String) As Long


Private Sub Command1_Click()

    CalcTextBox Text1
            
    Me.ZOrder


End Sub

Sub CalcTextBox(Tb As TextBox)

    Dim a$, b$, i
    
    a$ = Tb
    If Len(a$) > 0 Then
        
        If FindWindow(0&, "calculator") Then
            AppActivate "calculator"
            
        Else
            On Error Resume Next
            Shell "calc.exe", vbNormalFocus
        End If
        
        SendKeys "{DEL}", True
    
        If Err = 0 Then
            For i = 1 To Len(a$)
                b$ = Mid$(a$, i, 1)
                Select Case b$
                    Case "+", "(", ")"
                        b$ = "{" + b$ + "}"
                End Select
                SendKeys b$, True
            Next
            SendKeys "=", True
            SendKeys "^C", True
                
            LbResult = Clipboard.GetText
            
            SendKeys "%{F4}", True
        End If
    End If
    
End Sub

regards Hugh,