受水电部水文司委托,我所于89年11月23日开始,举办了水文数据自动采集及新型水文仪器研习班,来自全国各地水文第一线的三十一位同志,在开学典礼后,投入了紧张的学习。对这次研习班,部里非常重视,年初就开始筹划。
Private Sub Command1_Click() '00000000000000000000000 判断 catia是否开启 000000000000000000000000000 Dim CATIA As Object On Error Resume Next Set CATIA = GetObject(, "CATIA.Application") If Err.Number <> 0 Then Set CATIA = CreateObject("CATIA.Application") CATIA.Visible = True End If On Error GoTo 0 '0000000000000000000000 窗 体 文 本 框 内 的 数 值 传 递 到 函 数 对 应 的 变 量 000000000000000000000000000000000