vb灏嗗浘鐗囧鍏ュ浘鐗囨 - 宸茶В鍐?- 鎼滄悳闂棶

涓嶈鍦ㄥ睘鎬х獥鍙ｈ缃€傜敤浠ｇ爜瀹炵幇

答案：杩欎釜鐪嬬湅LoadPicture 鍑芥暟 灏卞彲浠ュ疄鐜颁簡
  LoadPicture 鍑芥暟  
灏嗗浘褰㈣浇鍏ュ埌绐椾綋鐨?Picture 灞炴€с€?b>PictureBox 鎺т欢鎴?b> Image 鎺т欢銆?/p>
璇硶
LoadPicture([filename], [size], [colordepth],[x,y])
LoadPicture 鍑芥暟璇硶鏈変笅鍒楅儴鍒嗭細
閮ㄥ垎
鎻忚堪
filename
鍙€夌殑銆傚瓧绗︿覆琛ㄨ揪寮忔寚瀹氫竴涓枃浠跺悕銆傚彲浠ュ寘鎷枃浠跺す鍜岄┍鍔ㄥ櫒銆傚鏋滄湭鎸囧畾鏂囦欢鍚嶏紝LoadPicture 娓呴櫎鍥捐薄鎴?PictureBox 鎺т欢銆?/td>
size
鍙€夊彉浣撱€傚鏋?filename 鏄厜鏍囨垨鍥炬爣鏂囦欢锛屾寚瀹氭兂瑕佺殑鍥捐薄澶у皬銆?/td>
colordepth
鍙€夊彉浣撱€傚鏋?filename 鏄竴涓厜鏍囨垨鍥炬爣鏂囦欢锛屾寚瀹氭兂瑕佺殑棰滆壊娣卞害銆?/td>
x
鍙€夊彉浣擄紝濡傛灉浣跨敤 y 锛屽垯蹇呴』浣跨敤銆傚鏋?filename 鏄竴涓厜鏍囨垨鍥炬爣鏂囦欢锛屾寚瀹氭兂瑕佺殑瀹藉害銆傚湪鍖呭惈澶氫釜鐙珛鍥捐薄鐨勬枃浠朵腑锛屽鏋滈偅鏍峰ぇ灏忕殑鍥捐薄涓嶈兘寰楀埌鏃讹紝鍒欎娇鐢ㄥ彲鑳界殑鏈€濂藉尮閰嶃€傚彧鏈夊綋 colordepth 璁句负 vbLPCustom 鏃讹紝鎵嶄娇鐢╔ 鍜?Y鍊笺€侳or icon files 255 is the maximum possible value
y
鍙€夊彉浣擄紝濡傛灉浣跨敤 x锛?鍒欏繀椤讳娇鐢ㄣ€傚鏋?filename 鏄竴涓厜鏍囨垨鍥炬爣鏂囦欢锛屾寚瀹氭兂瑕佺殑楂樺害銆傚湪鍖呭惈澶氫釜鐙珛鍥捐薄鐨勬枃浠朵腑锛屽鏋滈偅鏍峰ぇ灏忕殑鍥捐薄涓嶈兘寰楀埌鏃讹紝鍒欎娇鐢ㄥ彲鑳界殑鏈€濂藉尮閰嶃€侳or icon files 255 is the maximum possible value

璁剧疆鍊?/b>
size 鐨勮缃€间负锛?/p>
甯搁噺
鍊?/b>
鎻忚堪

vbLPSmall
0
绯荤粺灏忓浘鏍囥€?/td>
vbLPLarge
1
绯荤粺澶у浘鏍囷紝鐢辫棰戦┍鍔ㄧ▼搴忓喅瀹氥€?/td>
vbLPSmallShell
2
澶栧３灏忓浘鏍囧ぇ灏忥紝鐢扁€滄帶鍒堕潰鏉库€濅腑鐨?Display Properties 瀵硅瘽妗嗕腑 Appearance 閫夐」鍗′笂鐨?Caption Buttons 鐨勫ぇ灏忚缃喅瀹氥€?/td>
vbLPLargeShell
3
澶栧３澶у浘鏍囧ぇ灏忥紝鐢扁€滄帶鍒堕潰鏉库€濅腑鐨?Display Properties 瀵硅瘽妗嗕腑 Appearance 閫夐」鍗′笂鐨勫浘鏍囧ぇ灏忚缃喅瀹氥€?/td>
vbLPCustom
4
鑷畾涔夊ぇ灏忥紝鐢?x 鍜?y 鍙傛暟鎻愪緵鍊笺€?/td>

