启动窗体
在VS2008中如何添加启动窗体？？？ --------------------编程问答-------------------- lz说的是SplashForm么？可以在添加窗体中选择SplashFrom --------------------编程问答-------------------- 可以通过代码实现吗？？？ --------------------编程问答-------------------- 可以将窗体的TransparencyKey属性设为BackColor --------------------编程问答-------------------- 没有vb6那么好理解， --------------------编程问答-------------------- 可以添加代码实现吧。过程可以参考添加splash form的代码。 --------------------编程问答-------------------- 1、为什么有现成的非要想代码实现呢？
是不是因为现成选择的那个窗体很快就消失了呢？如果是这样，那么，你可以这样：
延迟显示主窗体，在工程的 （MyApplication事件）中有一个 Startup 事件方法，这里写个延时程序，具体如下：
'WindowsAPI 函数声明 Sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
Dim iSecond As Integer
iSecond = 0
'启动延时
Do Until iSecond >= 6
iSecond = iSecond + 1
Sleep(200) 'Win32API -- Sleep
Loop
End Sub
2、如果非要代码实现，那么还是在 1 中的方法体里写代码，具体如下：
--------------------编程问答-------------------- 这里值得注意的是：
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
frmSplash.ShowDialog()
'具体什么时候关闭 frmSplash 由你自己决定吧，如 frmSplash 中放个 Timer
End Sub
'frmSplash 代码
Public Class frmSplash
Private Sub tmrRun_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrRun.Tick
tmrRun.Stop()
Me.Close()
End Sub
Private Sub frmSplash_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
If Me.Tag = "IsRun" Then Exit Sub
Me.Tag = "IsRun"
tmrRun.Interval = 3000
tmrRun.Start()
End Sub
End Class
这东西“（MyApplication事件）中有一个 Startup 事件方法”不太好找吧。。。
这样：在工程资源管理器中——选择工程名——点鼠标右键——点属性（打开应用程序属性）对话框——选择应用程序——在“初始屏幕”下拉框右测有个“查看应用程序事件”按钮——点击它进去就可以对 MyApplication 对象的几个公开事件方法进行代码的编写了。。。
（好辛苦哦，
楼主多给点分吧。。。）
补充：.NET技术 , VB.NET
