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 kontrolleri 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 = FalseOption1.Value = TrueEnd SubPrivate Sub Option1_Click()pano.Visible = FalseEnd SubPrivate Sub Option2_Click()pano.Visible = TrueEnd SubPrivate Sub tarih_Click()Text1.Text = Text1.Text & NowEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If pano.Visible = True Then GoTo atlaIf Button = 2 ThenPopupMenu panoEnd Ifatla:End Sub
</SPAN>geovisit();
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 kontrolleri 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 = FalseOption1.Value = TrueEnd SubPrivate Sub Option1_Click()pano.Visible = FalseEnd SubPrivate Sub Option2_Click()pano.Visible = TrueEnd SubPrivate Sub tarih_Click()Text1.Text = Text1.Text & NowEnd SubPrivate Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If pano.Visible = True Then GoTo atlaIf Button = 2 ThenPopupMenu panoEnd Ifatla:End Sub
</SPAN>geovisit();

