واضح آرشیو وب فارسی:سایت ریسک: Drag and Drop sicret 19 بهمن 1389, 13:29چطری می تونم توی vb.net بدون نیاز به نوشتن برنامه زیاد یک باتون را درگ کنم و در باتون دیگر دراپ کنم و اطلاعاتشو به اون باتون بدم خواهشا کمکم کنید:rose: the_king 19 بهمن 1389, 19:18چطری می تونم توی vb.net بدون نیاز به نوشتن برنامه زیاد یک باتون را درگ کنم و در باتون دیگر دراپ کنم و اطلاعاتشو به اون باتون بدم خواهشا کمکم کنید:rose: منظورتون از اطلاعات Button چیه؟ زمانی که شما یک Button رو به سمت Button دیگری Drag می کنید قراره که Button به سمت مقصد جابجا بشه؟ لطفا با جزئیات بیشتر منظورتون رو مشخص کنید. sicret 19 بهمن 1389, 20:02منظورتون از اطلاعات Button چیه؟ زمانی که شما یک Button رو به سمت Button دیگری Drag می کنید قراره که Button به سمت مقصد جابجا بشه؟ لطفا با جزئیات بیشتر منظورتون رو مشخص کنید. مثلا یه Button رو Drag کنیم و روی یه Buttom دییگه Drop کنیم خصوصیت تکست Button ای که روش Button اول رو Drop کردیم بشه خصوصیت تکست باتون اولی ایجا منظورم رو با یه سوال واضح تر می کنم چجوری کاری کنم که بشه Button رو Drag کنم چون هر چی روشون کلیک میکنم و میکشم هیچ اتفاقی نمیفته همین:rose: the_king 19 بهمن 1389, 21:38مثلا یه Button رو Drag کنیم و روی یه Buttom دییگه Drop کنیم خصوصیت تکست Button ای که روش Button اول رو Drop کردیم بشه خصوصیت تکست باتون اولی ایجا منظورم رو با یه سوال واضح تر می کنم چجوری کاری کنم که بشه Button رو Drag کنم چون هر چی روشون کلیک میکنم و میکشم هیچ اتفاقی نمیفته همین:rose: مشکل اینه که دارین کاری رو انجام می دهید که اصولا با Button ها انجام نمی دهند. دو دکمه Button1 و Button2 را روی فرم قرار دهید و کد های زیر رو به کد های فرم اضافه کنید : Private src As Button Private Sub AllowDragButton(ByRef obj As Button) obj.AllowDrop = True AddHandler obj.MouseDown, AddressOf Button_MouseDown AddHandler obj.DragOver, AddressOf Button_DragOver AddHandler obj.DragDrop, AddressOf Button_DragDrop End Sub Private Sub Button_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) src = sender DoDragDrop("", DragDropEffects.Copy) End Sub Private Sub Button_DragOver(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) e.Effect = DragDropEffects.Copy End Sub Private Sub Button_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Dim obj As Button = sender obj.Text = src.Text obj.TextAlign = src.TextAlign obj.Font = src.Font End Sub . . . توابع بالا به خودی خود اجرا نخواهند شد، پس از رخداد Form1_Load برای متصل کردن شان به Button ها استفاده می کنیم. یعنی برای اینکه دکمه های Button1 و Button2 قابلیت Drag داشته باشند از تابع AllowDragButton استفاده کنید : Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AllowDragButton(Button1) AllowDragButton(Button2) End Sub دقت کنید که برای هر دکمه دیگری که خواستید چنین قابلیتی را داشته باشد نیز از AllowDragButton استفاده خواهید کرد. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 986]