一道VB编程题
编写一个类似于“回收站”的程序。用适当的图形作为“回收站”，程序运行后，把窗体上的其他的对象拖到“回收站”上，松开鼠标键后，显示一个信息框，询问是否确定要把该对象放入“回...
编写一个类似于“回收站”的程序。用适当的图形作为“回收站”，程序运行后，把窗体上的其他的对象拖到“回收站”上，松开鼠标键后，显示一个信息框，询问是否确定要把该对象放入“回收站”，此时点击“是”按钮即放入“回收站”，对象从窗体上消失；单击“否”按钮则对象仍回到原来的位置。
展开
展开全部
(1)、在窗体上画个命令按钮和一个图像框。
（2）、设置图片框的PICTURE属性和命令按钮的DRAGICON属性。
窗体的LOAD事件：
image1.picture=loadpicture("...\......\.......")
command1.dragicon=loadpicture(".....\......\")
(3)、用mousedown事件过程打开拖拉开关的代码
command1.drag 1
(4)、关闭拖拉开关 并产生dragdrop事件
command1.drag 2
(5)、编写dragdrop事件过程
source.move(x-source.with/2).(y-source.height/2)
(6)、编写图像框的drogdover事件过程
x=msgbox("是否放入回收站",vbyesno,"选择")
if x=6 then
command1.visible=false
endif
完了.......
（2）、设置图片框的PICTURE属性和命令按钮的DRAGICON属性。
窗体的LOAD事件：
image1.picture=loadpicture("...\......\.......")
command1.dragicon=loadpicture(".....\......\")
(3)、用mousedown事件过程打开拖拉开关的代码
command1.drag 1
(4)、关闭拖拉开关 并产生dragdrop事件
command1.drag 2
(5)、编写dragdrop事件过程
source.move(x-source.with/2).(y-source.height/2)
(6)、编写图像框的drogdover事件过程
x=msgbox("是否放入回收站",vbyesno,"选择")
if x=6 then
command1.visible=false
endif
完了.......
参考资料： Visual Basic程序设计教程题解与上机指导
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程，scratch和python也是其中的一种，属于入门级编程，以其简单生动的画面获得无数学生的喜爱，深圳市创客火科技有限公司是一家做教育无人机的公司，旗下有编程无人机，积木无人机及室内外编队，每款飞机含有...
点击进入详情页
本回答由--提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
