|
Private Sub InitializeComponent()
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(welcome))
Me.components = New System.ComponentModel.Container()
Me.Timer1 = New System.WinForms.Timer(components)
''''@design Me.TrayHeight = 90
''''@design Me.TrayLargeIcon = False
''''@design Me.TrayAutoArrange = True
''''@design Timer1.SetLocation(New System.Drawing.Point(7, 7))
Me.Text = "welcome"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
End Sub
#End Region
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
If Me.Opacity = 1 Then ''''显示出来以后，就执行下面的代码
Dim fm As Form1 = New form1() ''''这form1创造一个实例（instance），形成一个对象（object),分配一点内存。
fm.Visible = True ''''显示主窗体
Me.Dispose() ''''你把他看作VB6的unload me吧
Else
Me.Opacity = Me.Opacity + 0.01 ''''慢慢地显示窗体
End If
End Sub
End Class
猜猜这个窗体会产生什么。。。。。。
在form1添加以下代码
Imports System.ComponentModel
Imports System.Drawing
Imports System.WinForms
Public Class Form1
Inherits System.WinForms.Form
Public Sub New()
MyBase.New
Form1 = Me
''''This call is required by the Win Form Designer.
InitializeComponent() ''''在执行New过程(新建一个窗体)时初始化组件
Me.BorderStyle = FormBorderStyle.None
button2.Visible = False ''''隐藏button2
textbox2.Visible = False ''''隐藏textbox2
''''TODO: Add any initialization after the InitializeComponent() call
End Sub
''''Form overrides dispose to clean up the component list.
Overrides Public Sub Dispose()
MyBase.Dispose
components.Dispose
End Sub
#Region " Windows Form Designer generated code "
''''Required by the Windows Form Designer
Private components As System.ComponentModel.Container
Private WithEvents Button3 As System.WinForms.Button
上一页 [1] [2] [3] [4] 下一页
[VB.NET程序]教你编写网络通讯程序源代码之“端口扫描器”VB篇… [其他]SYBASE数据库迁移到AS400db2的FAQ（四）
[Sql Server]iBATIS SQL Maps（四）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
