您好，vb點虐 在控件加載過程中，有一個窗體擋住，類似進度條，請問如何實現(xiàn)

分析：

成都創(chuàng)新互聯(lián)是一家專注網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷策劃、成都小程序開發(fā)、電子商務(wù)建設(shè)、網(wǎng)絡(luò)推廣、移動互聯(lián)開發(fā)、研究、服務(wù)為一體的技術(shù)型公司。公司成立10年以來，已經(jīng)為超過千家成都報廢汽車回收各業(yè)的企業(yè)公司提供互聯(lián)網(wǎng)服務(wù)?，F(xiàn)在，服務(wù)的超過千家客戶與我們一路同行，見證我們的成長；未來，我們一起分享成功的喜悅。

添加一個新窗體，設(shè)置屬性.TopMost=True ,窗體顯寬纖示在前面。

設(shè)置一下透明度增加效果。如果使用窗體閃爍，可以添加時間控件，

設(shè)置時手悉間段變更窗畢巧乎體透明度來達(dá)到你想要的效果。

VB.NET先加載模塊再啟動窗體

確實如xjnzhidao 講的，很可能你沒實例化,模塊中的代碼你不調(diào)用也是不執(zhí)行的，尤其是寫到模缺戚塊里面的函數(shù)或者過程伏卜陵。一個很簡單的辦法，就是在你模塊代碼中聲明數(shù)據(jù)庫庫讀取的地方設(shè)置一個斷點，然后調(diào)試程序（把窗體調(diào)用該代碼部分先注釋掉），看看是否執(zhí)行到了斷點，如果沒執(zhí)弊瞎行就說明根本沒執(zhí)行模塊

詳細(xì)闡述 vb點虐 中main

每個 Visual Basic 應(yīng)用程序均必須包含一個稱為VB.NET Main過程。該過程為應(yīng)用程序的起始點并為應(yīng)用程序提供總體控制。.NET Framework 在已加載應(yīng)用程序并準(zhǔn)備將控制傳遞給它時，將調(diào)用 Main 過程。除非您要創(chuàng)建 Windows 窗體應(yīng)用程序，否則就必須為自運行的應(yīng)用程序編寫 Main 過程。

Main 中包含首先運行的代碼。在 Main 中，可以確定在程序啟動時首先加載的窗體，確定系統(tǒng)上是否已在運行您的應(yīng)用程序副本，為應(yīng)用程序建立一組變量，或者打開應(yīng)用程序需要的數(shù)據(jù)庫。

VB.NET Main過程的要求

獨立運行的文件（擴展名通常為 .exe）必須包含 Main 過程。庫（例如，擴展名為 .dll）不獨立運行，因而不需要 Main 過程?？梢詣?chuàng)建的不同類型的項目的要求如下：

控制臺應(yīng)用程序可以獨立運行，而且您必須提供至少一個 Main 過程。

Windows 窗體應(yīng)用程序可以獨立運行。但是，Visual Basic 編譯器會在此類應(yīng)用程序中自動滾閉納生成一個 Main 過程，因而您不需要編寫此過程。

類庫不需要 Main 過程。這些類庫包括 Windows 控件庫和 Web 控件庫。作為類庫部署 Web 應(yīng)用程序。

聲明VB.NET Main過程

有四種方法可以聲明 Main 過程。它可以使用參數(shù)或不使用參數(shù)，可以返回值或不返回值。

注意

如果在類中聲明 Main 過程，則必須使用 Shared 關(guān)鍵字。在模塊中，Main 不必是 Shared。

最簡單的方法是聲明一個不使用參數(shù)或不返回值的 Sub 過程。

Module mainModule

Sub Main()

MsgBox("The Main procedure

is starting the application.")

' Insert call to appropriate

starting place in your code.

MsgBox("The application

is terminating.")

End Sub

End ModuleMain

還可以返回一個 Integer 值，操作系統(tǒng)將其作為程序的退出代碼。其他程序可以態(tài)隱通過檢查 Windows ERRORLEVEL 值大沒來測試該代碼。若要返回退出代碼，必須將VB.NET Main過程聲明為 Function 過程而不是 Sub 過程。

Module mainModule

Function Main() As Integer

MsgBox("The Main procedure

is starting the application.")

Dim returnValue As Integer = 0

' Insert call to appropriate

starting place in your code.

' On return, assign appropriate

value to returnValue.

' 0 usually means successful

completion.

MsgBox("The application is

terminating with error level " _

CStr(returnValue) ".")

Return returnValue

End Function

End ModuleMain

還可以采用一個 String 數(shù)組作為參數(shù)。數(shù)組中的每個字符串均包含一個用于調(diào)用程序的命令行參數(shù)。您可以根據(jù)它們的值采取不同的操作。

Module mainModule

Function Main(ByVal cmdArgs()

As String) As Integer

MsgBox("The Main procedure is

starting the application.")

Dim returnValue As Integer = 0

' See if there are any arguments.

If cmdArgs.Length 0 Then

For argNum As Integer = 0 To

UBound(cmdArgs, 1)

' Insert code to examine cmdArgs

(argNum) and take

' appropriate action based on its value.

Next argNum

End If

' Insert call to appropriate starting

place in your code.

' On return, assign appropriate

value to returnValue.

' 0 usually means successful completion.

MsgBox("The application is

terminating with error level " _

CStr(returnValue) ".")

Return returnValue

End Function

End Module

可以聲明VB.NET Main過程來檢查命令行參數(shù)而不返回退出代碼，如下所示。

Module mainModule

Sub Main(ByVal cmdArgs() As String)

MsgBox("The Main procedure is

starting the application.")

Dim returnValue As Integer = 0

' See if there are any arguments.

If cmdArgs.Length 0 Then

For argNum As Integer = 0 To

UBound(cmdArgs, 1)

' Insert code to examine cmdArgs

(argNum) and take

' appropriate action based on its value.

Next argNum

End If

' Insert call to appropriate

starting place in your code.

MsgBox("The application is

terminating."

End Sub

End Module