问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501
你好,欢迎来到懂视!登录注册
当前位置: 首页 - 正文

VB当中有关Drag此拖拽系统的一个问题,我很菜鸟的,求大侠帮帮忙啦

发布网友 发布时间:2024-10-20 16:08

我来回答

2个回答

热心网友 时间:2024-11-21 10:58

程序试了,是没有大问题的。
image2的dragmode属性设置为0。
第二个过程,试试这样:
Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Top = Y + Image2.Top
Image2.Left = X + Image2.Left
Image2.Visible = True
End Sub

热心网友 时间:2024-11-21 11:02

算法不精确。改善了一下。
Dim ctX As Single, ctY As Single
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ctX = X: ctY = Y
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseKj Image1, Button, Shift, X, Y '在窗口范围内拖动 Image1
End Sub
Private Sub Form_Load()
Me.Caption = "运行时在窗口范围内拖动控件Image1"
Image1.Picture = Me.Icon
End Sub
Private Sub MouseKj(Kj As Object, Button As Integer, Shift As Integer, X As Single, Y As Single)
'在窗口范围内拖动控件Image1 Kj
Dim x1 As Single, y1 As Single
If Button = 0 Then Kj.MousePointer = 5
If Button <> 1 Then Exit Sub
x1 = Kj.Left + X - ctX: y1 = Kj.Top + Y - ctY
If x1 < 0 Then x1 = 0
If x1 > Me.ScaleWidth - Kj.Width Then x1 = Me.ScaleWidth - Kj.Width
If y1 < 0 Then y1 = 0
If y1 > Me.ScaleHeight - Kj.Height Then y1 = Me.ScaleHeight - Kj.Height
Kj.Move x1, y1
End Sub
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
古天乐的资料!!! 胆结石可以喝柠檬蜂蜜水吗 柠檬对结石有什么作用 胆结石可以吃柠檬吗 江西有哪些风景 行政处罚对象能不能是分公司 分公司是否能作为被行政处罚的对象 分享20份亚马逊运营过程中常用邮件回复模板 2024年上半年自考报名时间 22年辽宁省自考延期怎么退费 ...给我发来视频聊天,为什么我当时看不到?过后又会看到未接显示... 如何禁止ie的“查看---源文件”? 华硕笔记本X43BE/K43BE有几个内存插槽? 山西省吕梁市交口县桃红坡乡邮编是什么? 华硕a53s 和华硕x43b这2个电脑相比哪个好? 华硕X43BY X43EC50BY-SL笔记本怎么样 西交子村位于哪个市 我买了个华硕X43B才7天,现在玩不起DNF。我想换个联想的怎么办。 惠东八仔粄做法配方 女人左手有佛眼姻缘好,免费生辰八字结婚择日 手相中佛眼纹在哪 真正的佛眼纹手相 哈尔滨高一文科学习方法 框架梁钢筋长度计算方法对吗? 哈尔滨学府4尚上火锅的装修成本? 请问景德镇到厦门市湖里区钟宅村自驾要多少小时。 尚学家教网分布站点 哈尔滨学之尚怎么样 世界上前10首钢琴曲是那些? 千千静听的官网是什么? 千千静听的官网是什么 ...的电影,90年代的。女主角睡觉在床底下,吃饭用勺子。电影的开头剧情是... 华硕X43BR显卡超频 ...我这边没反应,过后才发现有未接语音或者视频聊天,这是怎么回事?_百 ... 社会体育的毕业生有什么出路? 社会体育专业的大学生,有哪些就业岗位和出路 吉子沟村属于哪里 社会体育专业的学生大学毕业后有什么出路,有什么高薪的工作? 冯家港村车牌号是多少 诺基亚N79沈阳现在多少钱 ...button2。怎么实现2秒后b1不可按,再两秒b1可按,两秒后b2不可按... ...实现点下button1后该button1被禁用,点下button2后button1恢复可以使用... ...如何每两秒循环 执行一次 Button1.Click;Button2.Click;两个按钮_百... 在游久网下载的侠盗猎车罪恶都市怎么安装 侠盗飞车4 罪恶都市存档下载完了怎么弄 最好是QQ教 一定给分 谢谢 希 ... 波轮式和滚筒式洗衣机有什么区别? ...希望高手帮忙解答一下,感激不尽!!!急急急急 才学java 遇到个程序问题 总提示找不到符号。请高手帮忙解决。_百度知 ... java小程序运行问题?恳请高手帮忙! ...TECHNOLOGY 极享科技注册过商标吗?还有哪些分类可以注册? ...听说只要身份证可以贷款是真的吗,无担保人但有营业执照只有半年...
  • 焦点

最新推荐

猜你喜欢

热门推荐