设计一个简单的VB应用程序,要求在窗体上单机鼠标,窗体标题变为“欢迎进入VB世界!”,同时在窗体上显示一个圆,当点击恢复按钮时窗体标题恢复为Form1,且圆被清除
时间: 2024-05-09 20:18:51 浏览: 63
以下是一个简单的VB应用程序,可以实现上述要求:
```
Public Class Form1
Private Sub Form1_Click(sender As Object, e As EventArgs) Handles MyBase.Click
Me.Text = "欢迎进入VB世界!"
Dim g As Graphics = Me.CreateGraphics()
g.FillEllipse(Brushes.Red, 50, 50, 100, 100)
End Sub
Private Sub btnRestore_Click(sender As Object, e As EventArgs) Handles btnRestore.Click
Me.Text = "Form1"
Dim g As Graphics = Me.CreateGraphics()
g.Clear(Me.BackColor)
End Sub
End Class
```
在窗体上单击鼠标时,会触发`Form1_Click`事件,窗体标题会变为“欢迎进入VB世界!”,并在窗体上显示一个红色圆。点击恢复按钮时,会触发`btnRestore_Click`事件,窗体标题恢复为“Form1”,并清除窗体上的圆。
阅读全文