新建一個Sub ： Main
和順網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站設(shè)計等網(wǎng)站項目制作，到程序開發(fā)，運營維護。創(chuàng)新互聯(lián)于2013年成立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)。
Private Sub Main()
xxx.show 'xxx指啟動窗體
'載入圖片、數(shù)據(jù)庫之類的
Unload xxx
{from}.show '{from}指主界面
End Sub
然后在工程-屬性將"Main"作為啟動對象
1、登錄界面要求
（1）相關(guān)參數(shù)更改
尺寸： Size：（390,280）
無邊框設(shè)計： FormBorderStyle：None
窗體啟動位置： StartPosition：CenterScreen
窗體名： Text：管理員登錄
（2）添加picturebox：
鋪滿頂部：Dock參數(shù)為Top
背景圖片：修改BackgroundImage，圖片設(shè)置為拉伸BackgroundImageLayout：stretch
添加標題
Label
——Text：企業(yè)級MIS綜合平臺
——backcolor：用取色器取背景色，同化
——ForeColor：字體顏色
添加其他元素并修改顏色
加入close方法
2、總結(jié)
登錄窗體設(shè)計
（1）添加新登錄窗體，讓窗體無邊框
（2）圖片控件，設(shè)置圖片拉伸方式
（3）按鈕的扁平化設(shè)計
（4）文本框邊框設(shè)計
花了二十分鐘給你寫了代碼，已測試。建議學習并使用System.Drawing繪制。
主要是掌握Graphics.FillRectangle和DrawString的使用。
Imports?System.Drawing
Public?Class?進度條UI
Public?上面筆刷?As?SolidBrush?=?New?SolidBrush(Color.FromArgb(192,?175,?238,?238))
Public?下面筆刷?As?SolidBrush?=?New?SolidBrush(Color.FromArgb(192,?30,?144,?255))
Public?文字筆?As?SolidBrush?=?New?SolidBrush(Color.FromArgb(255,?255,?255,?255))
Public?字體?As?Font?=?New?Font("微軟雅黑",?14.0)
Public?文字格式?As?StringFormat?=?New?StringFormat()?With
{.Alignment?=?StringAlignment.Center,?.LineAlignment?=?StringAlignment.Center}
'''?summary
'''?繪制指定進度的圖像。
'''?當進度變化時調(diào)用一次本方法，建議將創(chuàng)建的Graphics對象保存到變量而不要重復創(chuàng)建。。
'''?/summary
'''?param?name="控件"繪制到此控件的工作區(qū)/param
'''?param?name="g"繪制到控件的Graphics對象，例如?Button1.CreateGraphics()/param
'''?param?name="進度"進度百分比實數(shù)，57%?=?0.57/param
Public?Sub?繪制(ByRef?控件?As?Control,?ByRef?g?As?Graphics,?ByVal?進度?As?Double)
Dim?矩形?=?控件.ClientRectangle?'獲取控件的工作區(qū)矩形
Dim?下面高度?=?CInt(矩形.Height?*?進度)?'獲取下面顏色塊的高度
Dim?中間位置?=?矩形.Top?+?矩形.Height?-?下面高度?'獲取中間分界線的Y坐標
Dim?上矩形?=?New?Rectangle(矩形.X,?矩形.Y,?矩形.Width,?矩形.Height?-?下面高度)
Dim?下矩形?=?New?Rectangle(矩形.X,?中間位置,?矩形.Width,?下面高度)
g.FillRectangle(上面筆刷,?上矩形)
g.FillRectangle(下面筆刷,?下矩形)
'繪制文字
Dim?文字?As?String?=?String.Format("{0:0.00}%",?進度?*?100)
g.DrawString(文字,?字體,?文字筆,?矩形,?文字格式)
End?Sub
End?Class
下面是Form1窗體的代碼：添加一個Button1和Timer1控件，將Button1尺寸拖大點
Public?Class?Form1
Public?g?As?Graphics
Public?進度條UI?As?New?進度條UI
Public?進度?As?Double
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
g?=?Button1.CreateGraphics()
Timer1.Enabled?=?Not?Timer1.Enabled
End?Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
進度?+=?0.01
進度條UI.繪制(Button1,?g,?進度)
End?Sub
End?Class
將圖片放在一個PictureBox（picBuff）里，在窗體的Resize事件里將picBuff的圖片畫到窗體上：
If Me.ScaleHeight 100 And Me.ScaleWidth 100 Then '防止出現(xiàn)負數(shù)
Me.PaintPicture picBuff.Picture, 0, 0, Me.Width, Me.Height, 0, 0, picBuff.Width, picBuff.Height, vbSrcCopy
End If
重新編譯
還不行.就去 你項目目錄中的bin\Debug目錄里面把里面的exe程序刪除了.再重新生成一下.
Visual Studio?2013
Microsoft Visual Studio（簡稱VS）是美國微軟公司的開發(fā)工具包系列產(chǎn)品。VS是一個基本完整的開發(fā)工具集，它包括了整個軟件生命周期中所需要的大部分工具，如UML工具、代碼管控工具、集成開發(fā)環(huán)境(IDE)等等。所寫的目標代碼適用于微軟支持的所有平臺，包括Microsoft Windows、Windows Mobile、Windows CE、.NET Framework、.NET Compact Framework和Microsoft?Silverlight?及Windows Phone。?Visual Studio是目前最流行的Windows平臺應(yīng)用程序的集成開發(fā)環(huán)境。最新版本為 Visual Studio 2013 版本，基于.NET Framework?4.5.1 。
重慶分公司
重慶分公司
