建站
咨詢
售后
建站咨詢
新聞中心
vb.net用form模擬初始屏幕，想在窗體顯示后讓窗體里的label依次顯示“正在初始化A”，“
Public Class Form1
成都創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供綿陽(yáng)網(wǎng)站建設(shè)、綿陽(yáng)做網(wǎng)站、綿陽(yáng)網(wǎng)站設(shè)計(jì)、綿陽(yáng)網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、綿陽(yáng)企業(yè)網(wǎng)站模板建站服務(wù)，10多年綿陽(yáng)做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
Public str() As String
Public flag As Integer = 0 ? ? ? ? ? //標(biāo)志位，記錄上一次顯示的字符串在數(shù)組中的位置
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 //保證下次執(zhí)行l(wèi)abel1.text=str(flag)顯示不同內(nèi)容
? If flag = 4 Then ? ? ?//加載完了，定時(shí)器關(guān)掉
? ? ? Timer1.Stop()
? End If
End Sub
End Class
運(yùn)行效果見(jiàn)附件屏幕錄像
如何在代碼中設(shè)置vb.net運(yùn)行初始界面與屏幕右上角對(duì)齊？
獲取屏幕大小寬和高 和初始化窗口的尺寸 屏幕減尺寸等于你想要的left值 和top值 即屏幕比你窗體高多少 寬多少就是你右對(duì)齊的初始值 右上角對(duì)齊top依舊為0
VB.NET 2010 設(shè)計(jì)不規(guī)則形狀的初始屏幕
給你個(gè)鏈接吧
推薦使用圖片+透明色(TransparencyKey)的方法構(gòu)建
重寫OnPaint方法很麻煩
vb.net怎么做啟動(dòng)窗體之前顯示的畫面
把啟動(dòng)窗體先顯示出來(lái)，然后，過(guò)一段時(shí)間再把這個(gè)窗體隱藏起來(lái)就行了。在其他窗體中加一句form1.visible=false
然后啟動(dòng)窗體把標(biāo)題欄什么的設(shè)置一下，做個(gè)圖片背景什么的，就行了。
網(wǎng)站題目：vb.net初始屏幕的簡(jiǎn)單介紹
URL分享：http://fisionsoft.com.cn/article/dsiiosh.html
