用VB做一个提示框(右下角弹出)

运行这个程序的时候,会在桌面右下角弹出,跟QQ消息提示差不多性质大小要大一点像素350*250提示框里面的内容调用程序目录下的文本这个程序,运行5秒后,才出现关闭的按钮颜... 运行这个程序的时候,会在桌面右下角弹出,跟QQ消息提示差不多性质
大小要大一点 像素 350*250
提示框里面的内容调用 程序目录下的文本
这个程序,运行5秒后,才出现关闭的按钮
颜色做的醒目一点
做好了把源码程序打包发到我邮箱{achao07@qq.看门(改com)}
谢谢了!!!
-----------------------------------------------------------
展开
 我来答
百度网友2ca1c0f24
2009-05-26 · TA获得超过2036个赞
知道大有可为答主
回答量:4364
采纳率:0%
帮助的人:3418万
展开全部
Dim k As Integer
Private Sub Form_Load()
Dim PR As String, WJM As String
Me.Top = 7300'窗体离顶端的距离
Me.Left = 10000'窗体离左端的距离
Label1.Visible = False
Timer1.Enabled = True
Timer1.Interval = 1000
WJM = App.Path & "\ABC.txt"
Open WJM For Input As #1
Do While Not EOF(1)
Input #1, PR
Loop
Close #1
Label2.Caption = PR
End Sub

Private Sub Label1_Click()
End
End Sub

Private Sub Timer1_Timer()
k = k + 1
If k > 5 Then Label1.Visible = True
End Sub

很简单,界面你自己设计。
窗体中添加2个Label控件,其中Label1是"关闭",Label2是显示的文本,文件名是“ABC.txt”,在添加一个Timer控件。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
371296065
2009-05-26 · TA获得超过145个赞
知道小有建树答主
回答量:106
采纳率:0%
帮助的人:0
展开全部
按你的要求我做好了,把分给我吧,已经发到你的邮箱里去了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
一碑电影
2009-05-26 · 知道合伙人影视综艺行家
一碑电影
知道合伙人影视综艺行家
采纳数:406 获赞数:5429
微信公众号:一碑电影。 电影,延长三倍人生。

向TA提问 私信TA
展开全部
已经发到你的邮箱了!!!
我的QQ是281756283
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jkcrow
2009-05-26 · TA获得超过476个赞
知道小有建树答主
回答量:611
采纳率:0%
帮助的人:539万
展开全部
做广告程序么??
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zhenghanxi
2009-05-26 · TA获得超过422个赞
知道小有建树答主
回答量:268
采纳率:0%
帮助的人:257万
展开全部
已发送
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式