Question

vb 用command1改变label1的borderstyle的属性

vb 用command1改变label1的borderstyle的属性。即鼠标点击一下，标签有边框，再点一下，标签边框消除，再点一下，边框又出现，以此类推。

我知道可以用判断语句。我想问的是能用那些判断语句来写？怎么写？以及用最短的代码写？？

vb新手鞠谢！~ ^_^

Answer 1

Private Sub Command1_Click()
If Label1.BorderStyle = 0 Then Label1.BorderStyle = 1 Else Label1.BorderStyle = 0
End Sub

追问

哥们。谢谢。刚刚自己用if语句写出来了
再问下。还有其他的判断语句么？怎么写？

追答

Private Sub Command1_Click()
Select Case Label1.BorderStyle
Case 0
Label1.BorderStyle = 1
Case 1
Label1.BorderStyle = 0
End Select
End Sub

Answer 2

Private Sub Command1_Click()
Label1.BorderStyle = 1- Label1.BorderStyle
End Sub