Pop-Up menüler...
Bildiğiniz gibi Pop-up menüler, WINDOWS 3.1 ile gelen ve bazı programlarda sağ fare tuşuna
basıldığında programla ilgili birtakım olayları gerçekleştirebilmenize yarayan menülerdir. Bu menüler
WINDOWS 95 kullananların ise artık eli ayağı durumundalar.
Visual Basic ile bu menüleri yaratmak çok kolay.
Menü editörünü açın ve şekildeki gibi özellikler
taşıyan ve ismi "Pano" olan bir menü yaratın. Menünüzü yarattıktan sonra editörden çıkmadan
sadece "pano" isimli kısmı "görünmez" yapın. Editörden çıktığınızda yarattığınız menünün
görülmediğini farkedeceksiniz. Form üzerindeki diğer kontrollleri de yarattıktan sonra programınızı
çalıştırın ve text kutusunun üstüne gidip "Sağ" fare tuşuna tıklayın. Karşınıza menü editörüyle
yarattığınız menü bir pop-up menü olarak çıkacaktır. Programınız çalışırken menülerin ayarlarıyla
oynayabildiğinizden pop-up menüyü, normal bir menü haline ikinci seçeneği seçerek
dönüştürebilirsiniz.
Private Sub Form_Load()
pano.Visible = False
Option1.Value = True
End Sub
Private Sub Option1_Click()
pano.Visible = False
End Sub
Private Sub Option2_Click()
pano.Visible = True
End Sub
Private Sub tarih_Click()
Text1.Text = Text1.Text & Now
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If pano.Visible = True Then GoTo atla
If Button = 2 Then
PopupMenu pano
End If
atla:
End Sub