VB.net如何設(shè)置程序運(yùn)行時(shí)最先打開的窗體？

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

成都創(chuàng)新互聯(lián)公司專注于卓尼網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供卓尼營(yíng)銷型網(wǎng)站建設(shè)，卓尼網(wǎng)站制作、卓尼網(wǎng)頁(yè)設(shè)計(jì)、卓尼網(wǎng)站官網(wǎng)定制、微信小程序定制開發(fā)服務(wù)，打造卓尼網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供卓尼網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

如果你不是用的visual Studio來(lái)開發(fā)的，那么可以考慮把另外一個(gè)窗口的visible屬性先設(shè)置為false或者把你要顯示的窗口改為對(duì)話框的形式，大小比另外一個(gè)窗口大一點(diǎn)或者一樣（即 模態(tài)窗口，必須關(guān)閉才能繼續(xù)操作），這樣都可以實(shí)現(xiàn)你要的效果。

vbnet打開文件夾下打開jpg和png

XPS文件格式經(jīng)常在文件處理應(yīng)用程序中使用。您可以在基于.NET Framework的應(yīng)用程序中使用C＃或VB.NET以編程方式將XPS或OXPS轉(zhuǎn)換為JPG或PNG圖像。

讓我們逐步介紹以下方案，以了解有關(guān)XPS轉(zhuǎn)換的更多信息：

使用C＃或VB.NET將XPS，OXPS轉(zhuǎn)換為JPG圖像

使用C＃或VB.NET將XPS，OXPS轉(zhuǎn)換為PNG圖像

目前，.NET版Aspose.page升級(jí)到v20.10版，感興趣的朋友可點(diǎn)擊下載

使用C＃或VB.NET將XPS，OXPS轉(zhuǎn)換為JPG圖像

JPG文件之所以出名是因?yàn)樗鼈冊(cè)谒邢到y(tǒng)環(huán)境中均受支持。您可以使用C＃或VB.NET以編程方式將XPS或OXPS文件轉(zhuǎn)換為JPG圖像。對(duì)于XPS或OXPS到JPG圖像的轉(zhuǎn)換，應(yīng)遵循以下步驟：

加載輸入XPS或OXPS文件

初始化JpegSaveOptions對(duì)象

指定要渲染的SmoothingMode，Resolution和PageNumbers

保存輸出的JPG圖像

以下代碼顯示了如何使用C＃語(yǔ)言將XPS或OXPS轉(zhuǎn)換為JPG圖像：

// Input file

string inputFileName = dataDir + "input.xps";

//Output file

string outputFileName = dataDir + "XPStoImage_out.jpeg";

// Initialize XPS input stream

using (Stream xpsStream = File.Open(inputFileName, FileMode.Open, FileAccess.Read))

