put #1,recnum,pers
loop while ucase(asp)="Y"
recnum = LOF(1) \ Len(pers)
get #1,i,pers追问
果然高手还有好多要问
vb怎么按“冒泡排序”按钮实现从小到大排序,并输出在个文本框中
For i = 1 To 10 For j = 1 To 10 - i If a(j) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(j) a(j) = temp End If Next j Next i 上面是冒泡排序法
如何在vb中点击一个按钮自动把text中内容搜索
InStr([start, ]string1, string2[, compare])下标从1开始 返回指定一字符串在另一字符串中最先出现的位置。在字符串string1中，从start开始找string2，省略start时从string1头开始找。找不到时，函数值为0。用start可以实现持续查找 就是继续寻找下一个结果。
vb 遍历窗口下所有控件里的文字(高分)
1. 标签有句柄，是由 SetWindowText 实现的（其实从底层一点看，还是发送了 WM_SETTEXT 消息），例如VC、Masm 32 的程序。这种情况好解决，GetWindowText 或 发送WM_GETTEXT消息就OK了；2. TextOut 画上去的（例如 VB 就是这样的）。这种情况要 hook TextOut；GetWindowText()或SendMessage()都无法...
VB怎么实现按一个按钮就把文本筐内的文字复制
command1_click事件中写以下代码：clipboard.settext text1.text 全部代码：Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub
vb中如何通过点击按钮,全选文本框中所有文字?
1）在窗体上布置一个TextBox和一个Command控件 2）窗体代码 Option ExplicitPrivate Sub Command1_Click() '选择文本框中所有文本 With Text1 .SelStart = 0 .SelLength = Len(Text1.Text) '让文本框获取焦点 .SetFocus End WithEnd SubPrivate Sub Form_Load() '在Tex...
vb 使一个按钮按下能让一个text里的内容在一个对话框中弹出,弹出的对话...
用MsgBox函数，后面加药显示的消息内容，可以用“&”连接符来加
vb中点击按钮后,如何模拟鼠标动作自动全选文本框中所有文字
Private Sub Command1_Click()Dim l As Long l = 0 Text1.SetFocus Text1.SelStart = 0 Do While l <= Len(Text1) - Text1.SelStart Text1.SelLength = l l = l + 1 DoEvents Sleep 50 '延时50毫秒 Loop End Sub 难得你想实现按键精灵的效果？用API mouse_event和 getwindow...
vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先，双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性！"】。4、然我们开始运行测试。5、启动后，我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。
VB6.0中如何用按钮对DataGrid中的记录进行操作
添加命令;Private Sub Command1_Click()Adodc1.RecordSource = " select * from 超级用户表"Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)Adodc1.Recordset.Update MsgBox "用户添加成功！！！
VB中多个按钮,点击后然后在窗体固定位置显示不同的内容
用容器控件（PictureBox或Frame控件）可以实现。比如先放一个PictureBox控件，在上面再放上其他控件；然后再在窗体放入一个PictureBox控件，再在上面放上另一批按钮、文本框之类的控件，依此类推。然后点第一个按钮时，把第一个PictureBox的Visible属性设为True，其他PictureBox的Visible属性设为False；同理...
