Question

用VB编写制作透明窗体，界面自行设计。

要求窗体在设计时不做任何修改，程序运行时，窗体最大化，同时窗体的标题改变为“触发了Load事件，单击将使窗体颜色变浅”；当单击窗体时，窗体颜色逐渐变浅，同时窗体的标题改变为“触发了Click事件，继续单击窗体将越来越浅，双击将结束程序”；当双击窗体时，结束程序。
求源代码，我是用Microsoft Visual Studio 2008 好像是VB.net

Answer 1

Private Sub Form1_Click(sender As Object, e As EventArgs) Handles Me.Click
Me.Opacity -= 0.2 ' 这里可以改成 0.01 以使单击过程减慢窗体变浅的速度
Me.Text = "触发了 Click 事件，继续单击窗体将越来越浅，双击将结束程序"
End Sub

Private Sub Form1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick
End
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Me.Text = "触发了 Load 事件，单击将使窗体颜色变浅"
End Sub