自定义控件的问题？
我想在自定义控件的模块里面调用自定义控件窗体上的控件，怎么调？
比如我的自定义控件名字叫 mshfgrid
在模块里面我要实现这个动作
mshfgrid.mshflexgrid1.toprow
谢谢了
问题点数：0、回复次数：5Top
1 楼victorycyz（--）回复于 2004-11-03 12:07:15 得分 0
直接调用就行了，不用写自定义控件名。如：
mshflexgrid1.toprow
Top
2 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-11-03 12:19:54 得分 0
使用 Parent
在自定义控件里添加一个Command1，按下后会返回被包含窗体的名字
Option Explicit
Private Sub Command1_Click()
On Error Resume Next
If Not (Parent Is Nothing) Then
Debug.Print Parent.Name
End If
End SubTop
3 楼lyxhappy（RosyClouds）回复于 2004-11-04 09:24:11 得分 0
直接调用Top
4 楼TORY（枫）回复于 2004-11-04 09:48:39 得分 0
我晕，没有呀。点不出来东西，就像form1.command1.text="" ,这样的效果？没有
Top
5 楼baoaya（点头)(大风起兮云飞扬）回复于 2004-11-04 10:15:59 得分 0
不好意识没有理解题目
你使用函数来封装自定义控件窗体上的控件 譬如：
'在 Form1 窗体里:
Option Explicit
Private Sub Command1_Click()
UserControl11.Text = "我改变了自定义控件里的Text1的值"
MsgBox UserControl11.Text'UserControl11是自定义控件
End Sub
'在自定义控件里
Option Explicit
'获取text1的值
Public Property Get Text() As String
Text = Text1.Text
End Property
'设置text1的值
Public Property Let Text(strValue As String)
Text1.Text = strValue
End Property
Top
