1.新建壹個文件夾——用於存放Excel文件和Vb啟動畫面文件。
2.打開VB——新建壹個 標準EXE。
3.設置Form1用戶窗體的顯示屬性——Borderstyle、StartupPositio等。
<1>Borderstyle=0-none 去掉form1的標題欄
<2>StartupPositio=2 設置在屏幕中央顯示窗口
<3>Icon 如果需要設置圖標可以設置這個屬性(可以不設置)
4.建立打開Excel文件的控件——這步是最重要的,也是Vb打開Excel的原理所在!添加壹個Timer控件,將其Interval設為600(控制窗口顯示的時間),雙擊Timer控件,在出現的代碼窗口中輸入以下代碼:
Private Sub Timer1_Timer()
Dim Exl As Object ' 建立壹個對象變量
Set Exl = CreateObject("Excel.Application") ' 設置對象為Excel(妳可以通過修改這裏,實現用VB打開其他類型文件)
Exl.Workbooks.Open (App.Path & "\" & "多用戶登錄.xls") ' 鏈接 EXCEL 文件
Exl.Visible = True
Unload Me
End Sub
5.生成EXE文件——命令在“文件”菜單中,將生成EXE文件保存到 1. 中建立的文件夾。