问一个VB ，，Alignment能弄成按一下，标签的文字左对齐，再按一下右对齐，再按一下居中，这样循环下去吗

Question

标签名.Alignment = 0/1/2。  这个后面的1和2好像没有也是一样的，是怎么回事 。。  能弄成按一下命令按钮，文字左对齐，再按一下居中，再按一下右对齐，这样循环吗，

Answer 1

Private Sub Label1_Click()
    If Label1.Alignment = 0 Then
        Label1.Alignment = 1
    ElseIf Label1.Alignment = 1 Then
        Label1.Alignment = 2
    Else
        Label1.Alignment = 0
    End If
End Sub天狼工作室
http://www.j2soft.cn/

Answer 2

Private Sub Command1_Click()
With Label1
    Select Case .Alignment
    Case 0
     .Alignment = 2
    Case 2
    .Alignment = 1
    Case Else
    .Alignment = 0
    End Select
End WithEnd Sub

Answer 3

Private Sub Command1_Click()
    '左->中->右->左->中->右.....
    Label1.Alignment = (Label1.Alignment + 2) Mod 3
End Sub

Answer 4

2楼的那些With Label1      Select Case    Case Else      要怎么理解啊，什么意思

Answer 5

3楼的  那里为什么要一个’       后面的Mod是什么意思

Answer 6

mod是取模1 mod 3 =1
2 mod 3 =2
3 mod 3 =0
4 mod 3 =1
5 mod 3 =2
6 mod 3 =0

Answer 7

楼主没有写过那个经典的字母A变成B，B变成C，...，Z变成A的代码吗？
你现在提的这个问题是一样的算法，只不过变化了一下方向而已
A-->Z ....B->A还有，“标签名.Alignment = 0/1/2”是说这个属性可以设置为0，1，2这三个值中的任意一个
不是让你写在一起，那变成除法了，0/1/2结果总是0

Answer 8

我是刚学VB的 ，     '左->中->右->左->中->右.....    还没碰到过，能  说一下 那些怎么用的吗

Answer 9

Private Sub Command1_Click()
    '左->中->右->左->中->右.....
    Label1.Alignment = (Label1.Alignment + 2) Mod 3
End Sub