vb.net程序表达 VB语言程序

vb.net中表达式的分类？

表1

成都创新互联公司是一家朝气蓬勃的网站建设公司。公司专注于为企业提供信息化建设解决方案。从事网站开发，网站制作，网站设计，网站模板，微信公众号开发，软件开发，小程序开发，十载建站对咖啡厅设计等多个领域，拥有多年的网站制作经验。

名字：人员信息。属性：姓名，电话，地址，关系类别ID。

表2

名字：关系表。属性：关系类别ID，关系名字。

select

T1.*，T3.关系名字

from

人员信息

T1,关系表

t3

where

T1.关系类别ID

=

T3.关系类别ID;

用vb.net编写程序

系统托盘里显示图标的话用NotifyIcon组件，建立一个ContextMenuStrip控件与之关联。关联的位置在NotifyIcon.ContextMenuStrip。关机直接shell 命令列:rundll32.exe user.exe,exitwindows就可以，声音提示用My.Compurer.Audio.Play ("路径")，提示消息用Msgbox函数……通过判断返回值在确定是否关机……手头没有VB.Net……大概思路就是这样，不知道能不能对你有帮助……如果要代码的话，不忙的时候可以给你写

vb.NET中多个类似代码如何用循环表达?

首先写一个事件响应方法：

Protected Sub dcwgl_zx_f5_TextChanged(ByVal sender As Object, ByVal e As EventArgs)

'一些代码

'如果你想使用这个响应事件的控件，用CType(sender,TextBox)表达

'例如Dim thisTextBox As TextBox = CType(sender, TextBox)

End Sub

用如下代码就可以绑定事件了：

AddHandler xxTextBox.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

推荐你动态创建这些控件并绑定事件（通常在Form的Load事件中）。假设你要创建x个TextBox：

For i = 0 To x

Dim tb As New TextBox()

'把它加入父容器的控件集合

Form1.Controls.Add(tb)

'绑定事件

AddHandler tb.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

Next i

你也可以静态添加这些TextBox，当然事先要把它们放入某个容器中，比如GroupBox1，再绑定事件（在Load事件中）：

For Each con As Control In GroupBox1.Controls

If TypeOf con Is TextBox Then

Dim tb As TextBox = CType(con,TextBox)

AddHandler tb.TextChanged, AddressOf dcwgl_zx_f5_TextChanged

End If

Next