Board logo

标题: [基础] 怎样向某一程序的文本框中自动输入字符后又自动执行程序? [打印本页]

作者: lixian39    时间: 2007-6-16 20:21     标题: 怎样向某一程序的文本框中自动输入字符后又自动执行程序?

例如,自动打开某一查找程序,在查找对象的文本框中自动输入我要查找的内容“basic”后,自动执行查找程序。
作者: Nothing    时间: 2007-6-16 21:41

不明白你的意思?
是自动运行程序还是查找文件?
作者: lixian39    时间: 2007-6-17 07:08

先是自动在文本框中输入要查找的内容,然后再自动运行查找程序。
用VB编程来完成以上功能。
作者: Nothing    时间: 2007-6-17 08:30

先建个文本框,可以输入内容,然后用dir命令查找文件。
作者: Nothing    时间: 2007-6-17 08:31


          Option Explicit
          Dim filesearch As String
          Dim findflag As Boolean
            
          ' 清空搜索结果
          Private Sub clrcmd_Click()
                  lstfiles.Clear
          End Sub
            
          ' 开始查找文件
          Private Sub cmdgo_Click()
          Dim starttime As Single
          Dim i As Integer
          Dim Add As Boolean
            
          lstfiles.Clear '查找文件之前先清空结果
          lstdirs.Clear
          findflag = True '设置查找标志
          stopcmd.Enabled = True '设置停止查找按钮为可用
          clrcmd.Enabled = False '设置清空结果按钮为不可用
          starttime = Timer '记录开始查找时刻
          filesearch = Combo1.Text
          ' 将查找文件加入到组合框中
          For i = 0 To Combo1.ListCount - 1
                  If Combo1.List(i) <> Combo1.Text Then
                          Add = True
                  Else
                          Add = False
                  End If
          Next
          If Add = True Then
                  Combo1.AddItem (Combo1.Text)
          End If
          lstdirs.AddItem (Drive1.Drive & "\")
          ' 执行查找文件
          Do
                  status.Caption = "Searching . . . " & lstdirs.List(0)
                  ' 调用函数
                  findfilesdir lstdirs.List(0)
                  ' 从目录列表中移除
                  lstdirs.RemoveItem 0
                  ' 中途退出查找
                  If findflag = False Then
                      Exit Do
                  End If
          Loop Until lstdirs.ListCount = 0
          stopcmd.Enabled = False
          clrcmd.Enabled = True
            
          ' 显示查找文件的信息
          status.Caption = "用时" & Timer - starttime & "秒 " & "找到" & lstfiles.ListCount & "个文件"
          End Sub
            
          ' 用来查找文件的函数
          Public Sub findfilesdir(DirPath As String)
          Dim filestring As String
          DirPath = Trim(DirPath)
            
          If Right(DirPath, 1) <> "\" Then
              DirPath = DirPath & "\"
          End If
          ' 使用Dir函数获得DirPath目录下的文件或目录
          filestring = Dir(DirPath & "*.*", vbArchive Or vbHidden Or vbSystem Or vbDirectory)
          Do
              DoEvents '转让控制权,以便让操作系统处理其它的事件
              If filestring = "" Then
                  Exit Do
              Else
                  If (GetAttr(DirPath & filestring) And vbDirectory) Then
                      If Left(filestring, 1) <> "." And Left(filestring, 2) <> ".." Then
                          lstdirs.AddItem DirPath & filestring & "\"
                      End If
                  Else
                      ' 比较以确定是否是要查找的文件
                      If (filestring Like filesearch) Then
                      lstfiles.AddItem DirPath & filestring
                      End If
                  End If
              End If
              filestring = Dir ' 返回其他文件名
          Loop
          End Sub
            
          ' 结束退出
          Private Sub quitcmd_Click()
                  Unload Me
                  End
          End Sub
            
          ' 停止查找
          Private Sub stopcmd_Click()
                  findflag = False
                  stopcmd.Enabled = False
          End Sub
            
          Private Sub Form_Load()
                  Combo1.AddItem ("*.*")
          End Sub
   

作者: Nothing    时间: 2007-6-17 08:39     标题: 利用API函数查找文件


Public Declare Function SearchTreeForFile Lib "imagehlp.dll" (ByVal lpRoothPath As String, ByVal lpInputName As String, ByVal lpOutputName As String) As Long

'---- 下面为sysFileFind函数的编码:

Public Function sysFileFind(ByVal WhichRootPath As String,ByVal WhichFileName As String) As String
    Dim iNull As Integer
    Dim lResult As Long
    Dim sBuffer As String
    On Error GoTo L_FILEFINDERROR
    sBuffer = String$(1024, 0)
    '注释:查找文件
    lResult = SearchTreeForFile(WhichRootPath, WhichFileName, sBuffer)
    '注释:如果文件找到,将返回字符串后续的空格删除
    '注释:否则返回一个空字符串
    If lResult Then
        iNull = InStr(sBuffer, vbNullChar)
        If Not iNull Then
            sBuffer = Left$(sBuffer, iNull - 1)
        End If
        sysFileFind = sBuffer
     Else
            sysFileFind = ""
    End If
Exit Function
L_FILEFINDERROR:
    MsgBox "查找文件过程中遇到错误!",
    vbInformation, "查找文件错误"
    sysFileFind = Format(Err.Number) & " - " & Err.Description
End Function

'---- 该函数可以很快遍历整个硬盘,从而查找到我们所需的文件。






欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0