帮忙想VB作业

来源：百度知道 编辑：UC知道 时间：2024/05/29 03:24:19
还差三个窗体就完成了，就是不知道要做什么，大家帮我想想吧。

要代码少，功能多的，或者不用功能，需要好看就行。。做好了，发代码看

看。

我的QQ：270681596
只要功能或者好点就行了。大家帮忙下。。

做好了。我给200分。

不知道你能不能听得进去？凡是靠自己。

如果是别人帮你做，那么即使得了荣誉，

也不属于你自己的。切记。靠自己。

你的发来看看先啊...

我有好N个 ·不一样内容的窗体

做个可以放音乐的吧，添加一个WMA部件就行了还有么就是做一个文本读取文件

既然这样的话，！！！
(另类的鼠标移动效果)
Private Sub Form_Load()

Me.AutoRedraw = True
CurrentX = 280: CurrentY = 150
Me.Print "Exit"
Me.Caption = "请将鼠标移近文字观察效果"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If X <= 900 And X >= 100 And Y <= 500 And Y >= 100 Then
End
End If
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If X <= 900 And X >= 100 And Y <= 500 And Y >= 100 Then
Me.Caption = "左键单击按钮退出程序"
Line (100, 100)-(100, 400), vbWhite
Line (100, 100)-(800, 100), vbWhite
Line (100, 400)-(800, 400), vbBlack
Line (