Ⅰ VB.net如何設置程序運行時最先打開的窗體
你是不是用的Visual Studio來開發的?如果是,這樣操作:打開 項目 菜單 中的 XXX屬性,在彈出的屬性頁選擇最上面那個 應用程序 標簽,裡面有個啟動窗體,你選擇一下就可以了。
如果你不是用的visual Studio來開發的,那麼可以考慮把另外一個窗口的visible屬性先設置為false或者把你要顯示的窗口改為對話框的形式,大小比另外一個窗口大一點或者一樣(即 模態窗口,必須關閉才能繼續操作),這樣都可以實現你要的效果。
Ⅱ vb net只運行一個程序
方法一:通過Diagnostics.Process.GetProcessesByName函數來檢測程序是否已經啟動
Imports System.Windows.Forms
Mole Mole1
Sub Main()
'檢測多重弊碧啟動
If Diagnostics.Process.GetProcessesByName( _
Diagnostics.Process.GetCurrentProcess.ProcessName).Length > 1 Then
MessageBox.Show("已經一個實例的本程序正在運行。")
Return
End If
Application.Run(New Form())
End Sub
End Mole
不過這個方法有個缺點,如果用臘稿戶輪卜孝改了下exe的名字就檢測不到了,所以更好的方法如下
方法2:使用Mutex
Imports System.Windows.Forms
Mole Mole1
Sub Main()
Dim createdNew As Boolean
' 創建mutex
Dim mutex As System.Threading.Mutex = _
New System.Threading.Mutex(True, "YourAppName", createdNew)
If createdNew = False Then
MessageBox.Show("已經一個實例的本程序正在運行。")
Return
End If
Application.Run(New Form())
' 釋放mutex
mutex.ReleaseMutex()
End Sub
End Mole
Ⅲ vb.net做安裝包,安裝後自動運行程序
1 新建安裝部署項目
打開VS2005,點擊新建項目,選擇:其他項目類型->安裝與部署->安裝向導(安裝項目),然後點擊確定。
2 安裝向導
關閉後打開安裝向導,點擊下一步,或者直接點擊完成。
3 開始製作
安裝向導完成後即可進入項目文件夾:
雙擊"應用程序文件夾"在右邊的空白處右擊,選擇添加->文件,將你的做的應用程序的可執行文件和相應的類庫和組件添加進來。然後右擊你的文件,創建快捷方式,然後把快捷方式分別復制或剪切到左邊的"用戶的'程序'菜單"和"用戶桌面"中。這樣安裝程序安裝完成後會在 "開始->所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用戶的'程序'菜單"和"用戶桌面"相應目錄下新建快捷方式,然後定位到你的文件。
然後右擊左邊的"應用程序文件夾"打開屬性對話框:將屬性中的"DefaultLocation"的路徑中的"[Manufacturer]"去掉,不然的話做好的安裝程序默認安裝目錄會是"C:\Program Files\你的用戶名\安裝解決方案名稱";
然後打開解決方案管理器,右擊你的解決方案名稱,選擇屬性:打開的屬性頁中,選擇"系統必備", 在打開的系統必備頁中,在"指定系統必備安裝組件的位置"中選中如下選擇項:從與我的應用程序相同的位置下載系統必備組件。選上以後,在生成的安裝文件包中包含.NetFramework組件 。好了,這樣就完成99%了,然後點擊"生成->生成解決方案",生成成功!
我以前參考過的,希望對你有幫助。
http://hi..com/rivers811/blog/item/1fae4716820ced4c20a4e9ef.html
http://hi..com/xw010203/blog/item/90f66603b0f61e8fd43f7ca2.html
安裝完成後自動啟動程序
1.新建一個空的項目InstallCompenent,步驟為:解決方案->右鍵添加->新建項目->選擇"空項目"->輸入名稱"InstallCompenent"->確定,完成項目的添加.
2.在InstallCompenent項目中右鍵->添加->新建項->選擇安裝程序類->輸入名稱"Installer",完成installer類的添加.
修改代碼為:
/// <summary>
/// 功能是做安裝項目主項目輸出
/// 實現安裝過程中的一些操作
/// 如:安裝完成後啟動項目
/// </summary>
[RunInstaller(true)]
public partial class Installer : Installer
{
/// <summary>
/// 應用程序入口
/// </summary>
public static void Main()
{
}
/// <summary>
/// 構造函數
/// </summary>
public ECSuitsInstaller()
{
InitializeComponent();
}
/// <summary>
/// 重寫安裝完成後函數
/// 實現安裝完成後自動啟動已安裝的程序
/// </summary>
/// <param name="savedState"></param>
protected override void OnAfterInstall(IDictionary savedState)
{
base.OnAfterInstall(savedState);
Assembly asm = Assembly.GetExecutingAssembly();
string path = asm.Location.Remove(asm.Location.LastIndexOf("\\")) + "\\";
System.Diagnostics.Process.Start(path + "\\ECSuits.exe");
}
/// <summary>
/// 重寫安裝過程方法
/// </summary>
/// <param name="stateSaver"></param>
public override void Install(IDictionary stateSaver)
{
base.Install(stateSaver);
}
/// <summary>
/// 重寫安裝之前方法
/// </summary>
/// <param name="savedState"></param>
protected override void OnBeforeInstall(IDictionary savedState)
{
base.OnBeforeInstall(savedState);
}
/// <summary>
/// 重寫卸載方法
/// </summary>
/// <param name="savedState"></param>
public override void Uninstall(IDictionary savedState)
{
base.Uninstall(savedState);
}
/// <summary>
/// 重寫回滾方法
/// </summary>
/// <param name="savedState"></param>
public override void Rollback(IDictionary savedState)
{
base.Rollback(savedState);
}
}
3.在安裝項目中右鍵->添加項目輸出->選擇"項目"->InstallCompenent.
完成主輸出項目的添加.
4.打開自定義操作編輯器,在安裝->右鍵->添加自定義操作->選擇"應用程序文件夾"->選擇"主輸出來自InstallCompenent",完成添加.