简单的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;
分享名称：简单的vb.net程序,VBNET编程宝典
转载来于：http://abwzjs.com/article/hssjso.html