{

// Load XPS document form the stream

XpsDocument document = new XpsDocument(xpsStream, new XpsLoadOptions());

// or load XPS document directly from file. No xpsStream is needed then.

// XpsDocument document = new XpsDocument(inputFileName, new XpsLoadOptions());

// Initialize options object with necessary parameters.

JpegSaveOptions options = new JpegSaveOptions()

{

SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality,

Resolution = 300

};

// Create rendering device for JPG format

ImageDevice device = new ImageDevice();

document.Save(device, options);

// Iterate through document partitions (fixed documents, in XPS terms)

for (int i = 0; i device.Result.Length; i++) // Iterate through partition pages for (int j = 0; j device.Result[i].Length; j++) { // Initialize image output stream using (Stream imageStream = System.IO.File.Open(Path.GetDirectoryName(outputFileName) + Path.GetFileNameWithoutExtension(outputFileName) + "_" + (i + 1) + "_" + (j + 1) + Path.GetExtension(outputFileName), System.IO.FileMode.Create, System.IO.FileAccess.Write)) // Write image imageStream.Write(device.Result[i][j], 0, device.Result[i][j].Length); } }

使用C＃或VB.NET將XPS，OXPS轉(zhuǎn)換為PNG圖像

可能需要使用C＃或VB.NET和Aspose.Page for .NET API將XPS或OXPS文件轉(zhuǎn)換為PNG。您需要按照以下步驟將XPS轉(zhuǎn)換為PNG：

加載輸入XPS或OXPS文件

初始化PngSaveOptions對(duì)象

設(shè)置圖像分辨率或頁(yè)面編號(hào)為渲染

保存輸出的PNG圖像

怎么用VB打開電腦的應(yīng)用程序

用VB打開電腦的應(yīng)用程序是調(diào)用API函數(shù)來(lái)修改或增加注冊(cè)表中的值，這樣在系統(tǒng)啟動(dòng)時(shí)就會(huì)自動(dòng)執(zhí)行。

Option?Explicit

Const?REG_SZ?As?Long?=?1

Const?HKEY_LOCAL_MACHINE?=?H80000002

'創(chuàng)建注冊(cè)表項(xiàng)

Private?Declare?Function?RegCreateKey?Lib?"advapi32.dll"?Alias?_

"RegCreateKeyA"?(ByVal?hKey?As?Long,?ByVal?lpSubKey?As?String,?_

phkResult?As?Long)?As?Long

'設(shè)置注冊(cè)表項(xiàng)中的值

Private?Declare?Function?RegSetValueEx?Lib?"advapi32.dll"?Alias?_

"RegSetValueExA"?(ByVal?hKey?As?Long,?ByVal?lpValueName?As?String,?_

ByVal?Reserved?As?Long,?ByVal?dwType?As?Long,?lpData?As?Any,?_

ByVal?cbData?As?Long)?As?Long

'打開注冊(cè)表中的項(xiàng)

Private?Declare?Function?RegOpenKeyEx?Lib?"advapi32.dll"?Alias?_

"RegOpenKeyExA"?(ByVal?hKey?As?Long,?ByVal?lpSubKey?As?String,?_

ByVal?ulOptions?As?Long,?ByVal?samDesired?As?Long,?phkResult?As?Long)?As?Long

'獲取子項(xiàng)

Private?Declare?Function?RegQueryValueEx?Lib?"advapi32.dll"?Alias?_

"RegQueryValueExA"?(ByVal?hKey?As?Long,?ByVal?lpValueName?As?String,?_

ByVal?lpReserved?As?Long,?lpType?As?Long,?lpData?As?Any,?lpcbData?As?Long)?As?Long

Const?REG_DWORD?=?4

Private?Sub?Form_Load()

'為text1設(shè)置默認(rèn)路徑程序

Text1.Text?=?"C:\Program?Files\****\****.exe"'請(qǐng)修改自動(dòng)啟動(dòng)程序的路徑。

End?Sub

Private?Sub?Command1_Click()

'設(shè)置開機(jī)啟動(dòng)

Dim?hKey?As?Long

Dim?myexe?As?String

Dim?myint?As?Integer

myint?=?Len(Text1.Text)?-?InStrRev(Text1.Text,?"\")'取得應(yīng)用程序文件名字符串的字節(jié)數(shù)，含擴(kuò)展名

myexe?=?Right(Text1.Text,?myint)'取得應(yīng)用程序文件名字符串，含擴(kuò)展名

If?Text1.Text??""?Then

RegCreateKey?HKEY_LOCAL_MACHINE,?"Software\Microsoft\Windows\CurrentVersion\Run",?hKey

'"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"是注冊(cè)表中的路徑

RegSetValueEx?hKey,?myexe,?0,?REG_SZ,?ByVal?Text1.Text,?255

'myexe是上面注冊(cè)表路徑中添加的項(xiàng)，Text1.Text是該項(xiàng)的數(shù)據(jù)。

End?If

MsgBox?"設(shè)置完成,請(qǐng)您重新啟動(dòng)計(jì)算機(jī)!"??vbCrLf??vbCrLf??"你設(shè)置的程序?qū)㈤_機(jī)自動(dòng)執(zhí)行！",?64,?"提示信息"

End?Sub

Private?Sub?Command2_Click()

'查找自動(dòng)啟動(dòng)的程序

DHK1.DialogTitle?=?"選擇程序"'注意打開對(duì)話框的名稱是DHK1

DHK1.Filter?=?"應(yīng)用程序(*.exe)|*.exe"

DHK1.ShowOpen

If?Len(DHK1.FileName)?Then

Text1.Text?=?DHK1.FileName

End?If

End?Sub

5

Private?Sub?Command3_Click()

End

End?Sub

vb.net做安裝包，安裝后自動(dòng)運(yùn)行程序

1 新建安裝部署項(xiàng)目

打開VS2005，點(diǎn)擊新建項(xiàng)目，選擇：其他項(xiàng)目類型-安裝與部署-安裝向?qū)?安裝項(xiàng)目)，然后點(diǎn)擊確定。

