如何获取控件的类型,比如窗体上一个dw_1控件的类型是"datawindow"

[bcboy]

我是想通过Control[]属性来取得有类型,但ClassName()只能取得控件名,类型如何取得?

[hzhxxx]

typeof()

[shahand]

楼上的好快

[bcboy]

typeof()返回值怎么判断?

[bcboy]

我是想通过control[]属性来设置所有datawindow的属性

[bcboy]

int i,j
j = UpperBound(Control)
for i = 1 to j
MessageBox("",string(Control[i].TypeOf()))
next

返回值都为空，j = 3

[hzhxxx]

graphicobject stp_obj

object type_obj

stp_obj = Message.PowerObjectParm

type_obj = stp_obj.TypeOf()

CHOOSE CASE type_obj

CASE DataWindow!
MessageBox("The object"," Is a datawindow")

CASE SingleLineEdit!
MessageBox("The object"," Is a sle")

... // Cases for additional object types

CASE ELSE
MessageBox("The object"," Is irrelevant!")

END CHOOSE

[hzhxxx]

dragobject temp//用于取各种控件


FOR i = 1 TO upperbound(THIS.control)
temp = THIS.control[i]//调整大小，位置
temp.width = temp.width * Radio
temp.x = temp.x * Radio
temp.y = temp.y * Radio
temp.Height = temp.Height * Radio
CHOOSE CASE typeof(temp)
CASE tab!
tab mtab
mtab = temp
//设置字体
mtab.textsize = mtab.textsize * Radio
CASE commandbutton!
commandbutton cb
cb = temp
cb.textsize = cb.textsize * Radio
CASE singlelineedit!
singlelineedit sle
sle = temp
sle.textsize = sle.textsize * Radio
CASE editmask!
editmask em
em = temp
em.textsize = em.textsize * Radio
CASE statictext!
statictext st
st = temp
st.textsize = st.textsize * Radio
CASE datawindow!
// datawindows get zoomed
datawindow dw
dw = temp
//注意DATAWINDOW与其它控件的不同
dw.Object.DataWindow.zoom = string(int(Radio * 100))
CASE picturebutton!
picturebutton pb
pb = temp
pb.textsize = pb.textsize * Radio
CASE checkbox!
checkbox cbx
cbx = temp
cbx.textsize = cbx.textsize * Radio
CASE dropdownlistbox!
dropdownlistbox ddlb
ddlb = temp
ddlb.textsize = ddlb.textsize * Radio
CASE groupbox!
groupbox gb
gb = temp
gb.textsize = gb.textsize * Radio
CASE listbox!
listbox lb
lb = temp
lb.textsize = lb.textsize * Radio
CASE multilineedit!
multilineedit mle
mle = temp
mle.textsize = mle.textsize * Radio
CASE radiobutton!
radiobutton rb
rb = temp
rb.textsize = rb.textsize * Radio
END CHOOSE
NEXT

THIS.show()

THIS.SetRedraw(false)

[bcboy]

再想问 hzhxxx(程序方程) 一下:
如果control[]中有多个不同的用户对象,如果不通过tag值如何区分?

谢谢