Private Sub Form例题一2_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize PictureBox1.Height = Me.Height - 20
PictureBox1.Width = Me.Width - 20 Dim grfx As Graphics = PictureBox1.CreateGraphics
grfx.DrawImage(img, 0, 0, PictureBox1.Width, PictureBox1.Height)
End SubRT,上面的代码基本偶实现了题目中问题,但是还,有问题,我无法解决:当FORM最大化操作时,图像不能完全显示,只能显示一部分。求大神指点小菜鸟。
同样的代码写在ResizeEnd,Paint,MaximumSizeChanged都无法解决。
用户不能操作鼠标。
PictureBox1.Width = Me.Width - 20 Dim grfx As Graphics = PictureBox1.CreateGraphics
grfx.DrawImage(img, 0, 0, PictureBox1.Width, PictureBox1.Height)
End SubRT,上面的代码基本偶实现了题目中问题,但是还,有问题,我无法解决:当FORM最大化操作时,图像不能完全显示,只能显示一部分。求大神指点小菜鸟。
同样的代码写在ResizeEnd,Paint,MaximumSizeChanged都无法解决。
用户不能操作鼠标。
解决方案 »
- VB中datagrid指向最新更新的那条记录的代码怎么写的呀
- ADO连接SQL远程数据库->执行查询,如何进行速度优化?
- 我用vb6+sql server 2000(MSDE)编程,为什么非要用“信任 SQL Server 连接”呢?若在企业管理器中改成“使用 SQL Server 身份验证”,数据库又附加不上。
- 数组异或问题
- 文本问题,100分
- 急,excel报表问题
- 在vb中实现多线程问题。
- 看看就有分~!
- 如何给分?另oracle => ado =>datagrid => excel 超级难题,72小时内给分
- 图片框中如何实现连续不断的曲线绘制
- 关于文本框获取的数字比较大小的问题
- 怎么在VB数据报表中添加vsFlex8.ocx
或者,
PictureBox1.Height = Me.Height - 20
PictureBox1.Width = Me.Width - 20
这个下面,也加上
图片的高= PictureBox1.Height-10
图片的高= PictureBox1.Widtht-10试试看吧,自己估计的,没测试
Private Sub Piclogo_Resize()
If Piclogo = 0 Then Exit Sub
Piclogo.PaintPicture Piclogo, Piclogo.ScaleLeft, Piclogo.ScaleTop, Piclogo.ScaleWidth, Piclogo.ScaleHeight
DoEvents
End Sub