colordepth 鐨勮缃€间负锛?/p>
甯搁噺
鍊?/b>
鎻忚堪

vbLPDefault
0
濡傛灉浣跨敤鎸囧畾鏂囦欢锛屽垯涓烘渶浣冲彲鐢ㄥ尮閰嶃€?/td>
vbLPMonochrome
1
2 鑹层€?/td>
vbLPVGAColor
2
16 鑹层€?/td>
vbLPColor
3
256 鑹层€?/td>

璇存槑
Visual Basic 鍙互璇嗗埆鐨勫浘褰㈡牸寮忔湁锛氫綅鍥?(.bmp) 鏂囦欢銆佸浘鏍?(.ico) 鏂囦欢銆佸厜鏍?(.cur) 鏂囦欢锛岃绋嬬紪鐮?(.rle) 鏂囦欢銆佸厓 (.wmf) 鏂囦欢銆佸寮虹殑鍏冩枃浠?(.emf), GIF(.gif) 鏂囦欢浠ュ強 JPEG (.jpg) 鏂囦欢銆?/p>
璧嬪€间笉甯﹀弬鏁扮殑 LoadPicture 灏嗘竻闄ょ獥浣撱€佸浘鐗囨鍙婂浘璞℃帶浠朵腑鐨勫浘褰€?/p>
涓轰簡鍔犺浇鍦?PictureBox 鎺т欢鍜?Image 鎺т欢涓樉绀虹殑鍥惧舰鎴栧姞杞戒綔涓虹獥浣撹儗鏅殑鍥惧舰锛屽繀椤诲皢 LoadPicture 鐨勮繑鍥炲€艰祴缁欒鏄剧ず璇ュ浘鐗囩殑瀵硅薄鐨?Picture 灞炴€с€備緥濡傦細
Set Picture = LoadPicture("PARTY.BMP") Set Picture1.Picture = LoadPicture("PARTY.BMP") 
濡傛灉瑕佸皢鍥炬爣璧嬩簣绐椾綋锛屽垯瑕佹妸 LoadPicture 鍑芥暟鐨勮繑鍥炲€艰祴缁?b> Form 瀵硅薄鐨?Icon 灞炴€э細
Set Form1.Icon = LoadPicture("MYICON.ICO") 
鍥炬爣涔熷彲浠ヨ璧嬩簣闄?b> Timer 鎺т欢鍜?Menu 鎺т欢澶栫殑鍏跺畠鎺т欢鐨?DragIcon 灞炴€э紝渚嬪锛?/p>Set Command1.DragIcon = LoadPicture("MYICON.ICO") 
浣跨敤 LoadPicture 鍙皢鍥惧舰鏂囦欢杞藉叆鍒扮郴缁熷壀璐存澘锛屽涓嬫墍绀猴細
Clipboard.SetData LoadPicture("PARTY.BMP")
妤间笂鐨勫疄鍦ㄦ槸澶缁嗕簡銆傛垜鍦ㄨ繖閲岃璁插熀鏈柟娉曪紙姣斾笂闈㈢殑浠嬬粛瀹炵敤澶氫簡锛夛細
Image1.Picture=LoadPicture("杩欓噷杈撳叆鍥剧墖璺緞")
濡傦細
Image1.Picture=LoadPicture("C:\1.jpg")
Picture1.Picture = LoadPicture("X:\XX")   'X:\XX涓烘枃浠剁殑瀹屾暣璺緞

上一个：VB中的小问题
下一个：vb 高手看看这个怎么写