随笔分类 -  VB6

• 控件显示设置
  摘要：PrivateSubShowList()Ifm_DataSourceIsNothingThenExitSubIfm_DataSource.State=0ThenExitSubIfm_DataSource.RecordCount=0ThenExitSub'将comboboxlocked,以避免combobox自动清空'txtData.Locked=TrueIfNotInitList()ThenExitSub'取得usercontrol的位置DimrcWndAsrectDimcxScreenAsLongDimcyScreenAsLongGetWindowRectUserCo 阅读全文
  posted @ 2011-06-10 01:06 fredxiong 阅读(310) 评论(0) 推荐(0)