求助：求高人做个VB小程序，最简单的那种 百分悬赏

来源：百度知道 编辑：UC知道 时间：2024/06/18 06:50:18
RT，需要5个控件，5个事件。不要高深的，越简单越好。
好了给加分，简单的就好，千万别高深了，就是入门级的就行
谢咯
现在就在线等！！！

Private Sub Command1_Click()
'存储文本
Open App.Path & "\c.text" For Append As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Combo1_Change()
If Combo1.List(Combo1.ListIndex) = "条件" Then
Text1.Text = "内容"
End If
End Sub

Private Sub Combo1_LostFocus()
Combo1.AddItem Combo1.Text
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H0&
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbGreen
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbWhite
End Sub