تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طريقة عمل Scroll bars للفورم
#1
كاتب الموضوع : AhmedEssawy

*** الكود منقول من المنتدى القديم :

كود :
Option Explicit
Private Sub Form_Resize()
If Me.ScaleHeight < picMain.Height Then
VScroll1.Move 0, 0, HScroll1.Height, Me.ScaleHeight - HScroll1.Height
picMain.Left = VScroll1.Width
VScroll1.Min = 0
VScroll1.Max = -(picMain.Height - Me.ScaleHeight)
VScroll1.SmallChange = 50
VScroll1.LargeChange = 500
Else
VScroll1.Width = 0
picMain.Left = 0
VScroll1.Move Me.ScaleWidth + VScroll1.Width
End If

If Me.ScaleWidth < picMain.Width Then
HScroll1.Move VScroll1.Width, Me.ScaleHeight - HScroll1.Height, Me.ScaleWidth - VScroll1.Width
HScroll1.Min = 0
HScroll1.Max = -(picMain.Width - Me.ScaleWidth) - VScroll1.Width
HScroll1.SmallChange = 50
HScroll1.LargeChange = 500
Else
HScroll1.Move 0, Me.ScaleHeight + HScroll1.Height
End If
End Sub
Private Sub HScroll1_Change()
picMain.Left = HScroll1.Value + VScroll1.Width
End Sub
Private Sub HScroll1_Scroll()
picMain.Left = HScroll1.Value + VScroll1.Width
End Sub
Private Sub VScroll1_Change()
picMain.Top = VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
picMain.Top = VScroll1.Value
End Sub
}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب طريقة عمل scrollbar على الفورم Emad Nashaat 0 2,779 13-07-17, 10:39 AM
آخر رد: Emad Nashaat
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 2,808 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  طريقة سهلة للحذف من جدولين في قاعدة البيانات RaggiTech 0 2,393 17-10-12, 03:39 PM
آخر رد: RaggiTech
  طريقة تصفير الجدوال في قواعد البيانات (تصفير قاعدة البيانات) RaggiTech 0 3,707 17-10-12, 03:37 PM
آخر رد: RaggiTech
  طريقة تكبير الصور عند المرور على Label بالماوس... سهلة وبسيطة RaggiTech 0 2,867 17-10-12, 02:34 PM
آخر رد: RaggiTech
  كيفية وضع كلمة كخلفية للفورم RaggiTech 0 1,838 17-10-12, 12:54 AM
آخر رد: RaggiTech
  طريقة للبحث عن الملفات RaggiTech 0 2,051 17-10-12, 12:46 AM
آخر رد: RaggiTech
  طريقة لعمل فورم دائري RaggiTech 0 2,336 17-10-12, 12:45 AM
آخر رد: RaggiTech
  طريقة تشغيل شاشة التوقف RaggiTech 0 2,080 17-10-12, 12:45 AM
آخر رد: RaggiTech
  طريقة استخدام SendKey لتطبيق اوامر التراجع والقص والنسخ واللصق RaggiTech 0 2,414 17-10-12, 12:44 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم