フォームを最背面に設定したいのですが・・・

質問

VisualBasic2008で開発しております。

フォームを常に最背面に表示したく、
http://jeanne.wankuma.com/tips/vb.net/form/bottommost.html
で紹介されているような方法を試してみました。

この方法で、フォームを最背面にするという事自体は解決できたのですが、最背面にしたフォームのイベントハンドラが機能しなくなってしまいました。

どうすればイベントハンドラが機能するようになるのでしょうか？

回答No.1

ToOrisugaru

はじめまして、通りすがると申します。
ご質問の意味がいまいち明確に解らないのですが、実際に最背面のフォームにて
何をしたいのかが解らないです。
例として、以下のサンプルを作成してみました。
以下サンプルは、立ち上げ時のフォームは時計を表示します。（仮form1）
form1のボタンをクリックするとform2を起動します。
form2のloadイベントでform2のフォームを前面にするコントロールを指定
してます。
この場合、背面のフォームの時計は常に動いてますのでイベントを常に受け取って
いることが解ると思います。

------------------------form1---------------------------
フォームにtextbo1を一つ、bottomを一つ,Timer1を一つを貼りつけ以下のソースを記述

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim wTime As DateTime = DateTime.Now

TextBox1.Text = Format(wTime, "yyyy/MM/dd hh:mm:ss")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm2 As New Form2
frm2.Show()
End Sub
End Class
------------------------form2---------------------------
formにbuttomを一つ貼りつけ、以下のソースを記述

Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.TopMost = True
End Sub
End Class