جابه جا کردن ابزار [بایگانی]

nedved1

سه شنبه 06 دی 1390, 20:07 عصر

سلام به همه
دوستان من به یک مشکلی برخوردم ممنون میشم کمکم کنید
مشکل من اینه من میخوام یک textbox رو در زمان اجرا با drag&drop روی فرم جابه جا کنم ممنون میشم کمکم کنید

Veteran

سه شنبه 06 دی 1390, 20:32 عصر

Dim X1 As Double, y1 As Double
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - X1
Source.Top = Y - y1
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
y1 = Y
End Sub

nedved1

چهارشنبه 07 دی 1390, 06:24 صبح

Dim X1 As Double, y1 As Double
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - X1
Source.Top = Y - y1
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
y1 = Y
End Sub

ببخشید چرا پس زمان اجرا من نتونستم بازم جابه جا کنم؟؟

محسن واژدی

چهارشنبه 07 دی 1390, 06:39 صبح

ببخشید چرا پس زمان اجرا من نتونستم بازم جابه جا کنم؟؟
سلام
مشکلی نداشت،
یک Text1 بر روی فرم قرار بدین و کدها را در ماژول فرم جایگزین کنید

موفق باشید

vb6_man

چهارشنبه 07 دی 1390, 15:38 عصر

و اما مشکل این روش
من نمی تونم روی TExt1 متن مورد نظرم رو با ماوس Select کنم
این روش خوبی واسه این کار نیست....

Veteran

چهارشنبه 07 دی 1390, 17:16 عصر

اول ببین خواسته دوستمون چیه ؟
میخواد فقط جابه جا کنه
حرفی از انتخاب متن نزد
اما شما

میشه یک چک باکس گذاشت هرموقعه چک باکس تیک خورده بود بتونه حرکت بده در غیر این صورت نتونه حرکت بده در این موقع میتونیم متن رو انتخاب کنیم

بستگی به خودتون داره که بخواین چجوری طراحی کنین برنامرو

nedved1

چهارشنبه 07 دی 1390, 22:10 عصر

سلام
مشکلی نداشت،
یک Text1 بر روی فرم قرار بدین و کدها را در ماژول فرم جایگزین کنید

موفق باشید

سلام داداش دستت درد نکنه بابت توجهی که کردی به پستم و نظر دادی ولی من بازم نتونستم جابه جا کنم برات مقدور هستش که برنامه رو توی VB بنویسی و آپلود کنی؟؟ اگه مقدور نیست من آپلود کنم مشکلش رو برام برطرف کنی؟؟
بازم ممنون

sr2m72

چهارشنبه 07 دی 1390, 22:32 عصر

برات مقدور هستش که برنامه رو توی VB بنویسی و آپلود کنی؟؟

با اجازه همگی، من آپ کردم.
79848

nedved1

پنج شنبه 08 دی 1390, 08:01 صبح

خیلی ممنونم ازت

nedved1

پنج شنبه 08 دی 1390, 15:05 عصر

Dim X1 As Double, y1 As Double
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Left = X - X1
Source.Top = Y - y1
End Sub
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
X1 = X
y1 = Y
End Sub

ببخشید من همش زحمت میدم ولی میشه این خط هارو برام توضیح بدید که هر خط چه کاری میکنه؟؟ ببخشیدا همش زحمتتون میدم

محسن واژدی

پنج شنبه 08 دی 1390, 16:08 عصر

با اجازه جناب sobhan93

Form_DragDrop: رویدادی که در زمان کشیدن و رها شدن شی اتفاق می افتد

Source.Left = X - X1: م Source به شی drag شده که در اینجا text1 باشد اشاره دارد، و مکان left یا x را تنظیم میکند؛ اگر "- X1" را از معادله "X-X1" حذف کنیم شی text1 در سمت راست کرسر قرار میگیرد که میتواند ناخوشایند باشد،

Source.Top = Y - Y1: مکان top شی (y) را تنظیم میکند

Text1_MouseMove: رویدادی که بهنگام حرکت موس روی شی رخ میدهد

X1 = X و y1 = Y: مکان xو y موس را بمنظور تنظیم صحیح مکان شی در زمان drop ذخیره میکند

موفق باشید

nedved1

جمعه 09 دی 1390, 17:32 عصر

با اجازه جناب sobhan93

Form_DragDrop: رویدادی که در زمان کشیدن و رها شدن شی اتفاق می افتد

Source.Left = X - X1: م Source به شی drag شده که در اینجا text1 باشد اشاره دارد، و مکان left یا x را تنظیم میکند؛ اگر "- X1" را از معادله "X-X1" حذف کنیم شی text1 در سمت راست کرسر قرار میگیرد که میتواند ناخوشایند باشد،

Source.Top = Y - Y1: مکان top شی (y) را تنظیم میکند

Text1_MouseMove: رویدادی که بهنگام حرکت موس روی شی رخ میدهد

X1 = X و y1 = Y: مکان xو y موس را بمنظور تنظیم صحیح مکان شی در زمان drop ذخیره میکند

موفق باشید
آقا محسن دستت درد نکنه یک دنیا ممنون