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

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

運用Image控件完成圖形瀏覽程序

運用Image控件完成圖形瀏覽程序

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

作者:李滿園

---- 以下有關用VB實現的一個瀏覽*.bmp的程序。而且由于Image控件的特性我們還同時可以瀏覽 .jpg .gif .ioc .cur .wmf 加上BMP一共6種格式的圖形文件我們決定用Image控件因為他比PictureBox更適合我們,可是我們怎樣實現任意目錄下的Loadpicture呢?
---- 下面的這個程序非常簡單,有VB的朋友花10分鐘即可完成.

---- 開始;

---- 在File菜單上單擊“New Project”對話框,然后單擊OK按鈕創建新的標準可執行文件。出現一個空白的窗體 飛快地從工具箱中抓出DriveListBox(驅動器列表框)控件;DirListBox(目錄列表框)控件,FileListBox(文件列表框)控件,Image(圖象)控件。放在Form1上調整好大小。當程序運行后VB把選中的文件名放置到文件列表框對象的Filename屬性中。驅動器列表框對象的Drive屬性和目錄列表框對象的Path屬性分別保存用戶在驅動器和目錄列表框中選擇的驅動器和目錄。我們就使用這三個屬性來打開用戶選擇的圖像文件名。然后在Tools(工具)菜單中單擊Options(選項)菜單項,然后單擊Editor(編輯器)選項卡。如果quire Variable Declaration(要求變量聲明)復選框被選中,那么單擊該復選框去掉選中符號。

按F4設置窗口屬性
將File1的 Pattern屬性設為
(*.bmp;*.jpg;*.ico;*.cur)分號不可少,
將Image1的Stretch屬性設為 True
將Image1的BorderStyle屬性設為 1 Fixed Single
按F7寫代碼
---- 在Drive1_Change中PrivateSub和End Sub語句之間鍵入:

dir1.path = Drive1.Drive

在Dir1_Change事件過程中增加:
File1.Path = Dir1.Path

在File1_Click事件過程中增加:
SelectedFile = File1.Path &
"\" & File1.Filename

Image1.Picture = LoadPicture(SelectedFile ) 

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 99欧美视频 | 国产午夜亚洲精品久久999 | 国产一区二区免费视频 | www插插插66 www成人国产在线观看网站 | 欧美成人免费观看 | 日本免费不卡在线一区二区三区 | 精品国产高清不卡毛片 | 99pao在线视频成精品 | 怡红院亚洲红怡院在线观看 | 午夜精品网站 | 精品欧美在线精品 | 亚洲欧美人成综合在线最新 | 九色影院 | 欧美亚洲国产日韩综合在线播放 | 天天天天天天干 | 精品国产高清久久久久久小说 | 国产爱久久久精品 | 国产精品制服诱惑 | 中文字幕 一区 婷婷 在线 | 狠狠综合欧美综合欧美色 | 免费超爽大片黄网站 | 亚洲欧美日韩成人一区在线 | 欧美无删减 | 日韩一区国产二区欧美三 | 欧美成人二区 | 日本在线视频一区二区三区 | 91国内揄拍国内精品对白不卡 | 一区二区三区91 | 99久久精品国产一区二区三区 | 99视频九九精品视频在线观看 | 99在线热播精品免费 | 欧美一毛片无遮挡 | 久久这里只有精品久久 | 永久在线免费观看 | 久草这里只有精品 | 欧美视频一区二区三区精品 | 久久精品视屏 | 免费在线视频成人 | 操操日| 午夜国产亚洲精品一区 | 久久国产精品-久久精品 |