[讨论]一个关于闪窗的调用问题!~ - VB.NET论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → .NET专区 → 『 VB.NET论坛』 → [讨论]一个关于闪窗的调用问题!~

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 962 人关注过本帖

标题：[讨论]一个关于闪窗的调用问题!~

只看楼主加入收藏

Viviwei

等　级：贵宾
威　望：20
帖　子：344
专家分：0
注　册：2006-4-11

楼主

问题点数：0 回复次数：3

[讨论]一个关于闪窗的调用问题!~

我做了一个软件，想和商业软件一样,在出现登陆窗体之前有个闪窗停顿几秒.
请问怎样去调用这个闪窗??(我用的是vb.net+sql2000)

搜索更多相关主题的帖子: 闪窗　软件　商业　讨论　窗体　

2006-04-24 21:41

feeling

来　自：福建厦门
等　级：贵宾
威　望：10
帖　子：105
专家分：0
注　册：2006-3-29

第 2 楼

得分:0

Dim int As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If int = 0 Then
Me.Visible = True
int = 1
ElseIf int = 1 Then
Me.Visible = False
int = 2
ElseIf int = 2 Then
Me.Visible = True
int = 3
ElseIf int = 3 Then
Me.Visible = False
int = 4
ElseIf int = 4 Then
Me.Visible = True
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000 '时间间隔自定义
End Sub

互相学习! 不要放弃!时刻相信自己! 信心,是我们撑起世界的\'武器\'! 只怕你不肯学,而不怕自己学不会!

2006-04-25 20:06

Viviwei

等　级：贵宾
威　望：20
帖　子：344
专家分：0
注　册：2006-4-11

第 3 楼

得分:0

谢谢回答,去试试了再问,欢迎斑竹经常来看看!~

爱上思考,爱上编程,爱上.net!

2006-04-27 18:09

Viviwei

等　级：贵宾
威　望：20
帖　子：344
专家分：0
注　册：2006-4-11

第 4 楼

得分:0

以下是引用feeling在2006-4-25 20:06:00的发言：

Dim int As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
dim frm as new from2
If int = 0 Then
Me.Visible = True
frm.Visible = False
int = 1
ElseIf int = 1 Then
Me.Visible = False
frm.Visible = Ture
int = 2
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000 '时间间隔自定义
End Sub

经过更改后的能运行的答案
开始的可以无限循环!~~~

[此贴子已经被作者于2006-4-27 19:33:27编辑过]

爱上思考,爱上编程,爱上.net!

2006-04-27 19:33

快速回复：[讨论]一个关于闪窗的调用问题!~