怎么点击字 体符号浮动工具并在主窗体上输入音符
vb吧
全部回复
仅看楼主
level 1
睡了阿兰 楼主
我点击浮动工具 想点击DS符号 点击同时 这个符号就输入到了主窗体富文本上了 这个单击事件 要怎么写代码
2022年03月01日 15点03分 1
level 14
yjryym
先确定一下你怎么在点击浮点窗口事件里面获得点击的字符吧！
2022年03月02日 12点03分 2
睡了阿兰
链接:https://pan.baidu.com/s/18TC57nh1szeOQpKQ38MleA 提取码:vhsx 程序源码在这 不知道哪个变量是要选中的字符 我感觉通过picFont.ToolTipText获取字符
2022年03月02日 12点03分
涐吢铱舊囿儚
@睡了阿兰 看来你的编程水平还需要大多的提升才行！[狂汗]我的那个代码，当鼠标“指向”某字符时，提示其字符编码是多少，那显然就说明某位置的字符编码是“已知的”啊！直接把那个编码用ChrW函数转成字符不就行了？？？[睡觉]
2022年03月02日 14点03分
睡了阿兰
@涐吢铱舊囿儚 请看楼下 大佬 说得对 我编程能力是不行 我都是抄别人的代码
2022年03月02日 17点03分
level 1
睡了阿兰 楼主
大佬 代码这样写就行了吗 但有时候同一个字符 显示成大写的希腊字母 怎么回事 另外字符不能依次点击输入 只能鼠标移动输入 同一个位置 字符老变 后面的字符取代前面的字符 永远只能输入一个
2022年03月02日 17点03分 3
初音✨七奈
这个应该算基础了，不要给Text属性赋值，应该把Text改成SelText
2022年03月03日 06点03分
睡了阿兰
@初音✨七奈 改成frmmain.rtf.seltext也不行 出现一大串音符 而不是单个音符
2022年03月03日 07点03分
初音✨七奈
@睡了阿兰 刚才没看到你说的另一个问题：“不能依次点击输入 只能鼠标移动输入”，因为你用错事件了，应该是MouseDown，而不是MouseMove
2022年03月03日 07点03分
睡了阿兰
@初音✨七奈 谢谢 鼠标移动事件换成鼠标单击事件 一点没反应 请看楼下 不知道我写的代码对不
2022年03月03日 07点03分
level 1
睡了阿兰 楼主
有的字符编码 显示为汉字乱码 不知道怎么回事
2022年03月02日 17点03分 4
level 1
睡了阿兰 楼主
Private Sub picFont_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim w As Long
frmMain.rtf.SelText = ChrW(arrCodeTab(w))
End Sub
代码这样写也不行 因为我之前写的是 frmMain.rtf.Text = ChrW(arrCodeTab(w)) 就不行 换成SelText也不行
2022年03月03日 07点03分 5
level 15
初音✨七奈
这么说吧，原来的MouseMove代码是用来显示鼠标所指位置的字符的编码的，这个编码是这段代码计算出来的，保存在变量w中，最后赋值给ToolTipText属性把编码显示出来；你如果要改成“点击某个字符输入该字符”，需要把这些代码都复制到MouseDown事件中，只把最后一句给ToolTipText属性赋值的语句改成给主窗体文本框的SelText属性赋值
2022年03月03日 07点03分 6
睡了阿兰
[哈哈] 米库大佬 爱你 按照你说的 问题解决了 但有的音符 通过选择输入到富文本框里是乱码 不知道怎么回事 大部分都正常
2022年03月03日 08点03分
level 1
睡了阿兰 楼主
米库大佬 爱你 按照你说的 问题解决了 但有的音符 通过选择输入到富文本框里是乱码 不知道怎么回事 大部分都正常
2022年03月03日 08点03分 7
level 5
贴吧用户_7QQMC85
在Click事件中加上窗体名.文本框名.Text = 窗体名.文本框名.Text + "字符"
2022年04月18日 01点04分 8
1