编程论坛 → VB6论坛

listview 如何显示度分秒？

lzx1556 发布于 2014-07-13 09:41， 527 次点击

请问在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 编辑 ]

7 回复

#2

砖家的谎言2014-07-13 10:07

这是干啥的

#3

风吹过b2014-07-13 22:18

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   '这里怎样显示度分秒？？？

你上面一句， dufenmiao 的内容是什么？？是浮点，还是什么？
你也说的返回是度分秒，竟然返回的度分秒，  那是什么情况。

#4

lzx15562014-07-13 22:52

回复 2 楼砖家的谎言

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

#5

lzx15562014-07-13 22:59

回复 3 楼风吹过 b

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 编辑 ]

#6

风吹过b2014-07-14 08:36

listview 里默认是字符值。

你直接把 dufenmiao = 度值 &“°”& 分值 &“′”& 秒值 &“″” 这个显示进去，它显示为什么情况？？
是吃掉了符号？还是自动转化为弧度？？

-------------
搭建测试环境好烦。

#7

lzx15562014-07-15 10:56

回复 6 楼风吹过 b

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

#8

lzx15562014-07-15 11:35

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

1