问一个关于自动弹出窗口的问题?

Question

窗体form1一直最小化.当有一事件发生的时候自动跳出来?给个思想或者示例代码都行!谢谢了
比如说在mslexgrid控件里显示有一记录的时候自动跳出来!

Answer 1

可以在 mslexgrid 的相关事件是触发，这是比较好的方法。还有一个方法是在窗体上放一个 timer 控件，周期性检测条件是否达到。

Answer 2

用timeer控件怎么行呢?万一不在timer控件控制的时间里出现的话不就不能实现了?
大哥你说那个触发MSFLEXGRid的什么事件?当它里面有内容的时候触发吗?

Answer 3

MSFLEXGRid 中数据不可能凭空得来吧，总是由相应的代码或操作写入的。那总触发某些事件，当然具体情况具体对待。TIMER 的话可以间隔设短一点。

Answer 4

问题的关键是要知道,让窗体最小化 和恢复的命令是什么 ,否则 就用 hide 和show 了.

Answer 5

比如说我现在有个照相机.有一个msflexgrid用来接收照相机的型号等的数据.有一个命令按钮控制开始与否.当command1按下后要等一段时间才能把照相机的型号显示在msflexgrid里面.也就是说当msflexgrid里面有数据的时候.窗口就从任务栏里跳出来了!怎么办?给个思想或者代码都行!

Answer 6

先把窗口隐藏，设置一个时钟不断检测事件是否发生，如果事件发生则弹出窗口。Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()‘隐藏窗口
  Form1.Hide
End Sub
Private Sub Timer1_Timer()'弹出窗口
if 事件发生 then  
     Dim h As Long
     h = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE)
     Timer1.Enabled = False
endif
End Sub

Answer 7

我下了一个可以把窗口隐藏在任务栏的程序.然后把我的代码已经弄到里面了.现在可以最小化都任务栏了.楼上的大哥!能不能告诉我把你程序中的声明放到哪里啊?我的代码有5个模块啊!我没用过API的!谢谢了.!

Answer 8

Declare Function SetWindowPos Lib "user32.dll" (ByVal hWND As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
还有已经有了这个了!

Answer 9

Timer1.Enabled = False还有啊@你这个怎么是false呢?