一个简单的VB问题.诚恳求教!满意的80分拿去
发布网友
发布时间：2022-04-24 07:16
共5个回答
热心网友
时间：2022-06-17 09:33
代码如下：
dim l as long
l=1
if l=1 then
text1.text=""
l=2
elseif l=2 then
text2.text=""
l=1
end if
如此，不知道有没有用，也不知道你要做什么，如果你利用timer控件不是很方便，你也可以把上面的代码拆了，然后放到你循环执行的代码中，注意不要弄错了。
热心网友
时间：2022-06-17 09:33
'下面分两步实现上述目的
'第一步，请先建立一个模块，并输入复制以下内容：
'-----------bas-----------
Option Explicit
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const EM_LINELENGTH = &HC1
Public Const EM_REPLACESEL = &HC2
Public Const EM_SETSEL = &HB1
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Sub SendWinText(hwd As Long, SendString As String)
Dim k As Long, aClass As String
If hwd = 0 Then Exit Sub
k = SendMessage(hwd, EM_LINELENGTH, 1, 0) '取得文本宽度
SendMessageByNum hwd, EM_SETSEL, 0, k '选中文本
SendMessageByString hwd, EM_REPLACESEL, 1, SendString '传递文本
End Sub
Public Sub SendWinKey(hwd As Long, vbkey)
Dim i As Integer, J As Integer, s As String, tmp As String
If hwd = 0 Then Exit Sub
SendMessage hwd, WM_KEYDOWN, vbkey, 0& '模拟按下指定键
SendMessage hwd, WM_KEYUP, vbkey, 0&
End Sub
'--------------end-------------
'第2步：
'假设游戏发送信息的文本框的hwnd已知(设为hwd)，则游戏自动发送信息的关键代码如下：
SendWinText hwd,text1.text '向游戏文本框发送text1文本
SendWinKey hwd,13 '回车按键
SendWinText hwd,text2.text '向游戏文本框发送text2文本
SendWinKey hwd,13 '回车按键
'OK，祝你好运！
热心网友
时间：2022-06-17 09:34
前面的观众没理解问题
并不是要清空
楼主的意思是反复读取两个TextBox的值
以下代码运行环境VB2008(.NET)
如果你是VB6的话可以用控件组或者也可以用以下方法但是代码不同
Dim AllText(2) As TextBox
AllText(1) = TextBox1
AllText(2) = TextBox2
Dim i As Integer = 1
While i <> 0
If i = 1 Then
i = 2
Else
i = 1
End If
MsgBox(AllText(i).Text) '这句你自己写,这个只是演示
End While
此段代码运行结果就是不断弹出对话框一次显示TextBox1的文本,一次显示TextBox2的文本,不断重复不会停止,TextBox就是VB6中的Text控件
热心网友
时间：2022-06-17 09:34
Private Sub Timer1_Timer()
Text1.Text=""
Text2.Text=""
……（想弄几个就弄几个）
End Sub
这样就行了吧，什么东西都没了！
热心网友
时间：2022-06-17 09:35
static a as boolean
a= not a
if a then
text1.text=""
else
text2.text=""
end if
end sub
