7487
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
zhangwh6882 2003-10-13
解决了，谢谢楼上的两位，结贴
qiqunet 2003-10-13
'可先手工画一个控件，Visable设置为False，Index设置为0
'若需要多个就用load object(index)来加载，并把它们的visable设置为true；不需要多个就真接把原有的那个的visable设成显示就行了。
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture 移动控件'
SendMessage Command1(Index).hwnd, &HA1, 2, 0&
End If
End Sub
Private Sub Form_Click()
On Error GoTo endsub
For i = 1 To 5
Load Command1(i) '生成控件
Command1(i).Top = Command1(i - 1).Top
Command1(i).Left = Command1(i - 1).Left + Command1(i - 1).Width
Command1(i).Visible = True
Next
Exit Sub
endsub:
End Sub
'若需要多个就用load object(index)来加载，并把它们的visable设置为true；不需要多个就真接把原有的那个的visable设成显示就行了。
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
ReleaseCapture 移动控件'
SendMessage Command1(Index).hwnd, &HA1, 2, 0&
End If
End Sub
Private Sub Form_Click()
On Error GoTo endsub
For i = 1 To 5
Load Command1(i) '生成控件
Command1(i).Top = Command1(i - 1).Top
Command1(i).Left = Command1(i - 1).Left + Command1(i - 1).Width
Command1(i).Visible = True
Next
Exit Sub
endsub:
End Sub
rainstormmaster 2003-10-13
用Controls.Add添加控件
Dim WithEvents mypic As PictureBox
Private Sub Command1_Click()
Set mypic = Controls.Add("VB.PictureBox", "mypic")
mypic.Left = 50
mypic.Top = 50
mypic.Visible = True
End Sub
至于拖放操作，在程序中设置好mypic控件的有关属性后，处理mypic的有关事件即可
注意：
如果是控件数组的话，建议采用：
load 控件数组名(索引)
的方法添加控件
Dim WithEvents mypic As PictureBox
Private Sub Command1_Click()
Set mypic = Controls.Add("VB.PictureBox", "mypic")
mypic.Left = 50
mypic.Top = 50
mypic.Visible = True
End Sub
至于拖放操作，在程序中设置好mypic控件的有关属性后，处理mypic的有关事件即可
注意：
如果是控件数组的话，建议采用：
load 控件数组名(索引)
的方法添加控件
拖放操作 Ultimate Grid具有拖放功能。本教程的目的是说明如何开发具有拖放功能的网格应用程序。使用MFC应用程序向导，启动一个新的项目。项目名为dragex,在向导的步骤1中选择对话框选项。第1步 – 构造一个对话框界面点击...
Window下拖放操作Drag & Drop 全解析 一、基本概念拖放，是指用鼠标拖动的方法，在不同程序的窗口之间、同一个程序的不同窗口之间或同一程序同一窗口的不同控件之间，进行移动、复制和粘贴等操作的技术。拖放操作是在操作系统的帮助下完成的。被拖动的...
QT- Designer 添加继承的控件类 在Qt Designer中添加派生类 我介绍的是基类为QMainWindow的窗体，想要在MainWindow::centralwidget下添加一个派生类，但又不想采用工具栏中添加原有的类型，如Frame、Widget等，比如要添加class SceneView，可以...
实现拖放 Drop 全解析 一、基本概念拖 放，是指用鼠标拖动的方法，在不同程序的窗口之间、同一个程序的不同窗口之间或同一程序同一窗口的不同控件之间，进行移动、复制和粘贴等操作的技术。拖放 操作是在操作系统的帮助下...
控件“树”中多选拖放功能实现 控件“树”中多选拖放功能的实现 发布日期： 2/14/2002 | 更新日期： 6/30/2004 控件”树”（tree）能够清晰地显示所包含数据的继承关系，是一个强有力的控件。但是真正掌握并能运用CTreeCtrl类的众多...
qt实现自定义控件可以实现鼠标拖动控件及拉拽 看到一个博客问答好像写得不错，没有细看，可以qt...在开始拖动的时:把需要拖动的控件图形设置给QDrag实例，控件图形通过QPixmap::grabWidget获取。 然后把控件隐藏，这个时候鼠标移动就会有控件跟着动的效果了。 在Q.
控件“树”中多选拖放功能的实现 控件”树”（tree）能够清晰地显示所包含数据的继承关系，是一个强有力的控件。但是真正掌握并能运用CTreeCtrl类的众多特性并不是一件容易的事情。在Visual C++ Developer杂志的9月份、10月份这两期中，Stephen介绍...
C#基础教程-c#实例教程，适合初学者 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言...
在DBGrid中进行拖放操作 在DBGrid中进行拖放操作 学习如何使DBGrid组件能接受拖放操作 拖放操作能为用户对数据的操作提供便利，你能够让用户拖动当前的控件，或者让用户从一个控件到另一个控件拖动，或者拖放树视图的节点（做为一个例子）。...
WPF中拖动控件,实现位置随意摆放 在WPF中,除了可以通过处理鼠标事件来实现控件位置的拖动以外,还可以通过定义一些控件的行为,来实现控件的拖动,具体操作步骤如下: 自定义实现拖动的类库 1. 使用VS2010建立一个C#的类库 2. 增加"System.Windows...
动态创建控件的消息响应添加 某些情况下，我们需要在窗口上进行新添控件的操作，但在团队软件开发中，如果直接在已有界面进行控件拖放式添加，这操作必会改变资源文件，资源文件的更改可导致整个项目的重编译，对其它参与者的干扰较大，为尽量...
第10课 拖放操作 Ultimate Grid具有拖放功能。本教程的目的是说明如何开发具有拖放功能的网格应用程序。 使用MFC应用程序向导，启动一个新的项目。项目名为dragex,在向导的步骤1中选择对话框选项。 第1步 – 构造一个对话框界面 ...
PB9.0动态生成控件 基于该需求用到了动态生成控件。还是和之前一样，知识内容都是一样的，只是在使用的细节上的区别。 需求 根据数据窗口中符合要求的数据库记录数和内容动态的创建复选框控件，放置于Tab control控件上。这样就可以...
Arcball like 3D 图形旋转：显示如何将 arcball 控件添加到 3D 窗口的示例-matlab开发 matlab 的主要缺点之一是缺乏使用自然（弧球）交互改变 3D 网格视点的方法。 在这个简单的函数中，我演示了允许自然移动 3D 球体的轨迹球交互。 运行该函数并用鼠标在球体表面上拖放。 您应该注意的一个非常重要的...
对SWT控件的拖放深入了解 最近学习Eclipse，发现当前市场上的教程对SWT控件的拖放都说得词不达意，无法理解，包括质量较高的《Java开发利器：Eclipse SWT/JFace 核心应用》。自己花了很多时间研究才搞明白，心得如下：SWT中有关拖放操作的类...
C# 设置label（标签）控件的背景颜色为透明,picturebox上添加picturebox，设置父窗口关系后，显示相对位置 有时候，我们需要将控件的背景颜色设定为透明，比如说label（标签）控件。那么，如何将控件的背景颜色设定为透明?是不是只要将控件的...在C#这里，透明就是指透过控件的背景，可以看到其父控件（容器）表面的颜
基于Extjs的web表单设计器 第三节——控件拖放 这样的UI设计肯定就得支持控件的拖拽设计，用户只要拖放一个控件到我们的画布上，那么画布就应该立即能够看到我们拖放的控件在画布中的位置、大小、以及一些控件自带的默认信息。不用说这样的...
WPF中拖动控件,实现位置随意摆放[2] 在WPF中,除了可以通过处理鼠标事件来实现控件位置的拖动以外,还可以通过定义一些控件的行为,来实现控件的拖动,具体操作步骤如下: 自定义实现拖动的类库 1. 使用VS2010建立一个C#的类库 2. 增加"System....
控件"树"中多选拖放功能的实现 概述：控件“树”（tree）能够清晰地显示所包含数据的继承关系，是一个强有力的控件。但是真正掌握并能运用CTreeCtrl类的众多特性并不是一件容易的事情。在Visual C++ Developer杂志的9月份、10月份这两期中，...
C# 继承.Net中提供的WebBrowser 2.0控件以实现IE的超级拖放 看到傲游中提供的超级拖放很是方便，但是IE中却没有提供，但是现在IE 8 用着很好，于是就琢磨着自能否让IE 也支持此功能呢，Google一下很多都是VC++的资料，而且没有完整的代码，但是有一篇的文章给出了完整的思路，...
如何实现对话框内控件随对话框的拖放改变大小 我想建一个基于对话框(Dialog)的应用程序，在对话框内添加控件Picture Control，问怎样才能实现控件随着对话框的拖放而变大和变小？ 例如控件始终在对话框中间，离对话框边框的距离始终为50，代码怎么写？ 能否给个...
c++ Qt5学习笔记 2020-10-7（鼠标点击移动事件，改变鼠标样式，模拟鼠标拖拽控件） //mainwindow.h中添加头文件 #include <QMouseEvent> //添加点击事件指针 protected: void mousePressEvent(QMouseEvent *e);//鼠标点击事件 void mouseMoveEvent(QMouseEvent *e);//鼠标移动事件
vue-devtools chrome 插件 chrome（谷歌浏览器）vue代码调试插件， 已打包。解压后，通过chrome扩展程序加载即可使用。
使用方法：
1、chrome浏览器输入地址“chrome://extensions/”进入扩展程序页面
2、勾选开发者模式
3、点击“加载已解压的扩展程序...”按钮，选择解压后的chrome文件夹，即可添加成功。
4、添加完vue-devtools扩展程序之后，我们在调试vue应用的时候，ch
rome开发者工具中会看一个vue的一栏，点击之后就可以看见当前页面vue对象的一些信息
