189 8069 5689
你说的是控件中的字对齐吗？
成都创新互联公司服务项目包括昌黎网站建设、昌黎网站制作、昌黎网页制作以及昌黎网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，昌黎网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到昌黎省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
字对齐是改变控件的TextAlign属性，该属性一共有9个属性值，
TopLeft，TopCenter，TopRight，MiddleLeft，MiddleCenter，MiddleRight，BottomLeft，BottomCente，BottomRight，分别对应：上左；上中；上右；中左；正中；中右；下左；下中；下右；
如果你说的是控件对齐窗体的话，那么直接修改控件的Location属性就可以了。比如一个按钮控件实例btn需要位于窗体正中，那么，代码应该写成：
Dim x, y As Integer
x = (Me.Width - btn.Width) / 2
y = (Me.Height - btn.Height) / 2
btn.Location = New System.Drawing.Point(x, y)
单说代码格式的话，没多大变化，只是比VB6书写起来更方便。
比如声明变量的同时可以初始化：Dim a As Integer=12
循环变量可以在循环中直接声明: For n As Integer=1 to 10 Step 2
Continue For和Continue Do/While 语句的引入
数组的初始化也更加方便: Dim num As Integer()={1,2,3}
增加了自运算符和移位运算符：i += 1
等等等等
然后就是比VB6更规范一点(你要说更死板一点也可以）。
比如说所有索引的下标强制从0开始（VB6里可以自己设置的）
调用方法时统一给参数列表加上括号（不像VB6里面存在加括号强制传值这种让新手晕头的特性）
等等等
关键字有一些增减
总之，在语法方面大体上和VB6相同，但又吸收了类C语言的一些方便的地方。
最主要的变化在于VB.NET是完全OOP的
另外一个比较实际的问题就是默认控件的使用和VB6相差很大，需要一定时间才能熟悉
var reg = /;SPLIT(?:(?!;SPLIT)[\s\S])*;SPLIT/g;
var str = "";
str.replace(reg,"");
这种写法在.net 2.0后才出现的，目的是为了减轻程序员的工作量，编译器会自动为你补充完整，如：
public string name{get;set;}
编译器自动生成（可能会更负责更完善）：
private string name;
public string Name
{
get { return name; }
set { name= value; }
}
这种写法在一般时候很好，但是有一种情况你不得不放弃这种写法，那就是你要在里面进行校验的时候，比如set中有运算或者校验之类的，get中有转换等等，这种情况下，你就必须老老实实的写个完整的才可以。
'代码来源：代码街codejie.net
'由于在vb.net里变量名不区分大小写（StuName和stuname是一样的），所以个别变量名需要修改
'在vb.net中,模块级变量的命名原则是以m_开头
Public Class Student
Private m_stuNo As String '学生号字段
Private m_stuName As String '学生姓名字段
Private m_stuAge As Integer '学生年龄字段
Private m_stuAddress As String '学生住址字段
'无参构造方法
Public Sub New()
End Sub
'有参构造方法
Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)
m_stuNo = stuNo
m_stuName = stuName
m_stuAge = stuAge
m_stuAddress = stuAddress
End Sub
'学生号属性
Public Property StuNo() As String
Get
Return m_stuNo
End Get
Set(ByVal value As String)
m_stuNo = value
End Set
End Property
'学生姓名属性
Public Property StuName() As String
Get
Return m_stuName
End Get
Set(ByVal value As String)
m_stuName = value
End Set
End Property
'学生年龄属性
Public Property StuAge() As Integer
Get
Return m_stuAge
End Get
Set(ByVal value As Integer)
m_stuAge = value
End Set
End Property
'学生住址属性
Public Property StuAddress() As String
Get
Return m_stuAddress
End Get
Set(ByVal value As String)
m_stuAddress = value
End Set
End Property
End Class