UC知道VB入门新手问题
来源：百度知道 编辑：UC知道 时间：2024/09/20 20:20:26
……老师布置了点作业……不会……
1）要求单击文本框内，会显示“！”字样，再单击一下窗体，文本清除。
前面显示的部分我打 text1.text="！" 可是不行……还有单击窗体文本清除该怎么编？
2）鼠标移入窗体内要使窗体缩小，移开后停止缩小。（mouse move）
还有，标签框是啥，怎么用hide show属性。
求助~~谢谢
那个……
Private Sub Text1_Click()
text1.text="!"
Private Sub Form_Click()
我试过了，还是不行……。。。
1）要求单击文本框内，会显示“！”字样，再单击一下窗体，文本清除。
前面显示的部分我打 text1.text="！" 可是不行……还有单击窗体文本清除该怎么编？
2）鼠标移入窗体内要使窗体缩小，移开后停止缩小。（mouse move）
还有，标签框是啥，怎么用hide show属性。
求助~~谢谢
那个……
Private Sub Text1_Click()
text1.text="!"
Private Sub Form_Click()
我试过了，还是不行……。。。
Private Sub Form_Click()
Text1.Text = ""
End Sub
Private Sub Text1_Click()
Text1.Text = "!"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.WindowState = 2 Then Exit Sub
If X <> 0 Or Y <> 0 Then
Form1.Width = Form1.Width - 1
Form1.Height = Form1.Height - 1
End If
End Sub
'Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Dim a, b, c, d As Integer
'a = Form1.Width
'b = Form1.Height
'Do While a <> 0
'Form1.Width = Form1.Width - 1
'Form1.Height = Form1.Height - 1
'a = a - 1
'b = b - 1
'Loop
'End Sub
经验证
我电脑上没有VB。。不知道text有没有click..
Private Sub Text1_Click()
text1.text="!"
Private Sub Form_Click()
text1.text=""<