重庆分公司,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net默认程序,vb运行程序

vb.net,知道一个文件的扩展名,如何通过这个扩展名获得该文件的默认打开方式(即默认打开程序)?

如没有现存的办法的话只能读取注册表,以txt文件为类:

成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站制作、网站建设、朝阳网络推广、小程序制作、朝阳网络营销、朝阳企业策划、朝阳品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供朝阳建站搭建服务,24小时服务热线:18980820575,官方网址:www.cdcxhl.com

HKEY_CLASSES_ROOT\.txt   '在这个地址有个默认属性值是:txtfile

HKEY_CLASSES_ROOT\txtfile\shell\open\command   '这里的默认属性值txtfile的关联程序:%SystemRoot%\system32\NOTEPAD.EXE %1

我暂不了解vb.net读注册表函数(刚在学),以vbs为类:

Dim WshShell

Set WshShell = WScript.CreateObject("Wscript.Shell")

Dim Ext

ext= WshShell.RegRead ("HKEY_CLASSES_ROOT\.mp3\") '这里的扩展名.mp3可以改成其它的看看

MsgBox WshShell.RegRead ("HKEY_CLASSES_ROOT\"  ext  "\shell\open\command\")

vb .net 程序怎么默认打开txt记事本文件?

楼下的根本不对。exe右键是没有“打开方式”的,也没必要因为这个问题而还原系统。把exe设置为直接运行,方法:新建一个txt文件,输入ftype exefile="%1" %* ,保存,把扩展名改为bat,双击这个文件,就好了。

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的问题,如何将一个引用,做为默认设置?

楼上的Imports System.Windows.Forms 方法欠妥...因为项目并未引用这个DLL,所以无法引入这个命名空间.

为了解决你的问题, 需要使用自定义项目模板, 方法如下.

1.建立一个空的 控制台应用程序, 可采用默认名字.

2.不要对这个项目的其他文件做修改,仅在"项目-加添引用"中添加system.windows.forms.

3.全部保存项目.

4.{关键}在菜单中: 文件-导出模板.

选择"项目模板",(下面的combobox默认选择了当前打开的项目).点下一步.

填写模板名称和说明, 建议起英文名称, 我这里示例的命名为"带Form的控制台".选中复选框.

此时, 你的上述动作就被记录为一种新的项目模板了. 这是单击新建项目, 就可以在"我的模板"中找到了,用这个模板建立项目, 就能满足你的要求, 如图片所示.

希望对你有帮助

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

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

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

vb.net如何打开一个新窗体后关闭上一个窗体

1、如果上一个窗体是程序的主窗体(默认是程序的第一个窗体),

则不能关闭这个窗体,只能隐藏(Me.Hide())这个窗体,否则整

个程序就被关掉了。

2、如果上一个窗体不是程序的主窗体,可以用Me.Close()

关闭。


本文题目:vb.net默认程序,vb运行程序
标题网址:http://cqcxhl.cn/article/dsgeges.html

其他资讯

在线咨询
服务热线
服务热线:028-86922220
TOP