建立一个EXE工程,在窗体上放一个popupmenu控件。设计菜单项如图46: 图46 右键单击popupmenu,点查看代码,添加代码在鼠标右击事件中: Sub Form1_PopupMenu1_WM_Command(hWndForm As hWnd,wID As ULong)Select Case wIDCase Form1_PopupMenu1_Menu1 ' FileCase F
建立一个标准EXE新工程,在窗体上添加一个Listbox和一个Text控件。 然后在窗体中粘贴下面代码:(窗体代码) Option Explicit Private Sub Form_Load() List1.AddItem "使用鼠标右键单击这里"End Sub Private Sub List1_MouseUp(Button As Integer, Shift As Intege
代码 #!/usr/bin/env python# Copyright (c) 2007-8 Qtrac Ltd. All rights reserved.# This program or module is free software: you can redistribute it and/or# modify it under the terms of the GNU Genera