|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Operações Matemáticas)
|
|
 |
Título da Dica: Avalia expressões matematicas
|
 |
|
|
|
Postada em 1/9/2004 por Rochª
Encontrei esta funcao na NET. Achei interecante.
Tem uma API não documentado no VB6 que pode avaliar expressões, veja exemplo abaixo:
Option Explicit
Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As Long) As Long
Private Sub Command1_Click()
Dim Expressao As String
Expressao = "Res = 5*3"
ExecuteLine Expressao & ": Form1.Text1.Text=Res", False
End Sub
Public Function ExecuteLine(sCode As String, Optional fCheckOnly As Boolean) As Boolean
ExecuteLine = EbExecuteLine(StrPtr(sCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function
|
|
|
|
|
