简单的vb.net程序,VBNET编程宝典

vb.net 我想制作一个很简单的程序，希望大神帮我指导！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click

成都创新互联服务项目包括疏附网站建设、疏附网站制作、疏附网页制作以及疏附网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，疏附网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到疏附省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

TextBox1.Text = sender.Text

End Sub

仅供参考~

用VB.NET编写以下程序。

using System;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

public partial class Form1 : Form

{

Timer tm = new Timer();//实例化 timeer 

static int timeS = 0; //设置静态变量记录秒数

TimeSpan ts = new TimeSpan(); //实例化 TimeSpan 

public Form1()

{

InitializeComponent();

}

private void button1_Click(object sender, EventArgs e)

{

tm.Interval = 1000; //设置 timeer 1000毫秒执行一次

tm.Tick += new EventHandler(timeer_Tick); //设置 timeer 运行事件

tm.Start(); // 启用 timeer

}

private void timeer_Tick(object sender, EventArgs e)

{

timeS += 1; //秒数 +1 

ts = new TimeSpan(0, 0, timeS); 

label1.Text = ts.Hours + ":" + ts.Minutes + ":" + ts.Seconds;

}

private void button2_Click(object sender, EventArgs e)

{

tm.Stop();

timeS = 0;

}

}

}

VB.NET程序

dim a as double

dim b as double

if (string.IsNullOrEmpty(txt1.Text) or string.IsNullOrEmpty(txt2.Text)) begin

messagebox.show("请输入数值");

return;

end

if double.TryParse(txt.Text, out a ) begin

else begin

Messagebox.show('文本框1包含非数字')

return;

end

if double.TryParse(txt2.Text, out b) begin

else

Messagebox.show('文本框2包含非数字')

return;

end

Label1.Text = 0.6*a + 0.4*b;