by Buddhika Fernando (9 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 27th March 2006
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about Convert MSFlex Grids In TextBox Method, It's Very Easy. Use My Code Get The Idea And Turn It On You. Why not be the first to post a comment about Convert MSFlex Grids In TextBox Method, It's Very Easy. Use My Code Get The Idea And Turn It On You.