你是不是用的Visual Studio來開發(fā)的?如果是,這樣操作:打開 項(xiàng)目 菜單 中的 XXX屬性,在彈出的屬性頁選擇最上面那個(gè) 應(yīng)用程序 標(biāo)簽,里面有個(gè)啟動(dòng)窗體,你選擇一下就可以了。

成都創(chuàng)新互聯(lián)公司是網(wǎng)站建設(shè)專家,致力于互聯(lián)網(wǎng)品牌建設(shè)與網(wǎng)絡(luò)營銷,專業(yè)領(lǐng)域包括網(wǎng)站建設(shè)、成都做網(wǎng)站、電商網(wǎng)站制作開發(fā)、小程序開發(fā)、微信營銷、系統(tǒng)平臺(tái)開發(fā),與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開發(fā)公司不同,我們的整合解決方案結(jié)合了恒基網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營銷的理念,并將策略和執(zhí)行緊密結(jié)合,且不斷評(píng)估并優(yōu)化我們的方案,為客戶提供全方位的互聯(lián)網(wǎng)品牌整合方案!
如果你不是用的visual Studio來開發(fā)的,那么可以考慮把另外一個(gè)窗口的visible屬性先設(shè)置為false或者把你要顯示的窗口改為對(duì)話框的形式,大小比另外一個(gè)窗口大一點(diǎn)或者一樣(即 模態(tài)窗口,必須關(guān)閉才能繼續(xù)操作),這樣都可以實(shí)現(xiàn)你要的效果。
把啟動(dòng)窗體先顯示出來,然后,過一段時(shí)間再把這個(gè)窗體隱藏起來就行了。在其他窗體中加一句form1.visible=false
然后啟動(dòng)窗體把標(biāo)題欄什么的設(shè)置一下,做個(gè)圖片背景什么的,就行了。
Public Class Form1
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)行效果見附件屏幕錄像
可以改寫成以下形式:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strCon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\FUO_Inventory.accdb"
Dim myConn As New OleDbConnection(strCon)
myConn.Open()
End Sub
獲取屏幕大小寬和高 和初始化窗口的尺寸 屏幕減尺寸等于你想要的left值 和top值 即屏幕比你窗體高多少 寬多少就是你右對(duì)齊的初始值 右上角對(duì)齊top依舊為0
你可以先用循環(huán)的方法來獲得改datagrid中“性別”的值,接著自己定義個(gè)變量來存放這個(gè)“性別”的1或者0,然后根據(jù)這個(gè)值用條件來判斷是顯示“男性”還是女性,打個(gè)比方(有五列十行數(shù)據(jù),比方第二列顯示出“性別”):
Dim intRow As Integer
Dim intColumn As Integer
Dim Gender As Integer
For intRow = 0 To 9(DataGrid的行總和)
Gender = CInt(datagrid1.Item (intRow, 1).ToString )
If Gender = 0 Then
datagrid1.Item (intRow, 1)="男"
Else
datagrid1.Item (intRow, 1)="女"
Next
名稱欄目:包含vb.net初窗口初始化的詞條
網(wǎng)站網(wǎng)址:http://chinadenli.net/article34/hipsse.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供關(guān)鍵詞優(yōu)化、全網(wǎng)營銷推廣、品牌網(wǎng)站制作、虛擬主機(jī)、企業(yè)網(wǎng)站制作、用戶體驗(yàn)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)