内有设计窗体的图片，和运行效果图 该窗体由全图片构造，包括，标题栏，最大化、最小化、关闭按钮，一下为部分代码， Private Sub Form_load() Dim retValue As Long Image5.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image6.Picture = LoadPicture("D:\vb测试\vb实例\窗体的设计2\8.jpg") Image7.Picture = LoadPicture("D:
下面的代码可以实现，vb窗口最大化的时候，里面的控件一起变化 Option Explicit Private InitWidth As Long ' Form 的原始大小 Private InitHeight As Long Private Sub Form_Load() InitWidth = ScaleWidth InitHeight = ScaleHeight Dim Ctl As Control ' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 On E
