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

Visual Basic Programlama platformunda pop-up menüler oluşturmak için altaki kodu kullanabilirsiniz.


Visual Basic Pop-up Kodu:

 

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


Etiketler: Visual Basic

İlk yorumu siz yazın !..

  • Yorumunuz en az 30 karakter olmalıdır. (0)
Sitede Ara
  • İnstagram Şekilli Profil Yazıları Oluşturma
    – єℓєşтιямє вєηιвєğєη∂ιуѕєη тαк∂ιя єт…нσşυηα gιтмιуσямυуυм кαƒαηα тαкмα ѕιктιя єт…...
  • Rüya Soyut Mu Somut Mu?
    Bu bilgiler benim bilim insanı olma bilgilerimi geliştirdi ve ayrıca ben çocuğum,kızım ve hayalimde ki ...
  • XP ne demek? XP nin anlamı nedir ?
    Roma dönemi konstantinin yaptığı simgeyi merak edip geldim ????...
  • Yeni başlayanlara En iyi 10 Kore dizisi
    Güzel liste. İlgimi çeken diziler oldu. Kill me heal me ve boys over flowers da olabilirmiş listede. ...
  • medal of honor spearhead kurulum hatası...
    iyiymiş ama birazı eksik olmuş bu...
  • Sevimli Komik ve İlginç Kedi Resimleri
    aaaaaaaaaaaaa çok şirinlerrrrr...
  • Saç dökülmesinin nedenleri ve Ahmet Maranki Karışımı
    Saçlarım da dökülme var açılmalar da olmaya başladı doktora gittim testler yaptırdım ama hiçbir sorun ç...