关于vb.net中窗体初始化的信息-重庆大橙子建站

这里有您想知道的互联网营销解决方案

关于vb.net中窗体初始化的信息

vb.net用form模拟初始屏幕，想在窗体显示后让窗体里的label依次显示“正在初始化A”，“

Public Class Form1

成都创新互联 - 成都移动服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，成都移动服务器托管，西南服务器托管，四川/成都大带宽，成都机柜租用，四川老牌ＩＤＣ服务商

Public str() As String

Public flag As Integer = 0 //标志位，记录上一次显示的字符串在数组中的位置

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Timer1.Interval = 2000

Timer1.Start()

str = {"正在初始化A...", "正在初始化B...", "正在初始化C...", "初始化完成！"}

End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

Label1.Text = str(flag)

flag = flag + 1 //保证下次执行label1.text=str(flag)显示不同内容

If flag = 4 Then //加载完了，定时器关掉

Timer1.Stop()

End If

End Sub

End Class

运行效果见附件屏幕录像

方法如下：

1、打开例1.1创建的工程。

2、选择窗体Form1并双击该窗体，出现窗体的调事件的过程代码体。

3、在窗体调用的过程代码体中编制如下过程代码：

Private Sub Form_Load()

Form1.Width = 4860

Form1.Height = 2520

End Sub

4、设置窗体Form1的SartUpPosition属性为2-屏幕中心，这样运行窗体可以发现，屏幕的大小与例1.6中通过属性设置的大小是一致的。

获取屏幕大小宽和高和初始化窗口的尺寸屏幕减尺寸等于你想要的left值和top值即屏幕比你窗体高多少宽多少就是你右对齐的初始值右上角对齐top依旧为0

窗体初始化时，设定Windowstate= maximized.

窗体分辨率仍然可以设成1920x1080。设计元素的时候拖拽，或者使用代码初始化控件。

你是不是用的Visual Studio来开发的？如果是，这样操作：打开项目菜单中的 XXX属性，在弹出的属性页选择最上面那个应用程序标签，里面有个启动窗体，你选择一下就可以了。

如果你不是用的visual Studio来开发的，那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式，大小比另外一个窗口大一点或者一样（即模态窗口，必须关闭才能继续操作），这样都可以实现你要的效果。

网页名称：关于vb.net中窗体初始化的信息
链接URL：http://cqwzjz.cn/article/hgogjj.html