以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]]请问如何做跟随鼠标的窗口？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76710)
--  作者：vvfree
--  发布时间：2015/11/3 20:09:00
--  [求助]]请问如何做跟随鼠标的窗口？
Forms("窗口").BaseForm.Left = X
Forms("窗口").BaseForm.Top = Y
Forms("窗口").BaseForm.Show()
不能用？
--  作者：大红袍
--  发布时间：2015/11/3 20:18:00
--  

SystemIdle事件

 

Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y
Forms("窗口1").Open
Forms("窗口1").BaseForm.Left = X
Forms("窗口1").BaseForm.Top = Y
--  作者：vvfree
--  发布时间：2015/11/4 2:05:00
--  回复：（大红袍）SystemIdle事件 Dim x As I...
判断某单元格点击后出现，离开单元格后关闭怎么做呢？ 
还有是DropDownForm 如何才能点击单元格弹出 而不是点选击箭头后才弹出？
--  作者：大红袍
--  发布时间：2015/11/4 9:30:00
--  

1、做一个开关不就行了？

 

If vars("开关") = true Then

Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y
Forms("窗口1").Open
Forms("窗口1").BaseForm.Left = X
Forms("窗口1").BaseForm.Top = Y

Else

Forms("窗口1").Close

End If
--  作者：大红袍
--  发布时间：2015/11/4 9:32:00
--  

2、在单元格click事件写代码不就行了？

 

If e.Col.Name = "客户ID" Then \'如果编辑的是客户ID列
    If e.Col.DroppedDown = False \'且下拉窗口没有打开
        e.Col.OpenDropDown() \'打开下拉窗口
    End If
End If
--  作者：vvfree
--  发布时间：2015/11/4 20:53:00
--  回复：（大红袍）2、在单元格click事件写代码不就行了...
这个我写了 但是他就是不会弹出啊，只显示箭头  按箭头才弹出
--  作者：大红袍
--  发布时间：2015/11/4 20:59:00
--  
If e.Col.Name = "第一列" Then \'如果编辑的是客户ID列
    If e.Col.DroppedDown = False \'且下拉窗口没有打开
        Sendkeys.Send("{F4}")
    End If
End If
--  作者：vvfree
--  发布时间：2015/11/4 21:34:00
--  回复：（大红袍）1、做一个开关不就行了？ I...
但是开启的时候跳闪的问题能解决吗？跟随的窗口是在中间开启跳到鼠标的，这样会有闪动的现象呢
--  作者：大红袍
--  发布时间：2015/11/4 21:41:00
--  

If vars("开关") = true Then

Dim x As Integer = System.Windows.Forms.Cursor.Current.Position.X
Dim y As Integer = System.Windows.Forms.Cursor.Current.Position.Y
Forms("窗口1").Open(x,y)
Forms("窗口1").BaseForm.Left = X
Forms("窗口1").BaseForm.Top = Y

Else

Forms("窗口1").Close

End If