str = Text1.Text 'Str为喊话内容
i = 0
data = StrConv(str, vbfromUnicode)
While i <= UBound(data)
If data(i) < 128 Then
PostMessage hwnd, WM_CHAR, data(i), 0&
PostMessage hwnd, WM_SETFOCUS, 0, 0 '获得窗口焦点
PostMessage hwnd, WM_KEYDOWN, VK_RETURN, MapVirtualKey(VK_RETURN, WM_KEYDOWN) '发送回车键
i = i + 1
Else
PostMessage hwnd, WM_CHAR, data(i), 0&
PostMessage hwnd, WM_CHAR, data(i + 1), 0&
i = i + 2
End If
Wend
自己转肯定要VB和C#都会用啊,,要不就找工具吧。。看有没有。
DLLIMPORT PostMessage所在的DLL,再定义需要的常量
C# code:
int i=0;
string talkStr = talkTBox.Text;
byte[] talkBytes = System.Text.Encoding.Unicode.GetBytes(talkStr);
while (i < talkBytes.Length)
{
if (talkBytes[i] < 128)
{
PostMessage(gameHandle, (int)WinIo.WinMsg.WM_CHAR, talkBytes[i], 0);
i++;
}
else
{
PostMessage(gameHandle, (int)WinIo.WinMsg.WM_CHAR, talkBytes[i], 0);
PostMessage(gameHandle, (int)WinIo.WinMsg.WM_CHAR, talkBytes[i+1], 0);
i = i + 2;
}
}
我用Delphi写了一个DLL, DLL里有MDI的子窗体,DLL初始化时 传递调用者的TApplication给DLL, 在Delphi7中调用已经通过,但是不知道在VB中有无TApplication对应类型, 是否能在VB中调用?
你好,用instance不是就可以了 ......
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!
没分了,楼主多来点分!
来接点分
......