vb 菜單編輯器 其控件如何寫代碼

"同時要求當進行復制/粘貼操作後，只有“粘貼”菜單項可用。謝謝！ "

這樣操作的話 以後不能再"剪切""復制"了 好像有點怪!!

Option Explicit

Private Sub Form_Load()

剪切菜單.Enabled = True

復制菜單.Enabled = True

粘貼菜單.Enabled = False

End Sub

Private Sub 復制菜單_Click()

Clipboard.Clear

Clipboard.SetText Text1.SelText, ClipBoardConstants.vbCFText

粘貼菜單.Enabled = True

剪切菜單.Enabled = False

復制菜單.Enabled = False

End Sub

Private Sub 剪切菜單_Click()

Clipboard.Clear

Clipboard.SetText Text1.SelText, ClipBoardConstants.vbCFText

Text1.SelText = ""

粘貼菜單.Enabled = True

End Sub

Private Sub 粘貼菜單_Click()

Dim a As String

a = Clipboard.GetText(ClipBoardConstants.vbCFText)

Text1.SelText = a

剪切菜單.Enabled = False

復制菜單.Enabled = False

粘貼菜單.Enabled = True

End Sub

上一篇:什麽是ngv2 app？安全嗎？

下一篇:鬥戰神補償領取有木馬嗎