7490
社区成员
- 全部
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)里的三个参数source、X、Y各代表什么意思？
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)里的三个参数source、X、Y各代表什么意思？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
happyjessica 2003-05-14
我要拖动的是image控件，那摸x,y各代表控件的什么坐标？
叶帆 2003-05-14
Source 你拖动的控件，你可以直接引用，如你知道是CommandBox
也可以这样使用
dim cm as CommandBox
set cm=Source
cm.top=???
X,Y－指拖动时的座标
也可以这样使用
dim cm as CommandBox
set cm=Source
cm.top=???
X,Y－指拖动时的座标
vb dragdrop事件调用后，编译运行后程序能拖动但拖动后picturebox控件并没移动过去，请帮我看看 请看看是什么问题 Source.Move (X - Source.Width / 2), (Y - Source.Height / 2) End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Picture1.Drag 1 End ...
餐馆：Jogo resta 1，contémapenas 13 linhas decódigo:)-源码 Private Sub imgGoti_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single) If (imgGoti(Index).Picture <> 0) _ Or Abs(Source.Index - Index) <> 2 _ And Abs(Source.Index - ...
VB备忘录（13） 鼠标键盘 鼠标 改变光标 LoadCursorFromFile 载入光标图形，返回一个句柄。（这个句柄用SetClassLong，可以将其设置为某个对象中的光标） DestoryCursor 卸载光标句柄，用默认 SetClassLong 设置目的...Private Declare Fun
VB6如何实现准确截取部分图像内容（框选）？ DragDrop(Source As Control, X As Single, Y As Single) Source.Move X + cx, Y + cy Picture2.Cls Picture2.PaintPicture Picture1.Picture, 0, 0, Shape1.Width, Shape1.Height, X, Y, Shape1.Width, Shape1....
如何在picturebox中实现文本框移动并保证文本框不能重叠？大家帮忙，谢谢啊！ X + Text4.Left oldY = Y + Text4.Top End Sub Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) MoveX = Source.Left + X - oldX MoveY = Source.Top + Y - oldY If MoveX ...
VB版数字排序拼图小游戏 Private Sub Label1_DragDrop(Source As Control, x As Single, y As Single) Dim Label1X As Integer '记录空白控件Label1左上角X的位置 Dim Label1Y As Integer '记录空白控件Label1左上角Y的位置 Dim flag...
如何优化自由移动Picturebox中的Image？ DragDrop(Source As Control, X As Single, Y As Single) Image1.Picture = Source Image1.Move (X - dragx), (Y - dragy) End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single...
急用，谢谢啊 Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y End Sub C) Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y End Sub D) B)...
请问这个判断有何作用？ 4000 For I = 0 To 3 imgSoldier(I).Enabled = True Next I End Sub Private Sub imgGuanyu_Click() End Sub Private Sub picFrame_DragDrop(Source As Control, X As Single, Y As Single) Source.Move (X - M_...
谁能帮我解释一下，谢谢！ 1 Label1.ForeColor = vbGreen Label2.ForeColor = vbGreen Label1.FontSize = 9 Label2.FontSize = 9 End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub ...
移动控件的例子 First, about form1在窗体上设置几个PictureBox控件 把要拖动的对象的DragMode设置成1-automatic(0-Manual)Private Sub Form_DragDrop(Source As Control,X As Single,y As Single) form1.picture=source....
非常不错ALV GRID CONTROL 教材 An Easy Reference for ALV GRID CONTROL Table of Contents Purpose..............................................
一种低成本构建有线电视用户地理信息系统的方法 一种低成本构建有线电视地理信息系统的方法 欧剑平 有线电视用户地理信息系统是综合利用计算机图形、数据库、网络等技术完成有线电视用户地理信息的录入、编辑、查询、统计等功能的系统，能对用户所处的小区、楼栋...
VB 函数参考一（A-G） VB 函数参考一（A-G） <!-- p {line-height:150%; text-indent:2em} --> Abs Activate Asc Atn CBool CByte CCur CDate CDbl CDec Change Chr CInt Click CLng ...C
为什么我的程序一运行完引导窗体就死机？ 窗体LOAD完程序就定机了 不动了 请问高手怎么回师？？？ FORM1代码： Private Sub Form_Activate() Timer1.Enabled = ... X As Single, Y As Single) End Sub Private Sub Timer1_Timer() Unload Me Form1.Show End Sub
高手快来帮帮忙！！！！！ Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) If Flag = 1 Then Image1.Left = X - Image1.Width / 2 Image1.Top = Y - Image1.Height / 2 End If End Sub 以上实现拖动效果，但是...
这是为什么？SHIT！！ Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single) If Flag = 1 Then Image1.Left = X - Image1.Width / 2 Image1.Top = Y - Image1.Height / 2 End If End Sub 以上实现拖动效果，但是...
整理机器时发现，偶在以前参与的一些贴子！特此放上来！ TreeView中如何选中一个父节点同时选中所有的子节点和孙节点。。。----------------------------------------------------------------------------Author:lihonggen0Date:2003-1-20功能：选择Treeview节点下所有...
谁能帮我修改下这代码啊 - Val(Text1(16).Text) End If For i = 0 To a - 1 Text1(i).Enabled = False Next i End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Text1_KeyPress...
Win32 API ------------------------------------------------------------------------ WIN32API.TXT -- Win32 API Declarations for Visual Basic Copyright (C) 1994-98 Microsoft Corporation
用Visual Basic编程建立自己的回收站 2001年02月12日 14:27:00 用Visual Basic编程建立自己的回收站http://tech.sina.com.cn 2000/09/29 软件世界 王福生 杨洪勇 在Windows 95中删除一个文件或文件夹，只需用鼠标拖动文件(夹)到回收站，然后松开...
VB编程技巧 VB编程技巧几例 现在加入 http://14.66.102.214 VB5 引入枚举变量，使用它，我们可以显著地改变应用程序的易读性： Public Enum TimeOfDay Morning = 0 Afternoon = 1 Evening = 2 End Enum Sub Main() ...
Code Project精彩系列（转） Code Project精彩系列（转） Applications Crafting a C# forms Editor From scratch ... 建立一个类似C#的环境, 实现控件拖拉，属性 Packet Capture and Anal...
用VB实现拖放功能 拖放是用鼠标拖动一个文件到其它对象的活动。在图形操作过程中，拖放是最常用的功能之一，下面我们来看看怎样用VB实现拖放功能。 首先介绍与拖放有关的控件： 1.属性:DragMode决定拖动操作的初始化是人工方式还是...
JavaEE详解-全程实战案例 肖老师这套课程：抛弃传统的知识点教学模式，采用全程案例教学模式，通过网上书城项目，把所有的JavaEE需要掌握的重要知识点都融入项目中，使学员可以掌握实用的知识，同时获得佳实践. 主要涉及内容有：多表查询、翻页、多条件查询、文件上传/下载、过滤器、监听器、AJAX、事务处理等。 采用案例教学模式,通过网上书城项目,把所有的JavaEE需要掌握的重要知识点都融入项目中
敏捷软件开发－原则、模式与实践.pdf 本书讲授了一些原则、模式以及实践，它们可以帮助软件开发人员在追求美的程序、设计以及团队的道路上迈出第一步。本书探索了基本的设计原则，软件设计结构的通用模式以及有利于团队融为一个有机整体的一系列实践。本书包含了许多代码，仔细研读这些代码是学习本书所教授的原则、模式及时间的最有效方法
juniper路由器学习资料 从网络搜集的关于juniper的资源，包含
fru-mx960-acoustic.pdf
fru-mx960-cable-manager.pdf
JNCIA_学习指南中文.pdf
Juniper_EX交换机中文操作手册V1.0.pdf
Juniper_MX_路由器介绍.pdf
Juniper_MX960配置模板v1.2.docx
Juniper_netscreen.ppt
Juniper路由器（M10i）配置手册.pdf
Juniper路由器命令行配置手册.pdf
Juniper路由器实验手册.pdf
junos-cli.pdf
junos-release-notes-13.3.pdf
mx960-hwguide.pdf
mx960-install-quick-start.pdf
MX960操作维护介绍.pdf
MX960路由器操作手册.pdf
mx-series-line-card-guide.pdf
