تکست باکسی که بر روی فرم جابجا شود [بایگانی]

View Full Version : تکست باکسی که بر روی فرم جابجا شود

unforgiven

شنبه 22 بهمن 1384, 16:03 عصر

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

sohrab o

شنبه 22 بهمن 1384, 16:18 عصر

آره با همین تکست باکس
باید top و left رو تنظیم کنی
دز ضمن اگه منضورتو درست متوجه شده باشم

saina2006

شنبه 22 بهمن 1384, 16:49 عصر

می تونی از این کد برای جابجایی تکست باکس روی فرم استفاده کنی

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub

Private Sub Form_Load()
Text1.DragMode = 1
End Sub

unforgiven

شنبه 22 بهمن 1384, 17:34 عصر

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

unforgiven

شنبه 22 بهمن 1384, 22:46 عصر

متشکرم
جواب رو گرفتم

sohrab o

شنبه 22 بهمن 1384, 23:00 عصر

آهان
مرسی از جواب دوستان

unforgiven

دوشنبه 24 بهمن 1384, 08:40 صبح

سلام
من به کمک شما مشکلی که در بالا گفته بودم حل شد . ولی می خوام بدونم آیا میشه وقتی تو این فرم تکست باکس رو به جای مورد نظرم قرار دادم میشه در فرم بعدی هم که در اون تکست باکس وجود داره , این تکست باکس اونجایی قرار بگیره که در فرم اول تکست باکس اولی قرار گرفته ؟
در حقیقت یک ارتباطی بین این دو برقرار بشه البته از لحاظ جابجایی
ممنون میشم راهنمایی کنید

احمد آقا

دوشنبه 24 بهمن 1384, 08:54 صبح

اگه اندازه دوتا فرمات یکی باشه top وleft تکست باکسها رو مساوی هم قرار بده
form2.text1.left=form1.text1.left

unforgiven

سه شنبه 25 بهمن 1384, 08:36 صبح

راه دیگه ای وجود نداره ؟

unforgiven

پنج شنبه 27 بهمن 1384, 08:17 صبح

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

احمد آقا

پنج شنبه 27 بهمن 1384, 08:26 صبح

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

saina2006

پنج شنبه 27 بهمن 1384, 08:26 صبح

فکر کنم این بهتر از قبلی باشه

Dim StartX, StartY 'Variables to hold where on the control you clicked when you started to drag it

Private Sub text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

StartX = X 'Store where on the button your mouse was when you started to drag it.
StartY = Y
Text1.Drag vbBeginDrag 'Starts drag
End Sub

Private Sub text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag vbEndDrag 'Ends Drag
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - StartX, Y - StartY 'Move the control to where the user dropped it
End Sub