Option ExplicitPrivate Sub Command1_Click() Dim intP As Integer Dim lngW As Long lngW = 0 For intP = 0 To MSHFlexGrid1.Cols - 1 lngW = MSHFlexGrid1.ColWidth(intP) + lngW Next intP Command1.Caption = CStr(lngW) End SubPrivate Sub Form_Load() MSHFlexGrid1.FormatString = "^1|^2|^3^|^4|^5|^6|^7|^8|^9" End Sub
表格总宽度?不明白
Option ExplicitPrivate Sub Command1_Click()
Dim intP As Integer
Dim lngW As Long
lngW = 0
For intP = 0 To MSHFlexGrid1.Cols - 1
lngW = MSHFlexGrid1.ColWidth(intP) + lngW
Next intP
Command1.Caption = CStr(lngW)
End SubPrivate Sub Form_Load()
MSHFlexGrid1.FormatString = "^1|^2|^3^|^4|^5|^6|^7|^8|^9"
End Sub