注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

润物无声

互相学习,以求进步

 
 
 

日志

 
 

VB窗体背景  

2014-01-20 15:18:41|  分类: Visual Basic |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

1.直接编辑图片使图片平铺窗体                                  

Dim i As Integer, j As IntegerPrivate Sub fullpic()                  

  For j = 0 To Me.Height Step pic1.ScaleHeight

  For i = 0 To Me.Width Step pic1.ScaleWidth

  Me.PaintPicture pic1.Picture, i, j

  Next i

  Next j

End Sub

Private Sub Form_Paint()

  Call fullpic

End Sub

 效果图:

窗体背景 - 范晓权 - 范晓权 廊坊师范学院信息技术提高班十一期窗体背景 - 范晓权 - 范晓权 廊坊师范学院信息技术提高班十一期

2.利用图像框imagebox使背景图片逐渐变大。.

Option Explicit

Private Sub Command1_Click()

  On Error GoTo errorhandler                          on  Error  GoTo 语句表示错误处理程序

  Image1.Height =Image1.Height + 500      表示图片框中的图片以左顶点为基点,以500缇单

  Image1.Width =Image1.Width + 500         位扩大其长度和宽度,达到扩大图片的目的。

errorhandler:

End Sub

Private Sub Command2_Click()

  On Error GoTo errorhandler

  Image1.Height = Image1.Height - 100

  Image1.Width =Image1.Width - 100

errorhandler:

End Sub

3.利用图像框使图片拉伸图片铺满整个屏幕

 Private Sub Form_Load()

  From1.Width = Screen.Width

  From1.Height = Screen.Height

  Image1.Picture = LoadPicture("C:\Documents and Settings\jf2-145\桌面\VB百例\实例30:拉伸图片\34.jpg")

  Image1.Top = 0

  Image1.Left = 0

End Sub

Private Sub Form_Resize()

  Image1.Width = From1.Width

  Image1.Height = From1.Height

End Sub

4.利用图像框imagebox使图片在窗体中居中。 

Private Sub Form_Load()

  Image1.Picture = LoadPicture("C:\Documents and Settings\jf2-145\桌面\爱情图片\31.jpg")

End Sub

Private Sub Form_Resize()

  Image1.Top = (From1.ScaleHeight - Image1.Height) / 2

  Image1.Left = (From1.ScaleWidth - Image1.Width) / 2

End Sub

 5.利用图像框使图片适应窗体的大小。

Private Sub Form_Load()

  Form1.Picture = LoadPicture("C:\Documents and Settings\jf2-145\桌面\爱情图片\14.jpg")

  Form1.AutoRedraw = True

End Sub

Private Sub Form_Resize()

  Image1.Top = 0

  Image1.Left = 0

  Image1.Stretch = True

  Image1.Height = Form1.ScaleHeight

  Image1.Width = Form1.ScaleWidth

  Image1.Picture = Form1.Picture

End Sub

运行前                                                     运行时

VB窗体背景 - 范晓权 - 范晓权 廊坊师范学院信息技术提高班十一期   VB窗体背景 - 范晓权 - 范晓权 廊坊师范学院信息技术提高班十一期

 

 


  评论这张
 
阅读(47)| 评论(32)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017