分類:[VB.NET/VB2005 以降]
VisualStdio2005 使用言語はVBです。
NotifyIconを使用し、タスクトレイに常駐させるシステムがあります。
30分毎にとあるデータベースの中を見てデータが存在した場合に
お知らせフォームをポップアップさせているのですが、
ポップアップ時にポップアップフォームがアクティブになってしまい
Word等で日本語入力途中の文字が確定されてしまいます。
表示処理の中で「Me.Activate()」の記述があり消してみても駄目でした。
ポップアップフォームを最前面に表示し、アクティブにさせない方法はあるのでしょうか?
ご存知の方いらっしゃいましたらアドバイス宜しくお願い致します。
'現在の記述
Private Sub Form_Load
Me.Close()
End Sub
Private Sub FormClosing
Me.Visible = False
Timer1.Enabled = True 'タイマースタート
End Sub
Private Sub Timer1_Tick
Dim iRet As Integer
iRet = DataChk 'データがあるかチェック(0以外はデータ有り)
'データがあった場合フォームを表示
If iRet <> 0 Then
Timer1.Enabled = False 'タイマーストップ
Me.Visible = True
Me.Activate() 'ここを消しても駄目でした
End If
End Sub
|