listview

最新推荐文章于 2023-09-22 14:56:31 发布

mayanyan930

最新推荐文章于 2023-09-22 14:56:31 发布

阅读量238

点赞数 1

分类专栏： vb 文章标签： listview

本文链接：https://blog.csdn.net/mayanyan930/article/details/4183926

版权

vb 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

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