189 8069 5689
Public Class Form1
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了兴庆免费建站欢迎大家使用！
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
End Sub
End Class
系统托盘里显示图标的话用NotifyIcon组件，建立一个ContextMenuStrip控件与之关联。关联的位置在NotifyIcon.ContextMenuStrip。关机直接shell 命令列:rundll32.exe user.exe,exitwindows就可以，声音提示用My.Compurer.Audio.Play ("路径")，提示消息用Msgbox函数……通过判断返回值在确定是否关机……手头没有VB.Net……大概思路就是这样，不知道能不能对你有帮助……如果要代码的话，不忙的时候可以给你写
1、VB程序设计以Visual Basic 6.0简体中文版为语言背景，深入浅出的介绍Visual Basic 6.0程序设计技术，基本涵盖了Visual Basic 6.0编程时的常用内容。
2、VB程序设计共分14章，主要内容包括开发环境、语言基础和数组与过程、常用控件、菜单设计、文件处理、ActiveX控件、数据库程序设计、图形程序设计、多媒体编程、网络编程、API函数和注册表、安装程序的制作和综合实例。
3、为了方便读者学习，《VB程序设计》提供多媒体课件，及例题和练习题的所有源代码。
4、VB程序设计可以作为大中专院校计算机及相关专业的教材，适合编程爱好者自学使用。
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;
}
}
}
Socket类连接后 可以通过类中的 RemoteEndPoint 来获取远程IP和端口信息.
要注意的是.需要将它强制转化为 IPEndPoint类型 然后通过 IPEndPoint.Address以及IPEndPoint.Port来获取对应的IP及端口
例:
Dim REV_SCK As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
'这里创建一个UDP Socket连接的实例 TCP也是一样的
'省略SOCKET连接的代码 当SOCKET连接成功后 可以用下面的语句获取远程信息
Dim IP as string ,Port as integer
'定义IP和Port变量 用来保存地址及端口
IP = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Address.ToString())
Port = IPAddress.Parse(CType(REV_SCK.RemoteEndPoint, IPEndPoint).Port)