简介: Dim WithEvents ieView As InternetExplorer '在通用模块中定义Internet Explorer对象 Private Sub Form_Load() cmdForward.Visible = False cmdBackward.Visible = False cmdCloseView.Visible = False '窗体调入时隐藏Internet Explorer控制按钮 End Sub Private Sub cmdView_Click() Dim txtAddress As String On Error Resume Next '设置错误陷阱 Set ieView = GetObject("",cmdForward 向前 Command cmdBackward 向后 Command cmdCloseView 关闭浏览窗口 Command cmdExit 退出 对上述窗体添加如下代码即可实现对Internet Explorer的调用与控制,"InternetExplorer.Application") ieView.Visible = True '创建Internet Explorer对象的一个实例
简介:什么是契约先行(Contract-First)?如果说一个新的软件开发模型会影响甚至改变软件开发过程,那么这样的改变对于开发人员而言,无疑是最具有深远意义的。多年以来,大多分布式应用程序的开发人员都习惯关注对象和从头开始编写一大堆的代码。然而,在面向服务(Service-Oriented)的时代,一切都将改变。从面向过程到面向对象,再到基于组件的开发(ComponentBasedDevelopment),软件开发领域经历着一次又一次的变革,而WebServices的盛行则将软件方法学的革新再一次的推到了浪尖口,一切都处在变化的焦点之中。
简介:给出了物体与细长杆或梁弹性碰撞恢复系数的一种求解方法.在研究碰撞问题时,把碰撞物作为靶体的附加质量,从而把碰撞问题转化为常规的振动问题求解.两个撞击物的分离时刻根据撞击力为零得到.结论如下:只考虑弹性碰撞时,恢复系数不仅与靶体的材料性质有关,还与碰撞物体质量比、靶体的支承条件有关,但与碰撞的初始速度无关.