十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Public Class Form1
成都创新互联公司专业为企业提供绵阳网站建设、绵阳做网站、绵阳网站设计、绵阳网站制作等企业网站建设、网页设计与制作、绵阳企业网站模板建站服务,10多年绵阳做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
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
运行效果见附件屏幕录像
获取屏幕大小宽和高 和初始化窗口的尺寸 屏幕减尺寸等于你想要的left值 和top值 即屏幕比你窗体高多少 宽多少就是你右对齐的初始值 右上角对齐top依旧为0
给你个链接吧
推荐使用图片+透明色(TransparencyKey)的方法构建
重写OnPaint方法很麻烦
把启动窗体先显示出来,然后,过一段时间再把这个窗体隐藏起来就行了。在其他窗体中加一句form1.visible=false
然后启动窗体把标题栏什么的设置一下,做个图片背景什么的,就行了。