已知一文件夹下有一个VB6.0的工程和窗体文件,该窗体上有一个文本框控件。欲通过另外的一个程序判断该窗体上是否存在该文本框,如果存在再判断该控件的属性。
我的想法是先通过一个 程序使该工程运行,然后可以判断窗体上的控件及属性,但是我现在不知道怎样在一个程序里调用*.VBP文件,还有我还没想明白如何读取、判断控件的相关代码。
请各位贤人帮忙,帖子贴了四个,两天,一点头绪没有,急人啊!!!

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim x As String
    Open App.Path & "\xxxx.frm" For Input As #1
    x = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    If InStr(x, "Begin VB.TextBox Text1") > 0 Then
    x = Split(x, "Begin VB.TextBox Text1")(1)
    x = Split(x, "End")(0)
    x = "Text1:" & vbCrLf & x
    MsgBox x
    Else
    MsgBox "没发现text1文本框!"
    End If
    End Sub