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

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

運用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久久精品国产麻豆 | 国产a一级毛片含羞草传媒 国产bbbbsign | 失禁h啪肉尿出来高h健身房 | 天天干国产 | 日韩一区二区三区不卡 | 久久精品国产亚洲5555 | 国产特黄一级毛片特黄 | 波霸大乳人体xxxxx | 久久综合九色综合欧美就去吻 | 91亚洲精品国产自在现线 | 免费a级午夜绝情美女视频 免费a级在线观看完整片 | 久久久久日韩精品无 | 久久精品国产99久久无毒不卡 | 欧美一级毛片片免费 | 日本特一级片 | 国产精品久久久久久网站 | 欧美激情第1页 | 波多野氏免费一区 | 中文字幕一区日韩在线视频 | 国产日韩欧美亚洲综合首页 | 国产91在线 | 中文 | 一区二区三区在线 | 日本 | 国产高清一区二区三区视频 | 中文字幕在线亚洲 | 亚洲精品区一区二区三区四 | 日韩一区二区中文字幕 | 国产一区二区亚洲精品 | 久久国产精品久久国产精品 | 久久久亚洲欧美综合 | 色综合久久综合欧美综合 | 国产精品久久久久久福利 | 久久婷婷国产综合精品青草 | 亚洲欧美日韩一区二区在线观看 | 天天摸夜夜添狠狠添2018 | 久久99精品久久久久久综合 | 久久精品一区二区免费看 | 国产大尺度福利视频在线观看 | 亚洲精品天堂一区二区三区 | 精品噜噜噜噜久久久久久久久 | 日本久久精品视频 |