• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Customize flex Grid

Customize flex Grid

Customize flex Grid

Rate Customize flex Grid

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub cmdSubmit_Click()
  If txtValue <> "" Then
    grd.Row = cmbRow
    grd.Col = cmbCol
    grd.CellAlignment = cmbAlign.ItemData(cmbAlign.ListIndex)
    grd.Text = FormatIt(txtValue)
  End If
End Sub

Private Sub Form_Load()
  Dim i As Integer
  Dim ctrl As Control
  
  For i = 1 To grd.Rows - 1
    cmbRow.AddItem i
  Next
  For i = 1 To grd.Cols - 1
    cmbCol.AddItem i
  Next
  With cmbAlign
    .AddItem "Left"
    .ItemData(.NewIndex) = 1
    .AddItem "Center"
    .ItemData(.NewIndex) = 4
    .AddItem "Right"
    .ItemData(.NewIndex) = 7
  End With
  cmbFormat.AddItem "American number"
  cmbFormat.AddItem "Europian number"
  
  For Each ctrl In Me.Controls
    If TypeOf ctrl Is ComboBox Then ctrl.ListIndex = 0
  Next
End Sub

Private Sub grd_Click()
  cmbCol = grd.Col
  cmbRow = grd.Row
  txtValue = grd.Text
End Sub

Private Function FormatIt(ByVal s As String) As String
  Dim DecimalChar As String
  Dim ThousandChar As String
  Dim i As Integer: Dim temp As String
  
  Select Case cmbFormat.ListIndex
  Case 0
    DecimalChar = "."
    ThousandChar = ","
  Case 1
    DecimalChar = ","
    ThousandChar = "."
  End Select
  If InStr(s, DecimalChar) > 0 Then
    i = Len(Mid(s, InStr(s, DecimalChar) + 1))
    Select Case i
      Case 0: s = s & "00"
      Case 1: s = s & "0"
      Case Else: s = Left(s, Len(s) - (i - 2))
    End Select
  Else
    s = s & DecimalChar & "00"
  End If
  If InStr(s, ThousandChar) > 0 Then
    temp = Mid(s, InStr(s, ThousandChar) + 1)
    If Len(Left(temp, InStr(temp, DecimalChar) - 1)) < 3 Then _
      s = Left(s, InStr(s, ThousandChar) - 1) & Mid(s, InStr(s, ThousandChar) + 1)
  End If
  If InStr(s, ThousandChar) = 0 Then
    i = Len(Left(s, InStr(s, DecimalChar) - 1))
    If i > 3 Then s = Left(s, i - 3) & ThousandChar & Mid(s, i - 2)
  End If
  FormatIt = s
End Function