编一程序,单击“加边框”按钮,在标签框四周加上边框:单击隐藏按钮,使标签框不可见;单击移动按钮,使标签框从当前位置向右移动500Twip,向下移动600Twip
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