ListView1.ListItems.Clear
Dim lvw As ListItem
For i = 0 To 9
Set lvw = ListView1.ListItems.Add(, , Format(FreqValue(i).Freq / (WaveNum / 1000), "###0.0#"))
lvw.ListSubItems.Add , , Format(FreqValue(i).Value, "###0.0#") ' .SubItems(1) = FreqValue(i).Value
If i = 0 Then
lvw.ListSubItems.Add , , "100"
Else
lvw.ListSubItems.Add , , Format(FreqValue(i).Value / FreqValue(0).Value * 100, "##0.0#")
End If
Next i
listview
最新推荐文章于 2023-09-22 14:56:31 发布