十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
你说的是控件中的字对齐吗?
成都创新互联公司服务项目包括昌黎网站建设、昌黎网站制作、昌黎网页制作以及昌黎网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,昌黎网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到昌黎省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
字对齐是改变控件的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