去掉Windows CE和 Pocket PC中和OK按钮 需要Windows mobil 6的SDK using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Text; using System.Windows.Forms; using System.Runtime; using Syst
inherited; if message.LParam = wm_rbuttonup then begin //用鼠标右键点击图标 getcursorpos(mousept); //获取光标位置 popupmenu1.popup(mousept.x, mousept.y); //在光标位置弹出选单 end; if message.LParam = wm_lbuttonup then begin //用鼠标左键点击图标 //显示应用程序 窗口 ShowWindow(Handle, SW_SHO
VB 限制调整窗口大小的最大值，我们根据SetWindowLong函数的说明 ，可写出一个函数，当用户拖动窗口时，控制窗口最大能拖动到什么大小，当达到最大值时，窗口就不能继续被拖大，我们定义一个函数，在打开这个VB窗口时自动加载函数，实现对窗口最大拖动大小的控制： Private Sub Form_Load() Dim ret As Long preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC) ret = SetWindowL
