text选中后displa出label内容 









效果很好而且很简单

用text的click属性即可

private sub text1_click()
label1.caption="******"
label2.caption=""
label3.caption=""
label4.caption=""
……
labeln.caption=""
end sub

private sub text2_click()
label1.caption=""
label2.caption="******"
label3.caption=""
label4.caption=""
……
labeln.caption=""
end sub
…………
也可加入backcolor的设置
posted @ 2014-08-14 14:31  goodbyepeterpan  阅读(230)  评论(0)  编辑  收藏  举报