alpamis

Formun yüklenmesi sırasında Load olayı içerisinde bulunan kodunuzun daha aktif olması için kodun ilk satırına Me.Show eklenir böylece form otomatik olarak devreye girer.



AutoRedraw özelliğini hızlı form güncellemesine gereksinim duyulan noktalarda False yapılır.

Formlar gerekmedikçe bellekten Unload komutu ile silinmez. Ekranda gözükmesi istemiyorsa Unload yerine Hide ile saklanır.

Bir form üzerinde farklı ad taşıyan en fazla 254 kontrol nesnesi bulunabilir. Aynı tür olanlar bir dizi şeklinde aynı ad ile indekslenerek kullanılabilir.



Formun çağrılıp gösterilmesi sırasında gerçekleşen olayların sırası;

Form_Initialize

Form_Load

Form_Resize

Form_Paint



Set form1 = Nothing ‘ Terminate - Formun hafızadan silinmesi



Form.KeyPreview = true ‘ KeyPress olayını form tarafından

algılanabilmesi Keypreview True olmalıdır



Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyEscape Then End ‘ Escape tuşu ile program kapanır

End Sub



Private Sub Form_MouseMove(Button As Integer Shift As Integer _

X As Single Y As Single)

DrawWidth = 5

If Button = 1 Then ‘ Fare sol tuşu basılı olarak

Pset(XY) ‘ form üzerinde dolaştırıldığında

End IF ‘ noktalar halinde bir çizgi çizer

End Sub



Private Sub Form_Click()

DrawWith = 5

Line (100150) - (500 - 1000) ‘ Düz çizgi

Line - (500 - 1000) ‘ Sıfır noktasından düz çizgi

Line (100150) - (500 - 1000) RGB (0 255 0) ‘ Yeşil düz çizgi

Line (100150) - (500 - 1000) RGB (0 255 0) B ‘ Yeşil kenarlı dikdörtgen

Line (100150) - (500 - 1000) RGB (0 255 0) BF ‘ İçi dolu yeşil dikdörtgen

Circle (1500 1500) 400

‘ 1500 1500 Noktası merkezli 400 twip yarıçaplı daire

Circle (1500 1500) 400 RGB (0 0 255) ‘ Mavi daire

Circle (1500 1500) 400 RGB (0 0 255) 0 3.14 ‘ Yarım mavi daire

Circle (1500 1500) 400 RGB (0 0 255) 0.5 ‘ Enlemesine mavi elips

Circle (1500 1500) 400 RGB (0 0 255) 1.5 ‘ Boylamasına mavi elips

pSet (1500 1500) RGB (255 0 0) ‘ Kırmızı nokta

End Sub



UnloadMode
Değer
Anlamı

vbFormControlMenu
0
Kullanıcı tarafından formun kontrol menüsünden Close komutu seçilmiştir

VbFormCode
1
Kod içinde Unload metodu icra edilmiştir

VbAppWindows
2
O andaki Microsoft Windows işletim sistemi oturumu sona ermiştir. (Windows Kapanmıştır)

vbAppTaskManager
3
Windows’un iş yöneticisi(Task Manager) uygulamayı kapatmıştır

VbFormMDIForm
4
MDI formu kapandığı için bu formun bir çocuk formu da kapanmıştır




Private Sub Form_QueryUnload(Cancel As Integer UnloadMode As Integer)

Select Case UnloadMode

Case vbFormControlMenu

MsgBox "Kontrol Mönüsü İle Kapatılmıştır"

Case vbFormCode

MsgBox "Kod İle Kapatılmıştır" ‘ Unload ile

Case vbAppWindows

MsgBox "Windows Kapandığı İçin Kapanmıştır"

Case vbAppTaskManager

MsgBox "Task Manager Tarafından Kapatılmıştır"

Case vbFormMDIForm

MsgBox "MDI Formu Kapandığı İçin Kapanmıştır"

End Select

End Sub