我在MSHFlexGrid 中试过 Listview 估计用这方法也行,你试试,实在不行就换成 MSHFlexGrid的呗。 cmbInput 为 combo Private Sub cmbInput_Click() MSHFlexGrid1.Text = cmbInput.Text cmbInput.Visible = False End Sub Private Sub MSHFlexGrid1_Click() cmbInput.Visible = True cmbInput.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft - 20, MSHFlexGrid1.Top + MSHFlexGrid1.CellTop - 20, MSHFlexGrid1.CellWidth cmbInput.Text = MSHFlexGrid1.Text End Sub Private Sub MSHFlexGrid1_RowColChange() cmbInput.Visible = False End Sub Private Sub MSHFlexGrid1_Scroll() cmbInput.Visible = False End Sub Private Sub MSHFlexGrid1_SelChange() cmbInput.Visible = False End Sub
cmbInput 为 combo
Private Sub cmbInput_Click()
MSHFlexGrid1.Text = cmbInput.Text
cmbInput.Visible = False
End Sub
Private Sub MSHFlexGrid1_Click()
cmbInput.Visible = True
cmbInput.Move MSHFlexGrid1.Left + MSHFlexGrid1.CellLeft - 20, MSHFlexGrid1.Top + MSHFlexGrid1.CellTop - 20, MSHFlexGrid1.CellWidth
cmbInput.Text = MSHFlexGrid1.Text
End Sub
Private Sub MSHFlexGrid1_RowColChange()
cmbInput.Visible = False
End Sub
Private Sub MSHFlexGrid1_Scroll()
cmbInput.Visible = False
End Sub
Private Sub MSHFlexGrid1_SelChange()
cmbInput.Visible = False
End Sub