天天看點

VB學習第三周--窗體事件

窗體事件:

1.裝載窗體

2.單擊窗體

3.輕按兩下窗體

4.改變了窗體大小

Public Class Form1

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        Me.BackgroundImageLayout = ImageLayout.Tile '以平鋪方式顯示窗體背景
        Me.BackgroundImage = Image.FromFile("background.bmp") '裝入相應圖檔
        Me.Text = "單擊窗體"
        Me.Icon = New Icon("MONITR01.ico")    ' 改變窗體左上方的小圖示
        Me.Cursor = New Cursor("KEY04.ICO")   ' 滑鼠指針改為指定的檔案名圖示
        Me.MaximizeBox = True
        Me.MinimizeBox = True
    End Sub

    Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
        Me.BackgroundImageLayout = ImageLayout.Stretch  '以拉伸方式顯示窗體背景
        Me.Text = "輕按兩下窗體"
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackgroundImage = Image.FromFile("PC01.ICO")
        Me.Text = "裝載窗體"
    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.BackgroundImage = Nothing  ' 卸掉圖檔,窗體無背景圖檔
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Cursor = Cursors.Default  ' 滑鼠指針恢複為預設值
        Me.Icon = Nothing
        Me.Text = "改變了窗體大小"
    End Sub
End Class