PDA

View Full Version : سوال: کشیدن و رهاکردن متن در TextBox



Hossis
چهارشنبه 29 مهر 1388, 10:26 صبح
چطور میشه توی یک تکست باکس درگ کرد و متنی رو از یک کنترل دیگر توی کادر متن انداخت؟؟

Hossis
چهارشنبه 29 مهر 1388, 10:34 صبح
مشکل این جاست که کنترل TextBox از افتادن متن درون آن ممانعت می کند

alimanam
چهارشنبه 29 مهر 1388, 17:18 عصر
با سلام

دوست عزیز از این نمونه کد استفاده کن ایی شاا... که مشکلت حل میشه یا علی .
http://img137.imageshack.us/img137/4986/233534.gif

nima898
یک شنبه 03 آبان 1388, 14:46 عصر
دوست عزیز از این نمونه کد استفاده کن ایی شاا... که مشکلت حل میشه یا علی .
کدهای شما تو vb2005 باز نمیشه با vb2008 نوشتید؟

alimanam
یک شنبه 03 آبان 1388, 22:43 عصر
کدهای شما تو vb2005 باز نمیشه با vb2008 نوشتید؟
با سلام

بله با VS 2008 نوشته شده . اگه رو سیستمتون نصب نکردین با ویرایشگر متن به کداش نگاه کنین . البته زیاد خودت رو اذیت نکن . اینم کداش .

یا علی

Public Class Form1

Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
ListBox1.DoDragDrop(ListBox1.SelectedItem, DragDropEffects.Copy)
End Sub

Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
TextBox1.Text &= " " & e.Data.GetData("System.String")
End Sub

Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
e.Effect = DragDropEffects.Copy
End Sub

Private Sub TextBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox2.MouseDown
TextBox2.DoDragDrop(TextBox2.Text, DragDropEffects.Copy)
End Sub
End Class


راستی یادت باشه خاصیت AllowDrag تکس باکسی که قراره String بهش Drag بشه رو True کنی .

Hossis
سه شنبه 05 آبان 1388, 09:49 صبح
یه حُسنی که وی بی 6 داشت این بود که بری این کارها نیاز به کد نویسی نبود، بلکه این قابلیت به طور اتوماتیک فعال بود ولی خوب مزایای زیاد دات نت،‌این مسائل جزئی رو تحت الشعاع قرار می ده