追蹤
虛幻與現實之間
關於部落格
  • 2509

    累積人氣

  • 1

    今日人氣

    0

    追蹤人氣

[VB6]使TextBox 產生計算效果

'使TextBox 產生計算效果
'需引用Microsoft Script Control 1.0 元件來做此計算的工作
'專案 -> 設定引用項目 -> MicroSoft Script Contro -> 勾選
'工具箱 -> ScriptContro  圖示

Private Sub Form_Load()

     Dim i As Integer
   
     If KeyCode = 13 Or KeyCode = 40 Then
                    
            On Error Resume Next
            Print ScriptControl1.Eval(TextBox1.Text)
            If Err Then Print Error
                       
            TextBox1.Text = ScriptControl1.Eval(TextBox1.Text)

     End If

End Sub



Private Sub Command1_Click()

        On Error GoTo Err

                
TextBox1.Text = ScriptControl1.Eval(TextBox1.Text)

         Exit Sub

        Err:
                 MsgBox( "錯誤")


End Sub

相簿設定
標籤設定
相簿狀態