投稿時間: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" の部分は準備した画像ファイルのフルパスを記入して下さい。
|