by Ritik Dodhiwala (5 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 16th July 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Through this code you can Move Text boxes on the MS-FlexGrid. as per size of Grid Column
API Declarations
''''txtQtyLot and txtRFQ
dim introw,intcol
''assigns data from Flexgrid depends upon Mouse click
''checks for Int Col & int Row
intRow = .MouseRow
intCol = .MouseCol
If intRow >= .Rows Then Exit Sub
'' if int row or intcol is 0 then exit sub
If intRow = 0 Or intCol = 0 Then Exit Sub
txtQtyLot = .TextMatrix(introw, intcol)
''following Code txtQtylot will Placed on the grid
txtQtyLot.Move .Left + .CellLeft, .Top+ .CellTop, .CellWidth, .CellHeight
txtQtyLot.Visible = True
txtQtyLot.SetFocus
Exit Sub
txtRFQ = Round(Val(.TextMatrix(intRow, intCol)), 2)
If .CellWidth > 0 Then
'''folloqwing code is for to place TxtRFQ
txtRFQ.Move .Left + .CellLeft, .Top+ .CellTop, .CellWidth, .CellHeight
txtRFQ.Visible = True
txtRFQ.SetFocus
End If
End With
End Sub
No comments have been posted about Through this code you can Move Text boxes on the MS-FlexGrid. as per size of Grid Column. Why not be the first to post a comment about Through this code you can Move Text boxes on the MS-FlexGrid. as per size of Grid Column.