如何向图片框输入文字

Question

Picturebox中如何打入任意的汉字
就像文本框TextOut 的API可以打预定好的字，但是用拼音输入法如何输入图片框中
谢谢，问题解决，立即结分

Answer 1

Option ExplicitPrivate Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As LongPublic MyStr As StringPrivate Sub Picture1_KeyPress(KeyAscii As Integer)
    MyStr = MyStr & Chr(KeyAscii)
    Picture1.Refresh
End SubPrivate Sub Picture1_Paint()
    TextOut Picture1.hdc, 0, 0, MyStr, LenB(MyStr)
End Sub随便写了几行，没问题呀

Answer 2

可以在PICTUREBOX中放一个TEXT控件并设置VISIBLE为FALSE,然后当需要输入文字的时候,(比如按个什么按钮之类的)此时将它变成可见,然后这个TEXT控件就作为文字接收,当按下某个键(比如回车,可以用TEXT_KEYPRESS等事件接收)的时候,就把TEXT上的文字用TEXTOUT输出到PICTURE上,并把TEXT控件变成不可见

Answer 3

谢谢大家，Hassle() 的方法试了一下，英文没有问题，五笔有时有点问题，紫光拼音怎么打不进去呢，看到的全都是“空”。而且发现了个新问题，输入法的框框栏看不到？这个怎么办

Answer 4

WallesCai(算了下命,居然说我今年桃花遍地,紫溦星临头!) ：
谢谢的思路，可行。可是TextBox是如何实现的接收呢？我很想知道其中的原理，应该用纯代码可以实现吧？不知道应该调用哪个API?

Answer 5

TO：Hassle() 
又测试了一下，拼音的也能够输入但是有两个问题：1.快速输入英文字母或者打上比较长的词时会出现类似乱码情况。2.看不到输入法（后来看到输入框在窗体的后边，怎么也拉不到前边）
这是何故？