1. Form-ийн дэвсгэр зураг болон зургийн байрлалыг өөрчлөх
Үүний тулд нэг Button, 5 Radio button мөн OpenFileDialog хэрэгтэй.
Зураг солих товчинд дараах кодыг оруул.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim OpenFileDialog1 As New OpenFileDialog
With OpenFileDialog1
.CheckFileExists = True
.ShowReadOnly = False
.Filter = "All Files|*.*|Bitmap Files (*)|*.bmp;*.gif;*.jpg"
.FilterIndex = 2
If .ShowDialog = DialogResult.OK Then
Me.BackgroundImage = Image.FromFile(.FileName)
End If
End With
End Sub
Мөн Radio button тус бүр дээр кодуудыг оруулна.
Tile radio button:
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
Me.BackgroundImageLayout = ImageLayout.Tile
End Sub
2. Center radio button:
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton2.CheckedChanged
Me.BackgroundImageLayout = ImageLayout.Center
End Sub
Stretch radio button:
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
Me.BackgroundImageLayout = ImageLayout.Stretch
End Sub
Zoom radio button:
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton4.CheckedChanged
Me.BackgroundImageLayout = ImageLayout.Zoom
End Sub
Зураг устгах radio button:
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton5.CheckedChanged
Me.BackgroundImage = Nothing
End Sub
