Question

用VB6.0做出来这样一个小程序 速求 啊

编一程序，单击“加边框”按钮，在标签框四周加上边框：单击隐藏按钮，使标签框不可见；单击移动按钮，使标签框从当前位置向右移动500Twip，向下移动600Twip

Answer 1

Private Sub Command1_Click()
Label1.BorderStyle = 1’加边框
End Sub

Private Sub Command2_Click()
Label1.BorderStyle = 0‘隐藏
End Sub

Private Sub Command3_Click()
Label1.Left = Label1.Left + 500’移动
Label1.Top = Label1.Top - 600
End Sub

追问

Label1.BorderStyle = 0‘隐藏
这句貌似是有点问题把 没法运行

追答

Label1.BorderStyle = 0‘隐藏
这句标注不对，代码对的
把代码后面去掉就行

追问

但是我改了和上面的一样形式的标注还是不行的啊 显示的错误时这条语句是黄色的 本人刚接触VB 。。。。。。

追答

Label1.BorderStyle = 0‘隐藏
隐藏的前面那个单引号我用中文的，错了，改成英文状态下输入就好
试过了，没问题
再发一遍
Private Sub Command1_Click()
Label1.BorderStyle = 1 '加边框
End Sub

Private Sub Command2_Click()
Label1.BorderStyle = 0 '隐藏
End Sub

Private Sub Command3_Click()
Label1.Left = Label1.Left + 500 '移动
Label1.Top = Label1.Top - 600
End Sub