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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → vb中如何实现输入文本转换成想要的符号

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1433 人关注过本帖

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

只看楼主加入收藏

vb小小白

等　级：新手上路
帖　子：6
专家分：0
注　册：2022-1-16
结帖率：33.33%

楼主

已结贴√ 问题点数：15 回复次数：5

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

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

搜索更多相关主题的帖子: vb　符号　转换　文本　输入　

2022-09-05 21:46

apull

来　自：三体星系
等　级：版主
威　望：216
帖　子：1509
专家分：9241
注　册：2010-3-16

第 2 楼

得分:8

程序代码：

供参考
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