FuSHeR ÜyePuan: 403 | Gönderilme Tarihi: 12 Ekim 2010 19:08:54
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_
|