KONDO-NETいい掲示板 By KLEB Ver 0.03
KLEB KONDO-NETいい掲示板
メンバーリスト
会員登録
ログイン
いい掲示板
-
掲示板一覧
-
ソフト開発塾
ソフト開発(VB VC Perl PHPなど)に、関わるQAなど
現在、作成中につきこの板からは投稿・返信できません。
しかし、
なんでも掲示板
からは、投稿できます。
修正
投稿者名
メールアドレス公開
レス通知
投稿題名
投稿内容
サポート技術情報 - 182033 [VB] BeforeNavigate2 を利用し HTML からイベントを取得する http://support.microsoft.com/default.aspx?kbid=182033 より Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _ URL As Variant, Flags As Variant, _ TargetFrameName As Variant, PostData As Variant, _ Headers As Variant, Cancel As Boolean) Dim Ev As String If UCase$(Left$(URL, 6)) = "EVENT:" Then 'this is our event, process it and cancel navigation Ev = UCase$(Mid$(URL, 7)) Select Case Ev Case "HELLO" MsgBox "Hello from VB App" 'set a field on HTML page WebBrowser1.Document.All("field1").Value = _ "Hello from VB" Case "CLOSE" If MsgBox("Are you sure you want to exit?", _ vbYesNo) = vbYes Then End End If End Select Cancel = True End If End Sub
削除キー
プレビュー
投稿日:
2004/02/09 02:21
---
KONDO-NET.GR.JP
---