编程论坛 → VB6论坛

vb中如何实现输入文本转换成想要的符号

vb小小白发布于 2022-09-05 21:46， 1620 次点击

比如文本里只要依次输入3.5.30自动转换成3°5′30″ 就是第一次输入.转成°第二次转成′第三次转成″，求大神指导

5 回复

apull2022-09-06 10:51

程序代码：

供参考
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Static i%
    dot = Split("°,′,″", ",")

    If KeyAscii = 46 Then
        Text1.Text = Text1.Text & dot(i)
        Text1.SelStart = Len(Text1.Text)
        KeyAscii = 0
        i = i + 1
        If i = 3 Then i = 0
    End If
End Sub

yuma2022-09-06 16:37

最后面的 ″ 没有显示出来。最后一个数后面必须打个.才行。

[此贴子已经被作者于2022-9-7 13:09编辑过]

yuma2022-09-07 13:08

这个挺好玩的。

[此贴子已经被作者于2022-9-7 13:10编辑过]

zilaxiaolin2022-09-29 10:53

学习了

约定的童话2022-09-29 12:21