程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> VB調用IMAGE控件實現圖像縮放的一種方法

VB調用IMAGE控件實現圖像縮放的一種方法

編輯:VB綜合教程
VB的功能強大,應用范圍廣。VB是標准的面向對象編程語言可視編程,采用事件驅動的編程技術。VB含有大量的VBX(控件)。這是一種針對VB的已經編寫好的程序,它們在VB中以各種可視的控制對象的形式出現,例如圖形按鈕,文字編輯框等等,用戶根據自己的需要可直接使用,使編程就象使用積木搭建房屋一樣簡單。
  
  在多媒體設計中,圖像處理是關鍵環節。根據窗口界面的大小,圖像大小和圖形方式下的文字的大小的相應調整,則是一個圖形應用軟件要做到的基本要求之一。利用VB中的IMAGE控件可以實現圖像縮放、相應調整,可以使軟件界面更清晰、友好。
  
  具體編程如下:
  
  OptionExplicit
  
  PrivatemydbAsDatabase
  
  PrivatemyrsAsRecordset
  
  PrivatemystateAsByte
  
  PrivatesqlAsString
  
  Publicz(定義z為公共變量)
  
  PrivateSuba_Click()
  
  Form2.Show
  
  Form3.Hide
  
  EndSub
  
  (不同的按鈕,觸發不同事件)
  
  PrivateSubf_Click()
  
  End
  
  EndSub
  
  PrivateSubb_Click()
  
  Form4.Show
  
  EndSub
  
  PrivateSubg_Click()
  
  z=1
  
  EndSub
  
  PrivateSubh_click()
  
  z=2
  
  EndSub
  
  PrivateSubim1_Click()
  
  Dimzh,fanAsInteger(定義zh和fan為整形變量)
  
  IfIm1.Width<Pi1.WidthThen
  
  HS1.Visible=False
  
  Else
  
  HS1.Visible=True
  
  EndIf
  
  IfIm1.Height<Pi1.HeightThen
  
  vs1.Visible=False
  
  Else
  
  vs1.Visible=True
  
  EndIf
  
  Ifz=1Then(放大圖象按鈕被觸發的時候,執行以下程序)
  
  Im1.Width=1.1*Im1.Width
  
  Im1.Height=1.1*Im1.Height
  
  Forzh=0To13
  
  Image1(zh).Left=-480 1.1123*(Image1(zh).Left 480)
  
  Image1(zh).Top=1.111*(Image1(zh).Top)
  
  Nextzh
  
  EndIf
  
  Ifz=2Then(縮小圖象按鈕被觸發的時候,執行以下程序)
  
  Im1.Width=0.9*Im1.Width
  
  Im1.Height=0.9*Im1.Height
  
  Forzh=0To13
  
  Image1(zh).Left=-480 0.89*(Image1(zh).Left 480)
  
  Image1(zh).Top=0.89*(Image1(zh).Top)
  
  Nextzh
  
  EndIf
  
  Text1.Visible=False
  
  HS1.Max=Im1.Width
  
  vs1.Max=Im1.Height
  
  EndSub
  
  PrivateSubhs1_change()
  
  Im1.Left=-HS1.Value
  
  EndSub
  
  PrivateSubvs1_change()
  
  Im1.Top=-vs1.Value
  
  EndSub
  
  PrivateSubim1_mousedown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)
  
  Ifbutton=vbRightButtonThen(鼠標按下後觸發其它的彈出式菜單)
  
  PopupMenupopup
  
  EndIf
  
  EndSub
  
  PrivateSubImage1_Click(IndexAsInteger)
  
  DimvAsLong
  
  Text1.Visible=True
  
  v=Index
  
  Setmydb=OpenDatabase("c:pkuang.mdb")
  
  sql="selecttong.編碼,tong.內容fromtong"
  
  Setmyrs=mydb.OpenRecordset(sql,dbOpenSnapshot)
  
  myrs.Movev(根據當前坐標點的位置進行調整)
  
  Text1.Text=myrs.Fields("內容")
  
  EndSub
  
  通過IMAGE控件的使用,可以簡化編程中的某些步驟,使程序優化、簡便。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved