重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

包含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

运行效果见附件屏幕录像

VB.NET中设定窗体大小

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

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

如何在代码中设置vb.net运行初始界面与屏幕右上角对齐?

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


文章标题:包含vb.net窗体初始化的词条
标题网址:http://cqcxhl.com/article/doeeeho.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP