新手学VB碰到个小问题,请各位大虾帮忙改一改

来源：百度知道编辑：UC知道时间：2024/07/02 17:38:47

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private game As Long
Private gamezi As Long
Private gamezitext As String

Private Sub Text1_Change()
SetWindowText (gamezi = Text)
End Sub

Private Sub Timer1_Timer()
game = FindWindow("SciCalc", "计算器")
gamezi = FindWindowEx(game, 0, &quo

建立2个文本直接运行下面代码
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text2.Text = Text1.Text
End Sub

我都看不下去了，怎么白痴回答这么多（今天碰上好几个了），题目看清再回
你的程序有错误（不包括得不到你所达的要求）

这个做不到的吧
GetWindowText 这个函数去看看书该如何用
SetWindowText 这个函数也用错了

vb小问题,新手?? VB新手，请各位高手帮忙学日语时碰到的小问题我是vb新手，问个问题 VB里的2个小问题请多帮助小弟用VB编程时碰到一个小问题求助， vb新手问题请大侠帮忙反恐精英新手碰到的问题 ajax新手，碰到奇怪问题问个新手问题..我想学JAVA..