Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
MSFlexgrid1.Rows = MSFlexgrid1.Rows + 1
Public Sub Position_PictureCombo(pGrid As MSFlexGrid, pPicture As PictureBox, pBox As MSForms.ComboBox)
'// Position the floating picture box with the combo box on the grid.
On Error GoTo ERR_PositionPictureCombo
pPicture.top = pGrid.top + pGrid.CellTop
pPicture.Left = pGrid.Left + pGrid.CellLeft
pPicture.width = pGrid.CellWidth
pPicture.Height = pGrid.CellHeight
pBox.top = 0
pBox.Left = 0
pBox.width = pPicture.width
pBox.Height = pPicture.Height
pBox.ZOrder 0
pPicture.Visible = True
pBox.Visible = True
If pBox.Enabled Then pBox.SetFocus
Exit Sub
ERR_PositionPictureCombo:
ErrorMessenger Err.Number, Err.Description, "modGeneral.Position_PictureCombo", "General Error"
End Sub