vb 控件的属性如何从记事本里提取比如label. caption=a.txt里的第一行

VB60

需要掌握的知识：打开文本文件读取数据。

Dim aline As String

Open AppPath & "\atxt" For Input As #1 '以读的方式打开文件

Line Input #1, aline '读入第一行数据到字符型变量aline

Close #1 ' 关闭文件。

label caption=aline

说明：这里假设你的文本文件名为"atxt"，且与你的这个VB程序文件保存在同一个文件夹里。

当然，你也可以直接读取：

Open AppPath & "\atxt" For Input As #1 '以读的方式打开文件

Line Input #1, label caption '读入第一行数据到label caption

Close #1 ' 关闭文件。

先找到窗口的句柄，再来查找按钮的句柄，如果按钮有文本内容，那就好办，如果没有，那建议你利用SPY++先来察看一下按钮的类型，以此类型为查找参数多次调用FindWindowEx来查找，直到找到的的句柄和Spy++相同，那么这个按钮就找到了。

按钮类名同样，但是你去遍历的时候它的次序始终是固定的。通过id不可靠，有些有id但是有些id是0。

clswindow类，里面有个函数etElementHwndByClassName，可以得到指定的次序按钮。加入你要处理的按钮是在第二个次序，类名为Button，那么就用：GetElementHwndByClassName("Button",2)，即可，

具体代码：

Private Sub Command6_Click()

Dim w As New clsWindow

Dim i%

If wGetWindowHwndByTitleEx("自动化 *** 作框架") > 0 Then

i = i + 1

Do While wGetElementHwndByClassName("ThunderCommandButton", i) > 0'按次序遍历

MsgBox wGetElementHwndByClassName("ThunderCommandButton", i)'得到当前次序按钮的句柄

wSetElementTextByClassName "ThunderCommandButton", "次序" & i, i'设置按钮文本

i = i + 1

Loop

End If

End Sub

如果在VB程序中，控件都是你设置的，这么做没有什么意义，多半你是想遍历网页中的控件

针对不同的控件进行处理

select colnodename

case "Select"

case "input"

case else

end select

当然可以

1,双击一个控件来到代码面板后

上方左侧下拉框是控件对象名称(双击按钮,就是按钮的名字),

右侧的下拉框里面就是按钮方法列表

2,打开vb的对象浏览器,输入控件名称(例如command,picturebox等)

搜索结果可以看到所有的方法和属性

以上就是关于vb 控件的属性如何从记事本里提取比如label. caption=a.txt里的第一行全部的内容，包括:vb 控件的属性如何从记事本里提取比如label. caption=a.txt里的第一行、vb怎么获取控件句柄和内容、VB怎么遍历一个控件下的所有属性值等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！