أستفسار بسيط عن أداة Vscrollbar فى الخصية Max

وهل ستحتاج أكثر من ذلك ؟؟

لكن يمكنك إنشاء آداة خاصة تفيد بذلك ، او البحث عن أدوات أخري بالويب

شكراً

تفضل :

Private Sub Form_Load()
	VScroll1.Max = (picMain.Height - Frame1.Height) / 10
End Sub

Private Sub VScroll1_Change()
	picMain.Top = -VScroll1.Value * 10
End Sub

MMA_EG_Cairo كتب:

وهل ستحتاج أكثر من ذلك ؟؟

لكن يمكنك إنشاء آداة خاصة تفيد بذلك ، او البحث عن أدوات أخري بالويب

شكراً

أخى الغالى شكر على مرورك ولكن دائما أحب الرد الأيجابى بالتأكيد سأحتاج اللى أكتر من ذلك بكثير ربما لم يمر عليك وأحتجت هذه الأداة بأقصى max ولكن أنظر معى فأذا أردت أن تقوم بتصميم أداة مثلا webbrowser أو أداة richtextbox أو أداة list هل سوف تحكمها بقيمة معينة

أما بالنسبة لأنشاء أداة فهذا ليس سهل والبحث عن اداة أخرى فلماذ فأكيد يوجد حل

عبدالفتاح حسن كتب:

تفضل :

Private Sub Form_Load()
	VScroll1.Max = (picMain.Height - Frame1.Height) / 10
End Sub

Private Sub VScroll1_Change()
	picMain.Top = -VScroll1.Value * 10
End Sub

شكرا أخى على مرورك وهذا أول ما فكرت بيه ولكن ربما يكون أيضا حل غير عملى بالأضافة قم بجعل ال height للصورة

40000 وجرب كودك سوف تجد خطأ عندما تكوم بتحريك الاسكرول لأسفل وسوف تجد إن value قيمتها كبرت وجعلت أداة الصورة تتحرك بسرعو وبقيمة كبيرة لان value أصبحت قيمتها مضروبة * 10

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

توجد اداة مع Microsoft forms 2.0 object library بها ما تريد . لكن قبل ذلك ارجو ان تتأكد من ترخيصها وكيفية توزيعها وما الى ذلك

فارجو ان تستفيد منها

TareqVB كتب:

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

توجد اداة مع Microsoft forms 2.0 object library بها ما تريد . لكن قبل ذلك ارجو ان تتأكد من ترخيصها وكيفية توزيعها وما الى ذلك

فارجو ان تستفيد منها

هو ده الرد اللى بجد كنت مستنيه بجد أنت أستاذ ورئيس قسم الف الف شكر أنا جربت الأداة واشتغلت 10/10 لكن أنا مفهمتش يعنى ايه توزيعها اما ترخيصها فهى اشتغلت دون مشاكل

السلام عليكم

اقصد بالنسبة لتوزيعها اي طريقة تركيبها وتسجيلها على اجهزة الزبائن او اي مكان اخر ليس عليه الفيجوال بيسك