在论坛里，经常看到有人问如何实现UC或墨迹天气那样的拖动效果。 这里是一个简单Viewflow——demo View Flow for Android ViewFlow is an Android UI widget providing a horizontally scrollable ViewGroup with items populated from an Adapter. Scroll down to the bottom of the page for a screen shot.
FLEX 容器内多个图片分别拖动，其中的要点是，使用getObjectsUnderPoint来获取当前鼠标指针下的对象，得到的是一个多个对象的数组，需要用objects[i] is ImageSkin来判断是否是图片，如果是图片，则转换成拖动的图，比如：dragInitiator = objects[i].parent as Image ; 参考代码，flex4.5下测试通过。
Dim tx As Long Dim ty As Long Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then tx = X ty = Y End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As S
拖动没有标题栏的窗体程序(vb6.0源代码编写)在没有标题栏的窗体情况下，通过代码控制， 用鼠标可以拖动 Dim r As Long Dim i If Button = 1 Then i = ReleaseCapture() r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If
拖动无边框的窗体 If Me.bFormDragging Then Dim oMoveToPoint As Point '' 以当前鼠标位置为基础，找出目标位置 oMoveToPoint = Me.PointToScreen(New Point(e.X, e.Y)) '' 根据开始位置作出调整 oMoveToPoint.Offset(Me.oPointClicked.X * -1, _ (Me.oPointClicked.Y + _ SystemInformation.CaptionHeight
拖动无边框窗体的例子，演示了具体的实现方法，基于VB6.0编写，一个很实用的移动无标题栏窗体的例子，拖动无边框窗体其实现方法简单，很值得借鉴。以下是关键部分的代码： Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single) If Button = 1 Then Checking for Left Button only Dim ReturnVal As Long
