[リストへもどる]
一括表示

投稿時間:2003/12/04(Thu) 17:51
投稿者名:ryo
Eメール:
URL :
タイトル:
テキストファイルからプログラムを操作する
質問です。

特定のテキストファイル(例えばText1.txt)にスクリプトを記述して、
その内容をロードすることによってプログラム全体を操作することは
可能なのでしょうか。
例えば
Label1.caption=”abc”
のような内容をあらかじめテキストファイルに保存しておき、
そのテキストファイルをプログラム上でロードすることによって、
間接的にプログラムを操作するにはどうすれば良いのでしょうか。
アドバイスお願いします

投稿時間:2003/12/05(Fri) 00:54
投稿者名:花ちゃん
Eメール:
URL :
タイトル:
Re: テキストファイルからプログラムを操作する
貴方の本当にやりたい事がどこまでできるかは知りませんが、一つの方法として
WebBrowserコントロールを使って試して見ました。
FormにWebBrowserコントロールとCommandButton と テキストボックスを MultiLine = True で
貼り付け、下記コードを記入して下さい。

Option Explicit
Private Sub Command1_Click()
    With WebBrowser1
        .Navigate2 "about:blank"
        DoEvents
        .Document.write Text1.Text
        .Document.body.Style.border = "0"
        .Document.body.Style.overflow = "hidden"
        Me.BackColor = vbWhite
        .Visible = True
    End With
End Sub

そして TextBox内に下記コードを記入して下さい。
<object
    id="DAControl" classid="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"
    style="position:absolute; left:10px; top:10px;width:300px;height:300px">
</object>
<script language="VBScript">
    Set m = DAControl.PixelLibrary
    movePict = "C:test.jpg"
    Set floatImg = m.ImportImage(movePict)
    Set pivot  = m.Rotate3RateDegrees(m.Vector3(0,0,1), -30).ParallelTransform2()
    DAControl.Image =floatImg.Transform(pivot)
    DAControl.Start()
</script>


movePict = "C:test.jpg" の部分は準備した画像ファイルのフルパスを記入して下さい。

投稿時間:2003/12/05(Fri) 10:22
投稿者名:ryo
Eメール:
URL :
タイトル:
Re^2: テキストファイルからプログラムを操作する
返信ありがとうございました。
早速参考にしてみます