16,557
社区成员
发帖
与我相关
我的任务
分享
sub button1_click() handles button1.click
invmethod(val(text1.text),val(text2.text))
end sub
Delegate de1(byval x as integer,byval y as interger)
dim mydeg as de1
sub form_load() handles mybase.load
mydeg=adressof invmethod
end sub
sub invmethod(x as integer ,y as integer)
if me.invokerequired then
me.invoke mydeg
else
label1.text=x.tostring
lable2.text=y.tostring
end if
end sub