请问在listview显示度分秒，怎么设置啊？？？，具体如下：
If TextBox4 <> "" Then dth = DutoHu(Me.TextBox4, dufenmiao) '这里返回度分秒dufenmiao=00°00′00″(dufenmiao as string）
       Dim ListI As ListItem
       Set ListI = Me.ListView1.ListItems.Add(1, , Trim(dufenmiao))'这里怎样显示dufenmiao？？？
                               ListI.SubItems(1) = Me.TextBox1
                               If LineFromSegment(fx, fy, hx, hy, zx, zy) = -1 Then dth = -(2 * PI - dth)
                              
                               ListI.SubItems(2) = GetPointAR(Point3D(zx, zy, 0), dth, Val(ListI.SubItems(1)))(0)
                               ListI.SubItems(3) = GetPointAR(Point3D(zx, zy, 0), dth, Val(ListI.SubItems(1)))(1)
                              
                               dth = HutoDu(Pol0(zx, zy, Val(ListI.SubItems(2)), Val(ListI.SubItems(3))), dufenmiao) '这里返回度分秒dufenmiao=00°00′00″(dufenmiao as string）

                              
                               ListI.SubItems(4) = dufenmiao   '这里怎样显示度分秒？？？
                               ListI.SubItems(5) = GetDistance(Point3D(zx, zy, 0), Point3D(Val(ListI.SubItems(2)), Val(ListI.SubItems(3)), 0))
                              
                               ListI.SubItems(6) = ListI - ListI.SubItems(4)
                               ListI.SubItems(7) = ListI.SubItems(1) - ListI.SubItems(5)
        Me.ListView1.ListItems.Item(1).Selected = True
        ListView1_ItemClick Me.ListView1.ListItems.Item(1)

[ 本帖最后由 lzx1556 于 2014-7-13 09:45 编辑 ]

就是在listview中显示数据，弧度转为度分秒°′″，然后怎么显示？其它是几个简单的转换函数，返回的dufenmiao（是as string），另一个是判断用的

dufenmiao 具体是函数中返回的字符值：ByRef dufenmiao As String

形式这样：dufenmiao = 度值 &“°”& 分值 &“′”& 秒值 &“″”

显示效果即00°00′00″（QQ拼音输入的），要怎么在listview相应单元格位置显示这个效果？

Pol0(zx, zy, Val(ListI.SubItems(2)), Val(ListI.SubItems(3)))是计算的弧度

dth是返回的计算用的值，dufenmiao是返回的显示用的字符值（这种效果符合阅读习惯)

存在的问题是，显示用的字符值在listview单元格中如何显示？谢谢！

[ 本帖最后由 lzx1556 于 2014-7-14 08:15 编辑 ]

搞个文本框中转一下倒可以，但又出现他们的同步刷新问题，可有办法？

变通解决掉了，谢谢诸位！