SDI Form - ( Single Document Interface )

SDI Form - ( Single Document Interface )


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(X,Y)                           ' form üzerinde dolaştırıldığında
End IF                                               ' noktalar halinde bir çizgi çizer
End Sub
 
Private Sub Form_Click()
DrawWith = 5
Line (100,150) - (500 - 1000)                                         ' Düz çizgi
Line  - (500 - 1000)                                                       ' Sıfır noktasından düz çizgi
Line (100,150) - (500 - 1000) , RGB (0, 255, 0)               ' Yeşil düz çizgi
Line (100,150) - (500 - 1000) , RGB (0, 255, 0), B           ' Yeşil kenarlı dikdörtgen
Line (100,150) - (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