当前位置:编程学习 > VB >>

我只知道一个控件的名字,怎样对该控件进行属性设计?

我只知道一个控件的名字,怎样对该控件进行属性设计? 来人帮帮忙啊?
你想做什么没说清楚 比如我说我输入一个数字5,和5对应的是Button5,我怎么让程序自动的去改动button5的属性? 急啊?来人帮忙啊?
找本入门教程看看吧 出钱给某人,你说个5,他就帮你改了。
我艹
引用 3 楼 bcysq 的回复:
比如我说我输入一个数字5,和5对应的是Button5,我怎么让程序自动的去改动button5的属性?

哦 这个东西要用callbyname函数或者是集合~ CallByName 函数

      

执行一个对象的方法,或者设置或返回一个对象的属性。

语法

CallByName(object, procedurename, calltype,[arguments()])

CallByName 函数的语法有以下部分:

部分 描述 
object 必需的;变体型(对象)。函数将要执行的对象的名称。 
procedurename 必需的;变体型(字符串)。一个包含该对象的属性名称或者方法名称的字符串表达式。 
calltype 必需的;常数。一个 vbCallType 类型的常数,代表正在被调用的过程的类型。 
arguments() 可选的:变体型(数组)。 


说明

CallByName 函数用于获取或者设置一个属性,或者在运行时使用一个字符串名称来调用一个方法。

在下面的例子中,第一行使用 CallByName 来设置一个文本框的 MousePointer 属性,第二行得到 MousePointer 属性的值,第三行调用 Move 方法来移动文本框:

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100


还可以这么办
me.Controls("Label" & CStr(J + 114)).Caption = “AAAA”
引用 8 楼 ybh37 的回复:
CallByName 函数

   

执行一个对象的方法,或者设置或返回一个对象的属性。

语法

CallByName(object, procedurename, calltype,[arguments()])

CallByName 函数的语法有以下部分:

部分 描述 
object 必需的;变体型(对象)。函数将要执行的对象的名称。 
procedurena……

正解。

但是初学者往往有这种需求,是没有必要这么做的。控件数组是最好的选择。

建议找一本基本的VB教程学习下。 知道名字了,在网上搜用法就可以了 看看我的回答 没那么复杂,Form.Controls 集合可以通过名称取成员的。
Option Explicit

Private Function GetButton(ByVal n As Long) As CommandButton
    Set GetButton = Me.Controls("Button" & n)
End Function

Private Sub Command1_Click()
    Dim btn As CommandButton
    
    Set btn = GetButton(5)
    btn.Caption = "hello"
End Sub
引用 7 楼 ybh37 的回复:
哦 这个东西要用callbyname函数或者是集合~


学习这个函数……大脖子好 看看用户控件开发资料。
补充:VB ,  控件
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,