加载表格 [英] Loading forms

问题描述

我有一个设置为计时器的启动画面。当

计时器达到它的间隔1000时，我希望它在我的项目中加载

下一个表格。我的哥哥从

学校知道VB6，但我不知道我的代码有什么问题。


尽快需要帮助！

提前感谢您的帮助！

解决方案

嗨Joshua，


||无法弄清楚我的代码是什么问题。


我们也不能。


||需要帮助尽快！


需要尽快查看代码！


;-)


问候，

Fergus


（但它不会是我......我要离开......）

继承我的代码：


Public Class Splash

继承System.Windows.Forms.Form

#Region" Windows窗体设计器生成的代码


Public Sub New（）

MyBase.New（）


' 'Windows窗体需要此调用

设计器。

InitializeComponent（）


''在
InitializeComponent（）调用


End Sub


''表格覆盖dispose来清理组件

list。

受保护的重载覆盖Sub Dispose（ByVal

作为布尔值处理）

如果处置则

如果不是（组件什么都没有）那么

components.Dispose（）

结束如果

结束如果

MyBase.Dispose（disposing）

End Sub


''Windows窗体设计师要求

私有组件作为系统.ComponentModel.IContainer


''注意：

Windows窗体设计师需要以下程序

''它可以用来修改g Windows窗体设计器。

''不要使用代码编辑器修改它。

Friend WithEvents SplashIMG As

System.Windows.Forms .PictureBox

Friend WithEvents SplashTimer As

System.Windows.Forms.Timer

< System.Diagnostics.DebuggerStepThrough（）>私有

Sub InitializeComponent（）

Me.components = New

System.ComponentModel.Container（）

Dim资源As System.Resources.ResourceManager

=新的System.Resources.ResourceManager（GetType（Splash））

Me.SplashIMG = New System.Windows.Forms.PictureBox

（）

Me.SplashTimer = New System.Windows.Forms.Timer

（Me.components）

Me .SuspendLayout（）

''

''SplashIMG

''

Me.SplashIMG.Image = CType （resources.GetObject

（" SplashIMG.Image"），System.Drawing.Bitmap）

Me.SplashIMG.Name =" SplashIMG"

Me.SplashIMG.Size = New System.Drawing.Size（600，

300）

Me.SplashIMG.TabIndex = 0

Me.SplashIMG.TabStop = False

''

''SplashTimer

''

Me.SplashTimer .Enabled = True

Me.SplashTimer.Interval = 1000

''
''Splash

''

Me.AutoScaleBaseSize = New System.Drawing.Size（5，

13 ）

Me.ClientSize = New System.Drawing.Size（600,300）

Me.Controls.AddRange（New

System.Windows .Forms.Control（）{Me.SplashIMG}）

Me.FormBorderStyle =

System.Windows.Forms.FormBorderStyle.None

Me .Name =" Splash"

Me.ShowInTaskbar = False

Me.StartPosition =

System.Windows.Forms.FormStartPosition.CenterScree n

Me.Text =" KS.IntraNet"

Me.ResumeLayout（False）


End Sub


#End Region

Private Sub SplashIMG_Click（ByVal sender As

System.Object，ByVal e As System.EventArgs）Handles

SplashIMG。点击


结束子


私人子Timer1_Tick（ByVal发件人为

System.Object，ByVal e As System.EventArgs）Handles

SplashTimer.Tick

加载frmLogin

结束子

结束班

-----原始信息-----
嗨约书亚，

||不知道我的代码有什么问题。

我们也不能。

||需要尽快帮助！

需要尽快看看代码！

;-)

问候，
Fergus

（但它不会是我......我要离开......）

。

嗨Joshua，


我想的时候我没有离开。但我得到你的第二张

帖子并在那里回答。所以现在我们可以在这两个线程之间反弹

和更多

问题，哈哈;-)


此致，

Fergus

I have a splash screen that is set to a timer. When the
timer reaches it''s Interval of 1000, I want it to load
the next form in my project. My brother knows VB6 from
school but can''t figure out whats wrong with my code.

Need help ASAP!
Thank you for your help in advance!

解决方案

Hi Joshua,

|| can''t figure out whats wrong with my code.

Nor can we.

|| Need help ASAP!

Need code to look at ASAP!

;-)

Regards,
Fergus

(But it won''t be me.. I''m off...)

Heres my code:

Public Class Splash
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

''This call is required by the Windows Form
Designer.
InitializeComponent()

''Add any initialization after the
InitializeComponent() call

End Sub

''Form overrides dispose to clean up the component
list.
Protected Overloads Overrides Sub Dispose(ByVal
disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

''Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

''NOTE: The following procedure is required by the
Windows Form Designer
''It can be modified using the Windows Form Designer.
''Do not modify it using the code editor.
Friend WithEvents SplashIMG As
System.Windows.Forms.PictureBox
Friend WithEvents SplashTimer As
System.Windows.Forms.Timer
<System.Diagnostics.DebuggerStepThrough()> Private
Sub InitializeComponent()
Me.components = New
System.ComponentModel.Container()
Dim resources As System.Resources.ResourceManager
= New System.Resources.ResourceManager(GetType(Splash))
Me.SplashIMG = New System.Windows.Forms.PictureBox
()
Me.SplashTimer = New System.Windows.Forms.Timer
(Me.components)
Me.SuspendLayout()
''
''SplashIMG
''
Me.SplashIMG.Image = CType(resources.GetObject
("SplashIMG.Image"), System.Drawing.Bitmap)
Me.SplashIMG.Name = "SplashIMG"
Me.SplashIMG.Size = New System.Drawing.Size(600,
300)
Me.SplashIMG.TabIndex = 0
Me.SplashIMG.TabStop = False
''
''SplashTimer
''
Me.SplashTimer.Enabled = True
Me.SplashTimer.Interval = 1000
''
''Splash
''
Me.AutoScaleBaseSize = New System.Drawing.Size(5,
13)
Me.ClientSize = New System.Drawing.Size(600, 300)
Me.Controls.AddRange(New
System.Windows.Forms.Control() {Me.SplashIMG})
Me.FormBorderStyle =
System.Windows.Forms.FormBorderStyle.None
Me.Name = "Splash"
Me.ShowInTaskbar = False
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScree n
Me.Text = "KS.IntraNet"
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub SplashIMG_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
SplashIMG.Click

End Sub

Private Sub Timer1_Tick(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
SplashTimer.Tick
Load frmLogin
End Sub
End Class

-----Original Message-----
Hi Joshua,

|| can''t figure out whats wrong with my code.

Nor can we.

|| Need help ASAP!

Need code to look at ASAP!

;-)

Regards,
Fergus

(But it won''t be me.. I''m off...)
.

Hi Joshua,

I wasn''t off as soon as I thought. But I got your second
posting and answered there. So now we can bounce back
and forth between these two threads as you add more
questions, lol ;-)

Regards,
Fergus

这篇关于加载表格的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！