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

كيفية استخدام اداة السكرول بار

بدأه العالم في 28 يوليو 2008 · 4 رد · 1,578 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

كيف يمكنني ان استخدم اداة الاسكرول بـــــــــــــــــار ليقوم بتحريك اداة البكشر داخل بكشر اي من اسفل الى اعلى

مرفق مثال

_____2.rar

** أقم صلاتك قبل مماتك **

الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان.

* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟

‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!!

‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟

‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟

‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟

#2

السلام عليكم...

المثال التالي يحتاج إلى Form عليها PictureBox مع ضبط الخاصية Name على pbxContainer و الخاصية ScaleMode على Pixels.

داخل الـ PictureBox السابق يوجد PictureBox باسم pbxPage و VerticalScrollBar باسم vsbMoveUpDown و HorizontalScrollBar باسم hsbMoveRightLeft. الخاصية LargeChange لمكوني الـ ScrollBar مضبوطة على 8.

  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4.     vsbMoveUpDown.ZOrder
  5.     hsbMoveRightLeft.ZOrder
  6.     'pbxContainer_Resize    ' استعمل هذا السطر إذا كان مربع الصورة الخارجي يحتل مكاناً و حجماً 
    ثابتاً في النموذج
  7. End Sub
  8.  
  9. Private Sub Form_Resize()
  10.     ' احذف السطر التالي إذا كان مربع الصورة الخارجي يحتل مكاناً و حجماً ثابتاً في النموذج
  11.     pbxContainer.Move 0, 0, ScaleWidth, ScaleHeight
  12. End Sub
  13.  
  14. Private Sub hsbMoveRightLeft_Change()
  15.     pbxPage.Left = vsbMoveUpDown.Width - hsbMoveRightLeft.Value
  16.     Text1.Text = hsbMoveRightLeft.Value
  17. End Sub
  18.  
  19. Private Sub pbxContainer_Resize()
  20.     Dim DX As Single
  21.  
  22.     vsbMoveUpDown.Move 0, 0, vsbMoveUpDown.Width, pbxContainer.ScaleHeight - hsbMoveRightLeft.H
    eight
  23.     hsbMoveRightLeft.Move vsbMoveUpDown.Width, pbxContainer.ScaleHeight - hsbMoveRightLeft.Heig
    ht, pbxContainer.ScaleWidth - vsbMoveUpDown.Width, hsbMoveRightLeft.Height
  24.     pbxPage.Move pbxContainer.ScaleWidth - pbxPage.Width, 0
  25.  
  26.     If pbxPage.Width > (pbxContainer.ScaleWidth - vsbMoveUpDown.Width) Then
  27.         DX = pbxPage.Width - (pbxContainer.ScaleWidth - vsbMoveUpDown.Width)
  28.         hsbMoveRightLeft.Max = DX
  29.         hsbMoveRightLeft.Value = DX
  30.         hsbMoveRightLeft.Enabled = True
  31.     Else
  32.         hsbMoveRightLeft.Enabled = False
  33.     End If
  34.     If pbxPage.Height > (pbxContainer.ScaleHeight - hsbMoveRightLeft.Height) Then
  35.         DX = pbxPage.Height - (pbxContainer.ScaleHeight - hsbMoveRightLeft.Height)
  36.         vsbMoveUpDown.Max = DX
  37.         vsbMoveUpDown.Value = 0
  38.         vsbMoveUpDown.Enabled = True
  39.     Else
  40.         vsbMoveUpDown.Enabled = False
  41.     End If
  42.  
  43. End Sub
  44.  
  45. Private Sub vsbMoveUpDown_Change()
  46.     pbxPage.Top = -vsbMoveUpDown.Value
  47. End Sub
  48.  

في هذا المثال يتغير حجم الـ PictureBox مع تغيير حجم الـ Form ليحتل كامل المساحة.
نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#3
        
        

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

      
      

      
   **   أقم صلاتك قبل مماتك   **
   الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة     للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان. 
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟ 
‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!! 
‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟ 
‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟ 
‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟ 

    

  

    
    

      
#4
        
        

      
للرفع
للرفع
للرفع

      
      

      
   **   أقم صلاتك قبل مماتك   **
   الصلاة : جالبة للرزق . حافظة ‏للصحة دافعة للأذى ، طاردة للأدواء ، مقوية للقلب ، مبيضة للوجه ، ‏مفرحة للنفس ، مذهبة للكسل ، منشطة     للجوارح ، ممدة للقوى ‏،شارحة للصدر، مغذية للروح ، منورة للقلب ، حافظة للنعمة ، دافعة ‏للنقمة ، جالبة للبركة, مبعدة من الشيطان. 
* هل تعلم أن النبي صلى الله عليه وسلم وصف تارك الصلاة بالكفر ؟ 
‏* هل تعلم أن الذي لا يصلي إذا مات لا يدفن في مقابر المسلمين!! 
‏* هل تعلم أن أول ما تحاسب عليه الصلاة ؟ 
‏* هل تعلم أن تارك الصلاة يحشر يوم القيامة مع فرعون ؟ 
‏* هل تعلم أن تارك الصلاة مع المجرمين في جهنم ؟ 

    

  

    
    

      
#5
        
        

      
أخى  العالم
قد تم التعديل بالتوفيق ان شاء الله
_____2.rar

      
تم تعديل هذه المشاركة بواسطة wael abed في 4 أغسطس 2008 في 13:02

      

      
00
 
فاضى 
 
00

    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…