日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

VB調用IMAGE控件完成圖像縮放的一種辦法

VB調用IMAGE控件完成圖像縮放的一種辦法

更新時間:2022-05-16 文章作者:未知 信息來源:網絡 閱讀次數:

葛巖   

    VB的功能強大,應用范圍廣。VB是標準的面向對象編程語言可視編程,采用事件驅動的編程技術。VB含有大量的VBX(控件)。這是一種針對VB的已經編寫好的程序,它們在VB中以各種可視的控制對象的形式出現,例如圖形按鈕,文字編輯框等等,用戶根據自己的需要可直接使用,使編程就象使用積木搭建房屋一樣簡單。

   在多媒體設計中,圖像處理是關鍵環節。根據窗口界面的大小,圖像大小和圖形方式下的文字的大小的相應調整,則是一個圖形應用軟件要做到的基本要求之一。利用VB中的IMAGE控件可以實現圖像縮放、相應調整,可以使軟件界面更清晰、友好。

   具體編程如下:

   Option Explicit

   Private mydb As Database

   Private myrs As Recordset

   Private mystate As Byte

   Private sql As String

   Public z (定義 z 為公共變量)

   Private Sub a_Click()

   Form2.Show

   Form3.Hide

   End Sub

   (不同的按鈕,觸發不同事件)

   Private Sub f_Click()

   End

   End Sub

   Private Sub b_Click()

   Form4.Show

   End Sub

   Private Sub g_Click()

   z = 1

   End Sub

   Private Sub h_click()

   z = 2

   End Sub

   Private Sub im1_Click( )

   Dim zh, fan As Integer (定義 zh 和fan 為整形變量)

   If Im1.Width < Pi1.Width Then

   HS1.Visible = False

   Else

   HS1.Visible = True

   End If

   If Im1.Height < Pi1.Height Then

   vs1.Visible = False

   Else

   vs1.Visible = True

   End If

   If z = 1 Then (放大圖象按鈕被觸發的時候,執行以下程序)

   Im1.Width = 1.1 * Im1.Width

   Im1.Height = 1.1 * Im1.Height

   For zh = 0 To 13

   Image1(zh).Left = -480 + 1.1123 * (Image1(zh).Left + 480)

   Image1(zh).Top = 1.111 * (Image1(zh).Top)

   Next zh

   End If

   If z = 2 Then (縮小圖象按鈕被觸發的時候,執行以下程序)

   Im1.Width = 0.9 * Im1.Width

   Im1.Height = 0.9 * Im1.Height

   For zh = 0 To 13

   Image1(zh).Left = -480 + 0.89 * (Image1(zh).Left + 480)

   Image1(zh).Top = 0.89 * (Image1(zh).Top)

   Next zh

   End If

   Text1.Visible = False

   HS1.Max = Im1.Width

   vs1.Max = Im1.Height

   End Sub

   Private Sub hs1_change()

   Im1.Left = -HS1.Value

   End Sub

   Private Sub vs1_change()

   Im1.Top = -vs1.Value

   End Sub

   Private Sub im1_mousedown(button As Integer, shift As Integer, x As Single, y As Single)

   If button = vbRightButton Then (鼠標按下后觸發其它的彈出式菜單)

   PopupMenu popup

   End If

   End Sub

   Private Sub Image1_Click(Index As Integer)

   Dim v As Long

   Text1.Visible = True

   v = Index

   Set 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控件的使用,可以簡化編程中的某些步驟,使程序優化、簡便。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 亚洲欧洲视频在线观看 | 亚洲 欧美 日韩在线 | 韩国欧美一级毛片免费 | 日本中文字幕在线观看视频 | 日本一级毛片 | 欧美日韩不卡一区 | 偷拍自拍日韩 | 91久久婷婷国产综合精品青草 | 日本一级毛片冲田杏梨 | 最近中文字幕免费版在线3 最近中文字幕免费视频 | 天天干天天干天天干天天干天天干 | 毛片一级在线 | 免费国产成人午夜在线观看 | 国产欧美日本在线 | 国内精品久久久久影院日本 | 成年人国产视频 | 一级高清毛片免费a级高清毛片 | 中文日本在线 | 日韩精品中文字幕久久 | 日韩精品久久久久久 | 第一页欧美 | 国产精品视频区 | 精品视频 久久久 | 99视频国产在线 | 亚洲婷婷网| 五月天婷婷精品视频 | 国产成人v片视频在线观看 国产成人v视频在线观看 | 欧美 xx性 在线 | 欧美日韩一区二区在线 | 在线观看国产一区二三区 | 亚洲va高清中文字幕 | 四虎影院久久 | 亚洲欧洲自拍偷拍 | 亚洲精品91香蕉综合区 | www精品久久 | 波多野结衣视频在线免费观看 | 亚洲99久久久久综合 | 欧美日韩亚洲国产一区二区三区 | 日韩欧美三级在线 | 久久99热这里只有精品免费看 | 福利色视频 |