| |
こんにちは。かみちゃん です。
>ボタン1をクリックするとaaa.aspのtxtに”ああああ”と
>入れば楽かな・・・と思いました。WebBrowser Object
>でできるのでしょうか？
WebBrowserコントロールについては以下のＵＲＬが参考になりますでしょうか？
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9195.html
たとえば、この掲示板のトップページのテキストボックスに「WebBrowserの使い方」
という文字列を設定するには、以下のようにすればできると思います。
Private Sub UserForm_Activate()
Dim strURL As String
myFlag = True
'値をセットするＵＲＬ
strURL = "http://www.vbalab.net/"
Me.WebBrowser1.Navigate strURL
Do While myFlag 'ビジー、読み込み中の間
DoEvents
Loop
MsgBox "処理が終わりました。"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objITEM As Object
DoEvents
If (Not Me.WebBrowser1.Busy) And _
Me.WebBrowser1.ReadyState = 4 Then
'テキストボックスにセットする。
Me!WebBrowser1.Document.all.txtSearch.Value = "WebBrowserの使い方"
'Submitボタンを押してみる。
Me.WebBrowser1.Document.forms(0).submit
myFlag = False
End If
End Sub
|
|
かみちゃん
- 05/10/27(木) 21:38 -
