Form Özelliği Değiştirme Projesi

Bu örnekte formun genişliği ile ilgili bilgi kullanıcıdan alınıp, buna göre form özelliğini değiştiren program yazılacaktır. Form ilk açıldığında ekranın sol üst köşesinde ve boyutları değişmez olarak görüntülenecektir.

Form (Ornek1) üzerinde bir yazı kutusu (txtGenis-Name), bir etiket (Istenilen Genislik-Caption, lblGenis-Name) ve bir komut düğmesi (Formu Genislet-Caption, cmdGenis-Name) olacaktır.

Form Prosedürü

Sub Ornek1_Load

Ornek1.Top = 0

Ornek1.Left = 0

Ornek1.BorderStyle = 0

Ornek1.ControlBox = 0

End Sub

Komut Düğmesi Prosedürü

Sub cmdGenis_Click

' Formun genişliğinin 500'den fazla olmaması için denetleme

If Val(txtGenis.Text) > 500 Then Ornek1.Width =500

Else Ornek1.Width = Val(txtGenis.Text)

End If

End Sub