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 阅读(21) | 评论 (0) 编辑