VB 高手们进来下,小弟有个问题要请教各位!!!
用VB怎么做个气泡提示的窗口呢???注意:1.窗口运行时在屏幕右下角2.慢慢上升,过一分钟后又慢慢下降3.如果单击窗体上的"我已知道!"按钮,窗口立即关闭4.窗口是运行在...
用VB怎么做个气泡提示的窗口呢???
注意:
1.窗口运行时在屏幕右下角
2.慢慢上升,过一分钟后又慢慢下降
3.如果单击窗体上的"我已知道!"按钮,窗口立即关闭
4.窗口是运行在MDI窗体中的,它是一个子窗体
谢谢各位啊!!! 展开
注意:
1.窗口运行时在屏幕右下角
2.慢慢上升,过一分钟后又慢慢下降
3.如果单击窗体上的"我已知道!"按钮,窗口立即关闭
4.窗口是运行在MDI窗体中的,它是一个子窗体
谢谢各位啊!!! 展开
4个回答
展开全部
可以用二个TIMER控件来控制,
TIMER1控制气泡的上升与下降,TIMER2控制一分钟的间隔。
设置二个FLAG
FLAG1来判断气泡是上升还是下降,为false则上升,为TRUE则下降
FLAG2来判断是否有鼠标移动到窗体了,FALSE 是没有鼠标移入,为TRUE则有鼠标移入。
窗体加载时,将TIMER1设置为可用,TIMER2设置为不可用,
TIMER1的INTERVAL 设置为100
TIMER2的INTERVAL 设置为60000
当气泡上升到预定位置后,将FLAG1设置为TRUE,TIMER1设置为不可用,启用TIMER2。
当窗体有鼠标移入后,将FLAG2设置为TRUE。
当TIMER2到时间启用TIMER事件时,判断FLAG2的值。
如果为FALSE 则启动TIMER1,关闭TIMER2。
如果为TRUE 不启动TIMER1,直接关闭TIMER2。
TIMER1控制气泡的上升与下降,TIMER2控制一分钟的间隔。
设置二个FLAG
FLAG1来判断气泡是上升还是下降,为false则上升,为TRUE则下降
FLAG2来判断是否有鼠标移动到窗体了,FALSE 是没有鼠标移入,为TRUE则有鼠标移入。
窗体加载时,将TIMER1设置为可用,TIMER2设置为不可用,
TIMER1的INTERVAL 设置为100
TIMER2的INTERVAL 设置为60000
当气泡上升到预定位置后,将FLAG1设置为TRUE,TIMER1设置为不可用,启用TIMER2。
当窗体有鼠标移入后,将FLAG2设置为TRUE。
当TIMER2到时间启用TIMER事件时,判断FLAG2的值。
如果为FALSE 则启动TIMER1,关闭TIMER2。
如果为TRUE 不启动TIMER1,直接关闭TIMER2。
展开全部
十分太少
你先去网上搜Vb 气泡提示弄懂了就好了,要用到api,不懂的话把代码发给你你也不知道怎么该。
你先去网上搜Vb 气泡提示弄懂了就好了,要用到api,不懂的话把代码发给你你也不知道怎么该。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以初始化设置窗口的位置,然后通过循环来让Form.top不停+1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
学习!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询