• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Convert MSFlex Grids In TextBox Method, It's Very Easy. Use My Code Get The Idea And Turn It On You

Convert MSFlex Grids In TextBox Method, It's Very Easy. Use My Code Get The Idea And Turn It On You

Convert MSFlex Grids In TextBox Method, It's Very Easy. Use My Code Get The Idea And Turn It On Your Way...

API Declarations



Rem Developer P.B.C.G.Fernando
Rem Comments Get The Idea From This Code And Modify According To Your Way.
Rem More Mail Me [email protected] / [email protected]
Rem If You Have Idea Mail Me.

Add MSFlex Grid Control And Add TextBox Control On To MS Flex



Rate Convert MSFlex Grids In TextBox Method, It's Very Easy. Use My Code Get The Idea And Turn It On You

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    With MSFlexGrid1
        .Row = 0
        
        .Col = 0
        .ColWidth(0) = 100
        
        .Col = 1
        .ColWidth(1) = 4500
        .CellFontBold = True
        .ColAlignment(1) = flexAlignLeftBottom
        .Text = "Student Name"
        
        .Col = 2
        .ColWidth(2) = 1000
        .CellFontBold = True
        .ColAlignment(2) = flexAlignCenterBottom
        .Text = "Class No"
        
        .Col = 3
        .ColWidth(3) = 1000
        .CellFontBold = True
        .ColAlignment(3) = flexAlignCenterBottom
        .Text = "Duration"
        
        .Col = 4
        .ColWidth(4) = 1500
        .CellFontBold = True
        .ColAlignment(4) = flexAlignLeftBottom
        .Text = "Remarks"
                
        .Col = 1
        .Row = 1
        
        .Refresh
        Call MSFlexGrid1_EnterCell
    End With
    
    
End Sub

Private Sub MoveText()

    With Text1
        .Visible = True
        .Left = MSFlexGrid1.Left + MSFlexGrid1.CellLeft
        .Top = MSFlexGrid1.Top + MSFlexGrid1.CellTop
        .Width = MSFlexGrid1.CellWidth
        .Height = MSFlexGrid1.CellHeight
        .SetFocus
        .Refresh
    End With
    
End Sub

Private Sub MSFlexGrid1_EnterCell()

On Error Resume Next
    Call MoveText
    Text1.Text = MSFlexGrid1.Text
    Text1.SetFocus
    
End Sub

Private Sub MSFlexGrid1_LeaveCell()

On Error Resume Next
    If MSFlexGrid1.Row > 0 Then
        Call MoveText
        MSFlexGrid1.Text = Text1.Text
    End If
    
End Sub

Private Sub Text1_DblClick()

    If MSFlexGrid1.Rows = 2 Then
        MSFlexGrid1.Rows = 1
        MSFlexGrid1.Rows = 100
    Else
        MSFlexGrid1.RemoveItem MSFlexGrid1.Row
    End If
    
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

On Error Resume Next
    Select Case MSFlexGrid1.Col
    Case 0: Exit Sub
    Case 1:
        If KeyCode = vbKeyLeft Then
            Exit Sub
        ElseIf KeyCode = vbKeyRight Then
            MSFlexGrid1.Col = MSFlexGrid1.Col + 1
            Call MoveText
        ElseIf KeyCode = vbKeyDown Then
            If MSFlexGrid1.Row = 99 Then
                Exit Sub
            Else
                MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                Call MoveText
            End If
        ElseIf KeyCode = vbKeyUp Then
            If MSFlexGrid1.Row = 1 Then
                Exit Sub
            Else
                MSFlexGrid1.Row = MSFlexGrid1.Row - 1
                Call MoveText
            End If
        End If
    Case 2 To 4:
        If KeyCode = vbKeyLeft Then
            MSFlexGrid1.Col = MSFlexGrid1.Col - 1
            Call MoveText
        ElseIf KeyCode = vbKeyRight Then
            MSFlexGrid1.Col = MSFlexGrid1.Col + 1
            Call MoveText
        ElseIf KeyCode = vbKeyDown Then
            If MSFlexGrid1.Row = 99 Then
                Exit Sub
            Else
                MSFlexGrid1.Row = MSFlexGrid1.Row + 1
                Call MoveText
            End If
        ElseIf KeyCode = vbKeyUp Then
            If MSFlexGrid1.Row = 1 Then
                Exit Sub
            Else
                MSFlexGrid1.Row = MSFlexGrid1.Row - 1
                Call MoveText
            End If
        End If
    End Select
            
End Sub