用VB做一个提示框(右下角弹出)
运行这个程序的时候,会在桌面右下角弹出,跟QQ消息提示差不多性质大小要大一点像素350*250提示框里面的内容调用程序目录下的文本这个程序,运行5秒后,才出现关闭的按钮颜...
运行这个程序的时候,会在桌面右下角弹出,跟QQ消息提示差不多性质
大小要大一点 像素 350*250
提示框里面的内容调用 程序目录下的文本
这个程序,运行5秒后,才出现关闭的按钮
颜色做的醒目一点
做好了把源码程序打包发到我邮箱{achao07@qq.看门(改com)}
谢谢了!!!
----------------------------------------------------------- 展开
大小要大一点 像素 350*250
提示框里面的内容调用 程序目录下的文本
这个程序,运行5秒后,才出现关闭的按钮
颜色做的醒目一点
做好了把源码程序打包发到我邮箱{achao07@qq.看门(改com)}
谢谢了!!!
----------------------------------------------------------- 展开
5个回答
展开全部
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控件。
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控件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按你的要求我做好了,把分给我吧,已经发到你的邮箱里去了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已经发到你的邮箱了!!!
我的QQ是281756283
我的QQ是281756283
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
做广告程序么??
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已发送
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询