注冊拖放控制項

Ⅰ 怎樣在VB中設置一個可以拖動的控制項

在窗口放一個按鈕，在復制下面代碼運行測試ok！！！

Dimxx,yy,ax,ayAsLong
PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
xx=X
yy=Y
EndIf
EndSub
PrivateSubCommand1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
ax=Command1.Left+X
ay=Command1.Top+Y
Command1.Top=ay-yy
Command1.Left=ax-xx
EndIf
EndSub
PrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=1ThenPrint"你點擊了按鈕了"
IfButton=2ThenPrint"你移動按鈕了"
EndSub
PrivateSubForm_Load()
Command1.Caption="滑鼠左鍵點擊，滑鼠右鍵移動"
EndSub

Ⅱ vs2010窗體拖放控制項

你可以看一下是不是項目創錯了 一般不會出現這種情況 再不然就重裝vs

Ⅲ java 控制項拖動~~~~~~~~

1>super.setLayout(null);

2>label>加事件監聽

思想是

滑鼠松開時候,記錄滑鼠的point,

判斷是否到了容器邊界外,

如果沒到,就把控制項位置設為滑鼠的point,

但是問題是,定位不準,如果要精準的話,

還需要記錄滑鼠在label上的相對坐標,

然後運算後再確定拖動後label的新坐標!

建議你自己多想想,自己寫代碼,

不然你學編程干什麼嗎.......

Ⅳ 易語言拖放控制項問題

在啟動的時候注冊了拖放控制項
不需要撤銷注冊，一直可以用，關閉軟體的時候再撤銷

Ⅳ C#中怎麼樣實現控制項拖放

你的這個問題有點不太正確!
你應該問 VS.NET 2003 里的控制項是如何托放的,是不分C#.NET VB.NET 的!

首先你專要把視圖屬調節到"設計" 而不是"HTML"

之後選擇"視圖"-->"工具箱" 之後選擇你需要的控制項 托到裡面就是了!

Ⅵ JAVA做界面是手動編代碼好還是拖放控制項的方

看你的需求是什麼，如果是後台管理系統界面，有一個easyUI的東西很方便，前端頁面的話當然就要自己寫了，不過拖放控制項？你做的是SWT之類的嗎？

Ⅶ 求易語言實現拖動控制項源碼。

先放一個拖放控制項，在設置控制項的接收控制項，再在屬性里 現在得到文件名 文件名就是發給文件的路徑啦!

Ⅷ VB中拖動控制項代碼

我給你寫了一段示常式序，拖動的控制項時Label1。這個程序中，只有一個Label控制項（name屬性為Label1）和一個窗體。程序如下：
'定義一個布爾變數，用於標識控制項是否可拖動
Dim canDrag As Boolean
Private Sub Form_Load()
'當窗體載入時，設置其值為false（即控制項不可拖動）
canDrag = False
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'當按下滑鼠時，控制項可以拖動，但是這個動作不在這里執行
canDrag = True
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If canDrag Then '如果canDrag為真，這一動滑鼠時就拖動控制項
Label1.Left = Label1.Left + X
Label1.Top = Label1.Top + Y
End If
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'松開滑鼠時，控制項不可拖動
canDrag = False
End Sub

Ⅸ vb中怎樣拖動控制項

『拖動command1的例子
Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
Private Type POINTAPI
x1 As Long
y1 As Long
End Type
Dim cmdX1 As Integer
Dim cmdY1 As Integer
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim P As POINTAPI
If Button = vbLeftButton Then
GetCursorPos P '獲取滑鼠在屏幕中的位置
ScreenToClient Me.hwnd, P '將現有坐標0,0轉換為本窗體的坐標
cmdX1 = Command1.Left - P.x1 * Screen.TwipsPerPixelX
cmdY1 = Command1.Top - P.y1 * Screen.TwipsPerPixelY
End If
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim P As POINTAPI
Dim t As Boolean
If Button = vbLeftButton Then
GetCursorPos P '獲取滑鼠在屏幕中的位置
ScreenToClient Me.hwnd, P '將現有坐標0,0轉換為本窗體的坐標
t = P.x1 >= 0 And P.y1 >= 0 And P.x1 < Me.Width / Screen.TwipsPerPixelX And P.y1 <= Me.Height / Screen.TwipsPerPixelY
If t Then
Command1.Left = P.x1 * Screen.TwipsPerPixelX + cmdX1
Command1.Top = P.y1 * Screen.TwipsPerPixelY + cmdY1
End If
End If
End Sub

Ⅹ C# 窗體上的控制項，如何拖放復制

那些回答ctrl+c,ctrl+v的人，簡直是不知所雲！！

我現在也遇到這樣的問題，我曾經在VB中實現了這個操作，大概思路是：實現定義一個控制項，隱藏起來！等單擊窗體上任一點時，就用方法，在該點生成控制項復製件，我想跟樓主的拖拉復制應該是相同的道理；只是我現在在C#中，無法實現這步，剛用C#不久，不是很熟悉！