Public Class _1
Private Sub _1_Click(sender As Object, e As EventArgs) Handles Me.Click
Me.Text = "单击窗体"
Me.Size = New Size(264 + 10, 256 + 30)
Me.BackgroundImage = Image.FromFile("image/2.jpg")
End Sub
Private Sub _1_CursorChanged(sender As Object, e As EventArgs) Handles Me.CursorChanged Me.Cursor = New Cursor("key04.ico")
Me.Cursor = Cursors.Default
Me.Icon = New Icon("mise34.ico")
End Sub
Private Sub _1_DoubleClick(sender As Object, e As EventArgs) Handles Me.DoubleClick Me.Text = "双击窗体"
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.BackgroundImage = Nothing
End Sub
Private Sub _1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Text = "装入窗体"
Me.BackgroundImage = Image.FromFile("image/1.jpg")
End Sub
Private Sub _1_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.Size = New Size(246 + 10, 256 + 30)
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
End Sub
Web程序设计实验报告 姓名:冯刚 学号:200905030324 班级:计科3班
Html代码: 1.首页代码