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

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

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 亚洲在线观看一区 | 97色精品视频在线观看免费 | 亚洲va久久久噜噜噜久久天堂 | 免费在线视频网站 | 国产精品夜色一区二区三区 | 亚洲国产精品一区二区久久 | 亚洲成人在线观看视频 | 黑猫福利精品第一视频 | 国产大片免费在线观看 | 亚洲国产色婷婷精品综合在线观看 | 久久国产精品影院 | 中文字幕色视频 | 国产成人久久久精品毛片 | 欧美日韩在线视频不卡一区二区三区 | 久久最新免费视频 | 久久影院最新消息 | 国产亚洲成归v人片在线观看 | 亚洲欧美日韩在线一区 | 国产伦理久久精品久久久久 | 中文字幕在线有码高清视频 | 日日影院 | 色婷婷综合久久久久中文一区二区 | 亚洲精品免播放器在线观看 | 国产一区中文字幕 | 国产69精品久久久久妇女 | 一级高清毛片免费a级高清毛片 | 日韩一级大片 | 欧美性色黄大片www 欧美性生活网站 | 成人午夜视频一区二区国语 | 久久精品爱国产免费久久 | 狠狠色狠狠色综合日日2019 | 日韩在线视频免费观看 | 自拍偷拍免费视频 | 亚洲国产精品欧美综合 | 国产永久高清免费动作片www | 欧美一级片毛片免费观看视频 | 日皮视频在线观看 | 亚洲国产精品第一区二区 | 亚洲欧美韩国日产综合在线 | 99热这里有免费国产精品 | 超级97|