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

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

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 久久99精品久久久久久牛牛影视 | 亚洲一区二区三区高清不卡 | 日本强伦 | 欧美激情伦妇在线观看 | 亚洲国产精品婷婷久久久久 | 中日韩一级片 | 中文字幕在线看片成人 | 亚洲天堂资源网 | 亚洲第一红杏精品久久 | 色综合亚洲天天综合网站 | 无毛片 | 久久久久久午夜精品 | 国产啪在线91 | 日本中文字幕不卡 | 久久青草免费91线频观看站街 | 98精品国产综合久久 | 四虎国产精品免费视 | 伊人久久综合 | 久久99精品麻豆国产 | 欧美精品亚洲一区二区在线播放 | 中文字幕久热 | 青青青国产在线视频 | 97免费 | 91男女视频 | 欧美成人免费在线观看 | 亚洲精品久久一区影院 | 五月天婷婷在线视频 | 天天搞天天操 | 久久福利网站 | 99热爱久久99热爱九九热爱 | 精品免费视频 | 国产精品大片天天看片 | 天天综合天天射 | 国产福利午夜自产拍视频在线 | 日韩在线观看一区二区不卡视频 | 日韩欧美亚洲综合久久99e | 中文字幕一区二区在线视频 | 免费看的www视频网站视频 | 青青在线成人免费视频 | 在线观看免费国产 | 在线 亚洲 欧美 |