VB.net如何设置程序运行时最先打开的窗体？

你是不是用的Visual Studio来开发的？如果是，这样操作：打开 项目 菜单 中的 XXX属性，在弹出的属性页选择最上面那个 应用程序 标签，里面有个启动窗体，你选择一下就可以了。

成都创新互联公司专注于卓尼网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供卓尼营销型网站建设，卓尼网站制作、卓尼网页设计、卓尼网站官网定制、微信小程序定制开发服务，打造卓尼网络公司原创品牌,更为您提供卓尼网站排名全网营销落地服务。

如果你不是用的visual Studio来开发的，那么可以考虑把另外一个窗口的visible属性先设置为false或者把你要显示的窗口改为对话框的形式，大小比另外一个窗口大一点或者一样（即 模态窗口，必须关闭才能继续操作），这样都可以实现你要的效果。

vbnet打开文件夹下打开jpg和png

XPS文件格式经常在文件处理应用程序中使用。您可以在基于.NET Framework的应用程序中使用C＃或VB.NET以编程方式将XPS或OXPS转换为JPG或PNG图像。

让我们逐步介绍以下方案，以了解有关XPS转换的更多信息：

使用C＃或VB.NET将XPS，OXPS转换为JPG图像

使用C＃或VB.NET将XPS，OXPS转换为PNG图像

目前，.NET版Aspose.page升级到v20.10版，感兴趣的朋友可点击下载

使用C＃或VB.NET将XPS，OXPS转换为JPG图像

JPG文件之所以出名是因为它们在所有系统环境中均受支持。您可以使用C＃或VB.NET以编程方式将XPS或OXPS文件转换为JPG图像。对于XPS或OXPS到JPG图像的转换，应遵循以下步骤：

加载输入XPS或OXPS文件

初始化JpegSaveOptions对象

指定要渲染的SmoothingMode，Resolution和PageNumbers

保存输出的JPG图像

以下代码显示了如何使用C＃语言将XPS或OXPS转换为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转换为PNG图像

可能需要使用C＃或VB.NET和Aspose.Page for .NET API将XPS或OXPS文件转换为PNG。您需要按照以下步骤将XPS转换为PNG：

加载输入XPS或OXPS文件

初始化PngSaveOptions对象

设置图像分辨率或页面编号为渲染

保存输出的PNG图像

怎么用VB打开电脑的应用程序

用VB打开电脑的应用程序是调用API函数来修改或增加注册表中的值，这样在系统启动时就会自动执行。

Option Explicit

Const REG_SZ As Long = 1

Const HKEY_LOCAL_MACHINE = H80000002

'创建注册表项

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

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

phkResult As Long) As Long

'设置注册表项中的值

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

'打开注册表中的项

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

'获取子项

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设置默认路径程序

Text1.Text = "C:\Program Files\****\****.exe"'请修改自动启动程序的路径。

End Sub

Private Sub Command1_Click()

'设置开机启动

Dim hKey As Long

Dim myexe As String

Dim myint As Integer

myint = Len(Text1.Text) - InStrRev(Text1.Text, "\")'取得应用程序文件名字符串的字节数，含扩展名

myexe = Right(Text1.Text, myint)'取得应用程序文件名字符串，含扩展名

If Text1.Text  "" Then

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

'"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run"是注册表中的路径

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

'myexe是上面注册表路径中添加的项，Text1.Text是该项的数据。

End If

MsgBox "设置完成,请您重新启动计算机!"  vbCrLf  vbCrLf  "你设置的程序将开机自动执行！", 64, "提示信息"

End Sub

Private Sub Command2_Click()

'查找自动启动的程序

DHK1.DialogTitle = "选择程序"'注意打开对话框的名称是DHK1

DHK1.Filter = "应用程序(*.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做安装包，安装后自动运行程序

1 新建安装部署项目

打开VS2005，点击新建项目，选择：其他项目类型-安装与部署-安装向导(安装项目)，然后点击确定。

2 安装向导

关闭后打开安装向导，点击下一步，或者直接点击完成。

3 开始制作

安装向导完成后即可进入项目文件夹：

双击"应用程序文件夹"在右边的空白处右击，选择添加-文件，将你的做的应用程序的可执行文件和相应的类库和组件添加进来。然后右击你的文件，创建快捷方式，然后把快捷方式分别复制或剪切到左边的"用户的'程序'菜单"和"用户桌面"中。这样安装程序安装完成后会在 "开始-所有程序"和"桌面"上生成程序的快捷方式。也可以直接在"用户的'程序'菜单"和"用户桌面"相应目录下新建快捷方式，然后定位到你的文件。

然后右击左边的"应用程序文件夹"打开属性对话框：将属性中的"DefaultLocation"的路径中的"[Manufacturer]"去掉，不然的话做好的安装程序默认安装目录会是"C:\Program Files\你的用户名\安装解决方案名称"；

然后打开解决方案管理器，右击你的解决方案名称，选择属性：打开的属性页中，选择"系统必备"， 在打开的系统必备页中，在"指定系统必备安装组件的位置"中选中如下选择项：从与我的应用程序相同的位置下载系统必备组件。选上以后，在生成的安装文件包中包含.NetFramework组件 。好了，这样就完成99%了，然后点击"生成-生成解决方案"，生成成功!

我以前参考过的，希望对你有帮助。

安装完成后自动启动程序

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",完成添加.

VB.NET语言怎么打开.exe文件

用shell函数，具体: 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 默认的QQ路径是C:\Program Files\Tencent\QQ\bin\QQ.exe

本文标题：vb.net打开应用程序 vbs打开应用程序
分享URL：http://kswjz.com/article/hgdeeo.html