VB题目，会的来看下啊。本人QQ464050932

来源：百度知道 编辑：UC知道 时间：2024/09/23 11:00:44
编写一个类似于“回收站”的程序。用适当的图形作为“回收站”，程序运行后，把窗体上其他的对像拖到“回收站”上，松开鼠标键后，显示一个信自框，询问是否确实要把该对像放入“回收站”，此时单击“是”按钮即放入“回收站”，对像从窗体上消失；单击否对像刚则还回到原来的位置。
我来补充下：要在窗体上画两个图片框，一个命令按钮，一个标签

在窗体内添加Image1 和 Image5 控件

Private Sub Image1_DragDrop(Source As Control, X As Single, Y As Single)
If Source.Tag = "Image5" Then
Image1.Picture = LoadPicture(App.Path + "\图标 2.ico")
s = MsgBox("是否要把该对象放入“回收站”?", 4, "VBmgc")
If s = 6 Then
Image5.Visible = False
End If
End If
End Sub

Private Sub Image1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
If Source.Tag = "Image5" Then
Image1.Picture = LoadPicture(App.Path + "\图标 1.ico")
End If
If State = 1 Then
Image1.Picture = LoadPicture(App.Path + "\图标 2.ico")
End If
End Sub

你要写的是什么？在程序里实现还是要和WINDOWS交互？