الوقت/التاريخ الآن هو الثلاثاء مارس 19, 2024 5:03 am
2 نتيجة بحث عن flexgrid
ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده
مثال بسيط يوضح كيفية عمل تبديل لالوان الصفوف فى شبكة البيانات [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]الاجراء التالي يقوم بانشاء لونين للصوف لشبكة البينات وتبديل اللون عند ادخال صف جديد
- الكود:
Private Sub pvSetColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
Dim iRow As Long
Dim iCol As Integer
Dim lCurrentColor As Long
With objFlexgrid
.Redraw = False
.BackColor = lColor1
For iRow = 1 To .Rows - 1 Step 2
.Row = iRow
For iCol = 0 To .Cols - 1
.Col = iCol
.CellBackColor = lColor2
Next
Next
.Redraw = True
End With
End Sub
يتم استخدام الوظيفة السابقة عن طريق الشفرة التالية
- الكود:
Call pvSetColors(MSFlexGrid1, RGB(233, 233, 233), RGB(209, 222, 253))
المثال الثاني لتلوين أعمدة شبكة البيانات على النحو التالى :
الاجراء لذلك على النحو التالى :
- الكود:
Private Sub SetColColors(objFlexgrid As Object, ByVal lColor1 As Long, ByVal lColor2 As Long)
Dim iRow As Long
Dim iCol As Integer
Dim lCurrentColor As Long
lCurrentColor = lColor1
With objFlexgrid
.Redraw = False
For iCol = 0 To .Cols - 1
.Col = iCol
If lCurrentColor = lColor1 Then
lCurrentColor = lColor2
Else
lCurrentColor = lColor1
End If
For iRow = 1 To .Rows - 1
.Row = iRow
.CellBackColor = lCurrentColor
Next
Next
.Redraw = True
End With
End Sub
الاستخدام على النحو التالى :
- الكود:
Call SetColColors(MSFlexGrid1, RGB(233, 233, 233), RGB(209, 222, 253))
- في الجمعة نوفمبر 02, 2018 2:56 pm
- ابحث في: دروس و مقالات
- موضوع: ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده
- المساهمات: 0
- مشاهدة: 330
الضبط التلقائى لحجم أعمدة FlexGrid
الطريقة التالية تقوم بضبط حجم اعمدة [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] تلقائيا عند وجود نص اكبر فى احد خلايا العامود ....مبدء عمل الطريقة يتم اجتياز صفوف وأعمدة Flex في حلقتين تكرارتين ويتم تخزين أكبر عرض لكل عمود في متغير
ثم في نهاية كل شيء يمر عبر كافة الحقول ويتم تعيينه بواسطة الخاصية ColWidth من FlexGrid ، عرض كل رأس
شفرة الطريقة عىل النحو التالى :
- الكود:
Private Sub Ajustar_Columnas(FlexGrid As MSHFlexGrid)
On Local Error GoTo ErrSub
Dim Columna As Integer, Fila As Long
Dim Ancho_Columna() As Single
Dim Col_Width As Single
ReDim Ancho_Columna(0 To FlexGrid.Cols - 1)
For Columna = 0 To FlexGrid.Cols - 1
Ancho_Columna(Columna) = TextWidth(FlexGrid.TextMatrix(0, Columna))
Next Columna
For Fila = 1 To FlexGrid.Rows - 1
For Columna = 0 To FlexGrid.Cols - 1
Col_Width = TextWidth(FlexGrid.TextMatrix(Fila, Columna))
If Ancho_Columna(Columna) < Col_Width Then
Ancho_Columna(Columna) = Col_Width
End If
Next
Next
For Columna = 0 To FlexGrid.Cols - 1
FlexGrid.ColWidth(Columna) = Ancho_Columna(Columna) + 240
Next
Exit Sub
ErrSub:
MsgBox Err.Description, vbCritical
FlexGrid.Redraw = True
End Sub
ويتم استخدام الطريقة على النحو التالى :
- الكود:
Call Ajustar_Columnas(MSHFlexGrid1)
- في الجمعة نوفمبر 02, 2018 12:44 pm
- ابحث في: دروس و مقالات
- موضوع: الضبط التلقائى لحجم أعمدة FlexGrid
- المساهمات: 0
- مشاهدة: 366
أمس في 12:41 am من طرف marketing118
» شركة تنظيف ستائر بالرياض
الأحد مارس 17, 2024 10:46 pm من طرف moslema_r
» خيام ملكيه من الداخل
الأحد مارس 17, 2024 8:13 pm من طرف marketing118
» شركة نقل عفش بالطائف
الأحد مارس 17, 2024 6:34 pm من طرف marketing118
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد
» أفضل فني سباك بالرياض ممتاز بالرياض | اتصل الآن
الأحد مارس 17, 2024 12:25 pm من طرف رانيا حماد