凸轮泵主窗体CAD系统代码设计

2014/11/1 16:20:21      点击:
凸轮泵主窗体加载的时候要显示状态栏,并添加窗体背景图片。其实现代码如下:
Private Sub MDIForm_LoadO
MDI系统.Picture;LoadPictIllre(App.Path&-/主界面.Jpg'3 ‘加载图片
StatusBarl.Panels(4).Text=”当前用户是:。+DangqianYongHu ‘显示图片背景
StatusBarl.Panels(3).Text=”主程序版本:1.0。 ‘显示系统版本
StatusBarl.Pancls(2).Tcxt=Format(Now,。yyyy年mm月dd日hh:rmn:ss')‘显示系统时间
End Sub
系统时间显示需要Timer时间的触发,触发代码如下:
Private Sub Timerl_Timer0
StatusBarl.Panels(2).Text=Format(Now,”YYYY年inlrl月dd日hh:mm:ss')
EndSub
当我们点击凸轮泵菜单栏中的按钮或是工具栏按钮时,要求打开相应的窗体,实现其功能,部份代码设计如下:
Private Sub 板墙_Click()       ‘菜单中功能的实现函数
banqiang.Show              ‘显示板墙窗体
End Sub
Private Sub Toolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)    ‘-F具栏中按钮功能实现
Select Case Button Index
Case 1
yelun.Show    '显示叶轮窗体
......
End Select

End Sub


////////////////////////////////////////////////////////////

力华转子泵网www.
电话:0575-83539901
传真:0575-83534469




友情链接:    123彩票开户   彩票登陆app   飞鱼彩票   57157彩票网址   浩博彩票集团