1Public Class Form1
23 Private GUIForm As New Form2
45 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
6 '半透明にする
7 Me.Opacity = 0.6
89 'GUIのフォームの設定
10 GUIForm.FormBorderStyle = FormBorderStyle.None
11 GUIForm.StartPosition = FormStartPosition.Manual
1213 'BackColorではなくBackgroundImageを単色で塗りつぶして透過させる
14 'Panelなど、FormのBackColorに連動して変化するものへの対応
15 Dim bg As Bitmap = New Bitmap(GUIForm.Width, GUIForm.Height)
16 Using g As Graphics = Graphics.FromImage(bg)
17 g.Clear(Color.Green)
18 End Using
19 GUIForm.BackgroundImage = bg
20 GUIForm.TransparencyKey = Color.Green
2122 'GUI用フォームを半透明フォームと同じ位置、同じ大きさにする
23 GUIForm.Location = Me.PointToScreen(New Point(0, 0))
24 GUIForm.Size = Me.ClientSize
2526 'GUIの表示
27 GUIForm.Show(Me)
2829 End Sub
3031 Private Sub Form1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
32 GUIForm.Size = Me.ClientSize
33 End Sub
3435 Private Sub Form1_LocationChanged(sender As Object, e As EventArgs) Handles Me.LocationChanged
36 GUIForm.Location = Me.PointToScreen(New Point(0, 0))
37 End Sub
38End Class
39