Question

vb 6.0 自己写个函数修改label.caption

对 任意名称 的 label 都要可以调用该函数清空~

Answer 1

Private Sub Command1_Click()
temb = Chcaption("label1", "你是好人", Me)
MsgBox temb
temb = Chcaption("text1", "你是好人", Me)
MsgBox temb
End Sub
Function Chcaption(ByVal s1 As String, ByVal s2 As String, f As Form) As Boolean
's1 可以使任意有caption属性的控件，因为控件名不能重复，所以唯一。s2是要改的内容，f是窗体名（me,form1,form2……)
On Error GoTo e1
For Each a In f.Controls
If UCase(a.Name) = UCase(s1) Then
a.Caption = s2
Chcaption = True
Exit Function
End If
Next
e1:
Chcaption = False
End Function
'可以调用其他窗体控件名，更改属性，但是窗体必须存在，成功返回 true 不成功返回假值

Answer 2

要求说具体点
Private Sub Command1_Click()
Change "123"
End Sub
Sub Change(str As String)
Label1.Caption = str
End Sub

追问

对 任意名称 的 label 都要可以调用该函数清空~

追答

你说的是通过Label的Name（也就是名称）属性来作为参数？这个是不能作为参数的，可以通过别的方法实现，不能通过Name属性。
我不清楚你具体要实现个什么目标，其实清空Label文本就是
Label1.Caption=""
这样就可以了

追问

就是通过函数实现label.caption 的功能，对于任意一个label，通过调用该函数修改caption
题目就是这样的~~~
我觉得是写一个”Label1.Caption=“语句的替代