2 安裝向?qū)?/p>

關(guān)閉后打開安裝向?qū)Вc(diǎn)擊下一步，或者直接點(diǎn)擊完成。

3 開始制作

安裝向?qū)瓿珊蠹纯蛇M(jìn)入項(xiàng)目文件夾：

雙擊"應(yīng)用程序文件夾"在右邊的空白處右擊，選擇添加-文件，將你的做的應(yīng)用程序的可執(zhí)行文件和相應(yīng)的類庫(kù)和組件添加進(jìn)來(lái)。然后右擊你的文件，創(chuàng)建快捷方式，然后把快捷方式分別復(fù)制或剪切到左邊的"用戶的'程序'菜單"和"用戶桌面"中。這樣安裝程序安裝完成后會(huì)在 "開始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用戶的'程序'菜單"和"用戶桌面"相應(yīng)目錄下新建快捷方式，然后定位到你的文件。

然后右擊左邊的"應(yīng)用程序文件夾"打開屬性對(duì)話框：將屬性中的"DefaultLocation"的路徑中的"[Manufacturer]"去掉，不然的話做好的安裝程序默認(rèn)安裝目錄會(huì)是"C:\Program Files\你的用戶名\安裝解決方案名稱"；

然后打開解決方案管理器，右擊你的解決方案名稱，選擇屬性：打開的屬性頁(yè)中，選擇"系統(tǒng)必備"， 在打開的系統(tǒng)必備頁(yè)中，在"指定系統(tǒng)必備安裝組件的位置"中選中如下選擇項(xiàng)：從與我的應(yīng)用程序相同的位置下載系統(tǒng)必備組件。選上以后，在生成的安裝文件包中包含.NetFramework組件 。好了，這樣就完成99%了，然后點(diǎn)擊"生成-生成解決方案"，生成成功!

我以前參考過(guò)的，希望對(duì)你有幫助。

安裝完成后自動(dòng)啟動(dòng)程序

1.新建一個(gè)空的項(xiàng)目InstallCompenent,步驟為:解決方案-右鍵添加-新建項(xiàng)目-選擇"空項(xiàng)目"-輸入名稱"InstallCompenent"-確定,完成項(xiàng)目的添加.

2.在InstallCompenent項(xiàng)目中右鍵-添加-新建項(xiàng)-選擇安裝程序類-輸入名稱"Installer",完成installer類的添加.

修改代碼為:

/// summary

/// 功能是做安裝項(xiàng)目主項(xiàng)目輸出

/// 實(shí)現(xiàn)安裝過(guò)程中的一些操作

/// 如:安裝完成后啟動(dòng)項(xiàng)目

/// /summary

[RunInstaller(true)]

public partial class Installer : Installer

{

/// summary

/// 應(yīng)用程序入口

/// /summary

public static void Main()

{

}

/// summary

/// 構(gòu)造函數(shù)

/// /summary

public ECSuitsInstaller()

{

InitializeComponent();

}

/// summary

/// 重寫安裝完成后函數(shù)

/// 實(shí)現(xiàn)安裝完成后自動(dòng)啟動(dòng)已安裝的程序

/// /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

/// 重寫安裝過(guò)程方法

/// /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.在安裝項(xiàng)目中右鍵-添加項(xiàng)目輸出-選擇"項(xiàng)目"-InstallCompenent.

完成主輸出項(xiàng)目的添加.

4.打開自定義操作編輯器,在安裝-右鍵-添加自定義操作-選擇"應(yīng)用程序文件夾"-選擇"主輸出來(lái)自InstallCompenent",完成添加.

VB.NET語(yǔ)言怎么打開.exe文件

用shell函數(shù)，具體: Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Shell("你的QQ路徑") End Sub End Class 默認(rèn)的QQ路徑是C:\Program Files\Tencent\QQ\bin\QQ.exe

網(wǎng)站欄目：vb.net打開應(yīng)用程序 vbs打開應(yīng)用程序
文章出自：http://chinadenli.net/article40/hgdeeo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供面包屑導(dǎo)航、響應(yīng)式網(wǎng)站、網(wǎng)站設(shè)計(jì)公司、外貿(mào)網(wǎng)站建設(shè)、微信小程序、云服務(wù)器

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)