vb实现图像缩放的一种方法

小杰zxday

小杰zxday

2016-02-19 14:55

有一种朋友不在生活里,却在生命力;有一种陪伴不在身边,却在心间。图老师即在大家的生活中又在身边。这么贴心的服务你感受到了吗?话不多说下面就和大家分享vb实现图像缩放的一种方法吧。

  VB的功能强大,应用范围广。VB是标准的面向对象编程语言可视编程,采用事件驱动的编程技术。VB含有大量的VBX(控件)。这是一种针对VB的已经编写好的程序,它们在VB中以各种可视的控制对象的形式出现,例如图形按钮,文字编辑框等等,用户根据自己的需要可直接使用,使编程就象使用积木搭建房屋一样简单。

  ---- 在多媒体设计中,图像处理是关键环节。根据窗口界面的大小,图像大小和图形方式下的文字的大小的相应调整,则是一个图形应用软件要做到的基本要求之一。利用VB中的IMAGE控件可以实现图像缩放、相应调整,可以使软件界面更清晰、友好。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  ---- 具体编程如下:

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)
Option ExplicitPrivate mydb As DatabasePrivate myrs As RecordsetPrivate mystate As BytePrivate sql As StringPublic z(定义 z 为公共变量)Private Sub a_Click()Form2.ShowForm3.HideEnd Sub(不同的按钮,触发不同事件)Private Sub f_Click()EndEnd SubPrivate Sub b_Click()Form4.ShowEnd SubPrivate Sub g_Click()z = 1End SubPrivate Sub h_click()z = 2End SubPrivate Sub im1_Click()Dim zh, fan As Integer(定义 zh 和fan 为整形变量)If Im1.Width  Pi1.Width ThenHS1.Visible = FalseElseHS1.Visible = TrueEnd IfIf Im1.Height  Pi1.Height Thenvs1.Visible = FalseElsevs1.Visible = TrueEnd IfIf z = 1 Then(放大图象按钮被触发的时候,执行以下程序)Im1.Width = 1.1 * Im1.WidthIm1.Height = 1.1 * Im1.HeightFor zh = 0 To 13Image1(zh).Left =   -480 + 1.1123 * (Image1(zh).Left + 480)Image1(zh).Top = 1.111 * (Image1(zh).Top)Next zhEnd IfIf z = 2 Then(缩小图象按钮被触发的时候,执行以下程序)Im1.Width = 0.9 * Im1.WidthIm1.Height = 0.9 * Im1.HeightFor zh = 0 To 13Image1(zh).Left =   -480 + 0.89 * (Image1(zh).Left + 480)Image1(zh).Top = 0.89 * (Image1(zh).Top)Next zhEnd IfText1.Visible = FalseHS1.Max = Im1.Widthvs1.Max = Im1.HeightEnd SubPrivate Sub hs1_change()Im1.Left = -HS1.ValueEnd SubPrivate Sub vs1_change()Im1.Top = -vs1.ValueEnd SubPrivate Sub im1_  sedown(button As Integer, shift AsInteger, x As Single, y As Single)If button = vbRightButton Then(鼠标按下后触发其它的弹出式菜单)PopupMenu popupEnd IfEnd SubPrivate Sub Image1_Click(Index As Integer)Dim v As LongText1.Visible = Truev = IndexSet mydb = OpenDatabase("c:pkuang.mdb")sql = "select tong.编码,tong.内容 from tong"Set myrs = mydb.OpenRecordset(sql, dbOpenSnapshot)myrs.Move v (根据当前坐标点的位置进行调整)Text1.Text = myrs.Fields("内容")End Sub
---- 通过 IMAGE控件的使用,可以简化编程中的某些步骤,使程序优化、简便。

展开更多 50%)
分享

猜你喜欢

vb实现图像缩放的一种方法

编程语言 网络编程
vb实现图像缩放的一种方法

VB调用IMAGE控件实现图像缩放的一种方法

编程语言 网络编程
VB调用IMAGE控件实现图像缩放的一种方法

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

VB5实现窗口图像缩放、滚动技巧

编程语言 网络编程
VB5实现窗口图像缩放、滚动技巧

网站登录记忆跳转实现的一种方法

Web开发
网站登录记忆跳转实现的一种方法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

正弦函数的绘制的一种方法

电脑网络
正弦函数的绘制的一种方法

判断Checkbox和Radio的一种方法

Web开发
判断Checkbox和Radio的一种方法

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

让VisualBasic实现隐藏Mouse

让VisualBasic实现隐藏Mouse

直接编辑VB中网格控制项的两种方法

直接编辑VB中网格控制项的两种方法
下拉加载更多内容 ↓