VS 安装项目 :通过文本框得到用户输入 以及 安装后运行某程序(如打开C://a.html)

1.通过VS 建立一个Web站点 并编辑

2.在解决方案 加入 新建项目-安装项目(如Setup1)

3.通过 安装项目(如Setup1) 的右键-添加-项目输出
  将第1步中建立的内容文件加入

4.通过 解决方案 加入 一个类库

5.将类库自动生成的Class.cs删除
  加入 “安装程序类”(如Installer1.cs)

6.在这个Installer1.cs中 可以对一些安装事件 进行重载
  如
  protected override void OnAfterInstall(System.Collections.IDictionary savedState)
  {
      base.OnAfterInstall(savedState);
      System.IO.File.Create("C://test.txt");
  }
7.在安装项目Setup1中通过
  右键-视图-用户界面-启动 加入"文本框"

8.设置该 文本框 的属性:
  例如:
  BodyText :数据库相关信息:

  Edit1Label : 数据服务器IP
  Edit1Property:EDITA1
  Edit1Value:
  Edit1Visible:True

  Edit2Label : 数据库名称
  Edit2Property:EDITA2
  Edit2Value:
  Edit2Visible:True

  Edit3Label : 登陆用户
  Edit3Property:EDITA3
  Edit3Value:
  Edit3Visible:True

9.在安装项目Setup1中通过
  右键-视图-自定义操作-安装 添加“自定义操作”
  选择主输出来自ClassLibrary1(活动)
  即将第4步所加入的类库的主输出加入

10. 在自定义操作的安装下 的 刚才所加入 的
   主输出来自ClassLibrary1(活动)
   右键 - 属性 - CustomActionData
   输入相关内容 如
   /DBIP=[EDITA1] /DBNAME=[EDITA2]

11. 编辑类库下的Installer1.cs文件的代码
   如 得到 刚才用户在对话框处的输入
   public override void Install(System.Collections.IDictionary stateSaver)
   {
       base.Install(stateSaver);
       string strDBIP = this.Context.Parameters["DBIP"];
       string strDBName = this.Context.Parameters["DBNAME"];
       ......         
   }

12.安装完成前 打开某文件
   protected override void OnCommitted(System.Collections.IDictionary savedState)
   {
       base.OnCommitted(savedState);
       System.Diagnostics.Process a = new System.Diagnostics.Process();
       a.StartInfo.FileName = "C://a.html";
       a.Start();
   }

13.编译类库 编译安装项目
   利用生成的安装项目 进行相关安装

以上内容 详细可参阅VS相关帮助文档

VBA(Visual Basic for Applications)是Microsoft Office套件的一种宏语言,可以用来创建自动化脚本来扩展Excel等应用程序的功能。为了在Excel创建一个简单的计算器,你可以使用文本框(TextBox)用于显示用户输入,以及四个命令按钮(CommandButton)分别对应加(+)、减(-)、乘(*)和除(/)操作。 以下是实现这个计算器的基本步骤: 1. **设计界面**: - 新建一个工作表,添加一个TextBox(例如命名为txtInput),用于输入数字。 - 添加四个CommandButton,分别为“+”、“-”、“*”和“/”,并设置它们的名称,如btnAdd、btnSubtract、btnMultiply、btnDivide。 2. **编写事件过程**: - 对于每个按钮,双击它打开VBA编辑器,然后会自动生成事件过程(如Click事件)。 - 例如,对于btnAdd,可以这样编写: ``` Private Sub btnAdd_Click() Dim num1 As Double, num2 As Double, result As Double num1 = Val(txtInput.Value) num2 = Val(TextBox2.Value) '假设第二个文本框用于显示另一个数 result = num1 + num2 txtInput.Value = result End Sub ``` - 类似的,其他三个按钮的事件处理也类似,只是计算公式会改变。 3. **处理输入验证**: - 可能需要检查用户是否输入了有效的数值,如果输入的是非数字,则可以弹出提示或清空输入。 4. **处理除法零错误**: - 当进行除法运算时,需要检查除数是否为0,以避免运行时错误。 记得保存你的VBA模块,并关闭编辑器回到Excel界面测试计算器功能。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值