如何高效实现在文本框末尾按回车后自动输入“问：”或“答：”？

wuaza

如题，文本框内输入一问一答式的笔录内容，如：
问：你今年几岁？
答：30岁？
问：你做什么工作？
答：做外贸的。
问：......
我想实现的功能是，在文本末尾第一次按回车后，自动填入“问：”，第二次按回车后自动填入“答：”，请各位大侠支招，万分感谢！

玉树TMD临风

1、在文本框的“键按下”事件里，捕捉到键入chr(13)后，自动录入“问”或“答”值。

2、判断文本框中最后一次出现的“问：”和“答：”位置，如果“问：”是最后一个，则输入“答：”值，反之亦然。

玉树TMD临风

小小提醒：别忘了自动录入“问：”后，要sendkeys "{END}"，让光标自动到尾部。

另外你应该是在做询问笔录程序吧，我自己做了一个，目前使用正常，不过不是用的你这种模式，我用的是子窗体中的连续窗体，可实现任意一条记录的上、下移动、删除、添加等，回头有空发上来。

文本框的比较直观，缺点是添加、删除和移动不方便，连续窗体的则不直观，但是可以用报表弥补。

wuaza

谢谢玉树TMD临风的快速回复。这是抽除了某些内容的询问笔录，请多指教。
我原来也是做的连续窗体，后来因为某些问答内容不能完全显示，就改用了大文本框。

wuaza

再问一下，能不能用sendkeys语句自动录入某个中文字符？如“问”、“答”。
而不用如下的语句：
txt询问内容=txt询问内容&"问："

空谷红门

to4#:
连续窗体作为笔录问答的录入与显示确实有点问题,嘿嘿,这个我也头大呢,但是,没心思去改方案了,所以,现在也就只好凑合着用了.

玉树TMD临风

wuaza 发表于 2014-4-20 13:06
谢谢玉树TMD临风的快速回复。这是抽除了某些内容的询问笔录，请多指教。
我原来也是做的连续窗体，后来因 ...

关于内容不能完全显示的问题，我是在连续窗体最上方添加了个大文框，可以实时显示你当前文本框里输入的内容

玉树TMD临风

wuaza 发表于 2014-4-20 14:28
再问一下，能不能用sendkeys语句自动录入某个中文字符？如“问”、“答”。
而不用如下的语句：
txt询问 ...

可以用sendkeys chr(-12598) & chr(-23622 )，就是“问：”，至于答你用asc函数查一下

wuaza

非常感谢玉树TMD临风大侠，解决了我的大问题。

wuaza

这是最后成形的代码，很管用。（blp是窗体公共变量）
Private Sub txt询问内容_KeyUp(KeyCode As Integer, Shift As Integer)
On Error Resume Next
    If KeyCode = 13 Then
        '可用asc函数查找任意字符的代码。
        If blp = False Then
            SendKeys Chr(-12598) & Chr(-23622)
        Else
            SendKeys Chr(-19216) & Chr(-23622)
        End If
        blp = Not blp
    End If
End Sub