Visual Basic'te pop-up menü oluşturma

tarih28.10.2008 02:11 — Visual Basic,



Option Explicit

Private Sub Form_Load()

mdosya.Visible = False


End Sub


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

X = 0

Y = 0

PopupMenu mdosya, 4, Form1.Left + X, Form1.Top + Y

End If

End Sub


Private Sub mac_Click()

CommonDialog1 = 1

End Sub


Private Sub mcıkıs_Click()

End


End Sub

Private Sub mcopy_Click()

Clipboard.SetText Text1.SelText


End Sub


Private Sub mcut_Click()

Clipboard.SetText Text1.SelText

Text1.SelText = ""

End Sub


Private Sub mnormal_Click()

Form1.WindowState = 0

End Sub


Private Sub mpaste_Click()

Text1.SelText = Clipboard.GetText

End Sub


Private Sub msimge_Click()

Form1.WindowState = 1

End Sub


Private Sub mtam_Click()

Form1.WindowState = 2

End Sub


Private Sub myeni_Click()

CommonDialog1.Action = 2

End Sub




Bir önceki konu başlığımıza göz atmak isterseniz tıklayınız : OCX | ActiveX | Bileşen Nasıl Yapılır ?





Yorum Yazın