VB6(VBA)でIEを操作し、表示ページのソースの読込みの確認にDocumentCompleteイベントを使用することを考えています。それで下記のテストプログラムを作成しますたが、DocumentCompleteイベントプロシジャに制御が渡りません。
その原因をご教示して頂きたくお願いします。
Dim WithEvents objIE As InternetExplorer
---------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
While objIE.readyState <> 4
While objIE.Busy = True
DoEvents
Wend
Wend
objIE.Navigate "http://www.goo.ne.jp/"
While objIE.readyState <> 4
While objIE.Busy = True
DoEvents
Wend
Wend
End Sub
-------------------------------------------------------------
Private Sub objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "ソースの読込み完了"
End Sub
VB6(VBA)でIEを操作し、表示ページのソースの読込みの確認にDocumentCompleteイベントを使用することを考えています。それで下記のテストプログラムを作成しますたが、DocumentCompleteイベントプロシジャに制御が渡りません。
その原因をご教示して頂きたくお願いします。
Dim WithEvents objIE As InternetExplorer
---------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
While objIE.readyState <> 4
While objIE.Busy = True
DoEvents
Wend
Wend
objIE.Navigate "http://www.goo.ne.jp/"
While objIE.readyState <> 4
While objIE.Busy = True
DoEvents
Wend
Wend
End Sub
-------------------------------------------------------------
Private Sub objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "ソースの読込み完了"
End Sub
VB6(VBA)でIEを操作し、表示ページのソースの読込みの確認にDocumentCompleteイベントを使用することを考えています。それで下記のテストプログラムを作成しますたが、DocumentCompleteイベントプロシジャに制御が渡りません。
その原因をご教示して頂きたくお願いします。
Dim WithEvents objIE As InternetExplorer
---------------------------------------------------------------
Private Sub CommandButton1_Click()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
While objIE.readyState <> 4
While objIE.Busy = True
DoEvents
Wend
Wend
objIE.Navigate "http://www.goo.ne.jp/"
While objIE.readyState <> 4
While objIE.Busy = True
DoEvents
Wend
Wend
End Sub
-------------------------------------------------------------
Private Sub objIE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "ソースの読込み完了"
End Sub
vb2008で現在のマウスカーソルのハンドルを取得し、デスクトップに描画するというプログラムを組んでいます。しかし、以下の部分を実行してもマウスカーソルは描画されません。どこがおかしいのでしょうか？
Dim hcur As Long
Dim hdc As Long
'マウスカーソルのハンドル取得
hcur = GetCursor()
'デスクトップのデバイスコンテキスト取得
hdc = GetDC(GetDesktopWindow())
'カーソル描画
DrawIcon(hdc,0,0,hcur)
ちなみに同名のAPIの宣言はしてあります。
後，このソースの用途ですが，複数マウスに対応した複数カーソルの表示です。もしそれにあたって別の方法でカーソルを表示すべきなどのご指摘がありましたら，それもよろしくお願いします。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Beep音を出す
Dim I As Integer
For I = 1 To 100 ' Loop 100 times.
Beep() ' Sound a tone.
Next I
End Sub
上記のコードでBeep音を出したいのですが、鳴りません。
（Beepコードは、ＶＢのサンプルコードです。）
ＯＳ：ＷｉｎＸＰ ＳＰ３
ＶＢ.ＮＥＴ Ver2003です。
フォームにコマンドボタンを一つ貼り付け、
コマンドボタンのクリックイベントで
Beep音を鳴らしたいです。
ＰＣのデバイスマネージャ設定は、
Beep音が有効になっています。
他の音（Win立上音他）は、デフォルトのままです。
詳しい方、教えて下さい。
テキストボックスのKeyUpイベントにて『Enter』または『Tab』が押されたら処理をさせようと
Private Sub Text_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Text.KeyUp
If e.KeyCode = Keys.Enter or e.KeyCode = Keys.Tab Then
処理コード
End If
End Sub
としたのですが『Enter』のときしか処理コードが反映されません
ご教授お願いします
