الوقت/التاريخ الآن هو الثلاثاء مارس 19, 2024 5:03 am

2 نتيجة بحث عن flexgrid

ألوان الصفوف و الاعمدة فى شبكة FlexGrid كلا على حده

مثال بسيط يوضح كيفية عمل تبديل لالوان الصفوف فى شبكة البيانات [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] 


الوسم flexgrid على المنتدى منتدى مصر التقني 214-alternar-color-de-filas


الاجراء التالي يقوم بانشاء لونين للصوف لشبكة البينات وتبديل اللون عند ادخال صف جديد

الكود:
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))



المثال الثاني لتلوين أعمدة شبكة البيانات على النحو التالى :

الوسم flexgrid على المنتدى منتدى مصر التقني 214-alternar-color-de-columnas


الاجراء لذلك على النحو التالى :

الكود:


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

الوسم flexgrid على المنتدى منتدى مصر التقني Ajustar-columna-microsoft-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

الرجوع الى أعلى الصفحة

انتقل الى: