VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 その他のコントロール関係のメニュー
1.アニメーションコントロールを使ってAVI アニメーションファイルを表示する
2.ファイルシステムコントロール(ドライブ・リスト・他)の使用例
3.スクロールバーをアップダウンコントロールの代わりに使う
4.オプションボタン・チェックボックスをコマンドボタンのような形で表示
5.ScriptControl コントロールを使って文字列式を計算する
6.リストビュー(ListView)の使用例
7.ツリービュー(TreeView)の使用例
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.


5.ScriptControl コントロールを使って文字列式を計算する
1.ScriptControl コントロールを使って文字列式を計算する
2. 
3. 
4. 
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option :[Option Explicit]
参照設定:追加なし
使用 API:
なし
その他 :プロジェクト→コンポーネントで Microsoft Script Control 1.0 (Msscrpt.ocx) にチェックを入れ、
    :表示されたコントロールをフォームに貼り付けて下さい。
このページのトップへ移動します。 1.ScriptControl コントロールを使って文字列式を計算する

Option Explicit

Private Sub Command1_Click()
'ScriptControl1をFormに貼り付けた場合
  Label1.Caption = "答えは= " & ScriptControl1.Eval("((10+20)*2)\2+30+20-50") & " です"
End Sub


Private Sub Command1_Click()
'ScriptControl1を使用しない場合(Form に貼り付けない場合)
  Dim Scr As Object
  Set Scr = CreateObject("ScriptControl")
  '使用中のスクリプト言語の名前を設定します
  Scr.Language = "VBScript"
  '式を評価し、結果を返します。
  Label1.Caption = "答えは= " & Scr.Eval("((10+20)*2)\2+30+20-50") & " です"
  Set Scr = Nothing
End Sub

これで、テキストボックス等に入力した式を計算してくれます。

このページのトップへ移動します。 2. 


このページのトップへ移動します。 3.



このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。