| 投稿日 | ： 2003/12/05(Fri) 00:54 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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" の部分は準備した画像ファイルのフルパスを記入して下さい。