摘要:
一、js访问activexVB:--------------------------------Public Property Let TxtVisible(ByVal New_TxtVisible As Boolean) Text1.Visible = New_TxtVisible PropertyChanged 'BlnSystemUser'End PropertyPublic Sub SetValue1() Text1.Text = "test zhanpeng"End SubPublic Sub SetValue2(str) Text1.Text = strEnd Sub------- 阅读全文
2011年1月19日 #