基于微软。NET Framework之上的面向对象上的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。编译以后生成的可执行文件被称为Assembly，即程序集。
成都创新互联公司专注于盱眙网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供盱眙营销型网站建设，盱眙网站制作、盱眙网页设计、盱眙网站官网定制、小程序定制开发服务，打造盱眙网络公司原创品牌,更为您提供盱眙网站排名全网营销落地服务。
版本号是VisualBasic7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和java类似。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim UserID As String = Environment.GetEnvironmentVariable("USERNAME") '获取用户名
MsgBox(UserID)
End Sub
用Environment类中的GetEnvironmentVariable方法。
保存用户名的环境变量是USERNAME。
比如
string username=Environment.GetEnvironmentVariable("USERNAME")
首先要把Label1的属性Visible设置为false，然后双击button1输入：
Dim rs As New Data.DataView()
Dim rs As New DataView()
conn.DataFile = "users.mdb"
conn.SelectCommand = "select top 1 * from users where name='" txtUserName.Text "'and pass='" txtPassword.Text "'"
rs = conn.Select(DataSourceSelectArguments.Empty)
if rs.Count Then
Label1.Visible=true
Session("name") = Trim(txtUserName.Text)
Session("pass") = Trim( txtPassword.Text)
MsgBox("登录成功", MsgBoxStyle.SystemModal)
Response.Redirect("")
Else
MsgBox("对不起！用户名和密码不正确，请重新输入。", MsgBoxStyle.SystemModal)
End If
如果底层传输协议使用的是TCP协议的话
是保持连接的
如果是UDP是不保持连接的！
Button类如果不显示，看看你的命名空间是否包含进来啦!因该是这个名字空间System.Windows.Forms
问题不算很清楚，你要做的是单机单用户程序还是网络多用户程序？
可以建一个全局变量，当用户登录的时候你肯定是要比对数据库信息的，登录成功的时候就把用户名传到该全局变量里就行了。
