الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مطلوب أداة

بدأه chica في 15 أبريل 2010 · 9 رد · 900 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أرجو من جميع من لديه الخبرة ان يجيبني للضرورة

اريد textbox مثل هذه اي تعطي حرية التحرك الحمل والاسقاط

وجزاكم الله كل خير

post-74068-12713354992332_thumb.png

#2

السلام عليكم ورحمة الله

أهلاً أخي الكريم :happy:

بدآية أقول لك لو بحثت في النت لكنت ستجد ضآلتك إن شآء الله :)

لكن لا بأس

يمكنك تصميم نفس الأدآة يعني تكبيرهآ وتصغيرهآ وذلك بوضع مربعآت صغيرة على الجوآنب ومن أضف كود التعديل على حجم الادآة

ستجد خآصية في التكست بوكس إبحث عنهآ وهي المسؤولة عن حجمه

بخصوص الحمل والإسقآط لا اعرف الطريقة لذلك لكن يمكنك ان تضع Dialog فيه 2 تكست بوكس ليحدد المستخدم مكآن الأدآة

أو يمكنك وضع زر الرفع وزر التحريك لليمين والشمآل و .....

والله اعلم

بالتوفيق لك

عليك إتقآن اللغة قبل ان تعلمهآ

من يريد ان يتعلم البرمجة فليمسح رآبط ستآر من ذآكرته

#3

عفوا يا استاذ ليس المطلوب الذي تكلمت عنه هذه التكست تكون موضوعة عند العميل هو يحركها ويكبرها ويصغرها كيفما شاء

#4

ارجوكم ان تجاوبوني والله مضطرة كثيرررررررر

#5

السلام عليكم و رحمه الله و بركاته

هذا لعملية النقل

لدينا فورم بها صندوق نص اسمه textbox1

post-174082-12716490714087_thumb.png

اجعل الخاصية AllowDrop للفورم تساوي True

ثم أضف هذا الكود

Dim isMove As Boolean = False
	Private Sub TextBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
    	If e.Button = Windows.Forms.MouseButtons.Left Then
        	TextBox1.DoDragDrop(TextBox1, DragDropEffects.Move)
        	isMove = True
    	End If
	End Sub
	Private Sub form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
    	isMove = False
	End Sub
	Private Sub form1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter
    	e.Effect = DragDropEffects.Move
	End Sub
	Private Sub form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
    	If isMove = True Then
        	TextBox1.Location = e.Location
        	isMove = False
    	End If
	End Sub

و المثال في المرفقات

و الله اعلم

help01.rar

#6

شكرا على اجابتك ولكن ليس هذا المطلوب تماما اريد نقاط الارتكاز تظهر حتى يستطيع المستخدم تكبير وتصغير التكست كيفما يشاء

ارجو الرد وشكرا

#7

الا يوجد الرد

#8

السلام عليكم ألأداء المرفقه تعمل تغير حجم صندوق النص وقت التشغيل شكرا

post-227437-12723689283122_thumb.jpg

post-227437-12723689299973_thumb.jpg

post-227437-12723689320142_thumb.jpg

ResizableDemo.zip

#9

شكرا لك جاري التجربة ولكن اريد منك شي اخر ارجوك ان تعطيني كود كيف احرك textbox بالاسهم وكود تحريكها بالماوس وجزاك الله كل خير وحقق لك ماتتمناه

تم تعديل هذه المشاركة بواسطة chica في 27 أبريل 2010 في 16:55

#10

معليش ماني فاهم

مواضيع مشابهة