怎么才能使MDI窗口背景图片撑满整个背景!而且随窗口的变化一直不变一直撑满!
谢谢!
谢谢!
解决方案 »
- 请教:在VB中,使用shell调用了一个批处理,如何判断是否执行完成
- vb6实现调用webservice登录的问题?
- 在listview控件上拖动列的问题
- 知道窗体句柄(比如339088),如何通过语句设置该窗体的样式(比如窗体上的某个Button是否可见)
- 大家帮帮我吧,建立数据源?
- 100分求:怎样在WSH中激发鼠标事件
- 请问用VB编写Excel的程序时,Excel的legend(图例)怎么控制?
- 部件选项里Microsoft office XP web components中的chartspace控件如何使用
- 怎么样给数据库的表加锁、解锁。
- 各位大哥,为了给哥们个答案。送分了
- 生日的问题,怎么解决最快
- 在vb中怎样使用命令行对access数据库加密码?
'父窗体代码
Private Sub MDIForm_Load()
Load Form1
Form1.Show
End SubPrivate Sub MDIForm_Resize()
Form1.Width = Me.ScaleWidth
Form1.Height = Me.ScaleHeight
End Sub
'子窗体代码
Private Sub Form_Paint()
Me.PaintPicture Picture1.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
End SubPrivate Sub Form_Resize()
Me.Refresh
End Sub
FrmMain.Picture1.Picture = LoadPicture(App.Path & "\jhs.jpg")
Picture1.PaintPicture Picture1.Picture,0,0,frmMain.Width,FrmMain.Height
Picture1.AutoRedraw = True
End Sub
Private Sub MDIForm_Resize()
Picture1.PaintPicture Picture1.Picture, 0, 0, FrmMain.Width, FrmMain.Height
Picture1.AutoRedraw = True
End Sub
[email protected]