自动抓取屏幕的颜色和坐标…… Private Sub Timer1_Timer() Dim hdc As Long Dim a As POINTAPI Dim quyanse As Long Call GetCursorPos(a) '取得鼠标位置 Text1.Text = a.x Text3.Text = a.y hdc = GetDC(0) '取得整个屏幕的hDC Form1.BackColor = GetPixel(hdc, a.x, a.y) '取 颜色 ReleaseDC 0, hd
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
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Private Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long Private Decl
各位好，目前我写程序用到了通过一个access应用程序 A ，调用另一个Access应用程序 B，并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, , "编号='" & Me.编号 & "' ", , acWindowNormal B.Forms("form1").SetFocus D
各位好，目前我写程序用到了通过一个access应用程序 A ，调用另一个Access应用程序 B，并打开B中的一个窗体显示所要查询到的信息。这些功能我都实现了，只是，Access应用程序B这个主窗体不能跑到任何Windows窗体的前面。每次都要手动鼠标点击。 我也使用了以下代码，却还是不行。 dim B as Access.Application B.OpenAccessProject("C:\pro\B.adp") B.DoCmd.OpenForm "from1", acNormal, ,
