2005年10月15日

运行时动态添加和删除控件

摘要： 1、使用控件数组。 dim i as intload optch(1)optch(1).visible=true i=i+1load optch(i)with optch(i) .caption"button" &i .top=optch(i-1).top+300 .visible=trueend withunload optch(i)2、controls集... 阅读全文

posted @ 2005-10-15 15:40 奇远 阅读(310) 评论(0) 推荐(0) 编辑

VB类Class设计

摘要： Private Sub Class_Initialize() 'load ' Indicate the the database is not yet open mblnRecSetOpen = False ' Clear all object variables Call ClearObject End Sub Private Sub Class_Termin... 阅读全文

posted @ 2005-10-15 12:35 奇远 阅读(1589) 评论(0) 推荐(0) 编辑

导航