㈠ 如何在VB中載入PNG格式的圖片
用GDI函數,給你一個示例吧,顯示PNG到FORM上,用GDI的:
'GDI+API函數
"gdiplus"(tokenAsLong,inputbufAsGdiplusStartupInput,OptionalByValoutputbufAsLong=0)AsGpStatus
"gdiplus"(ByValtokenAsLong)
"gdiplus"(ByValhwndAsLong,graphicsAsLong)AsGpStatus
"gdiplus"(ByValgraphicsAsLong)AsGpStatus
"gdiplus"(ByValgraphicsAsLong,ByValimageAsLong,ByValxAsSingle,ByValyAsSingle,ByValWidthAsSingle,ByValHeightAsSingle)AsGpStatus
"gdiplus"(ByValfilenameAsString,imageAsLong)AsGpStatus
"gdiplus"(ByValimageAsLong,WidthAsLong)AsGpStatus
"gdiplus"(ByValimageAsLong,HeightAsLong)AsGpStatus
"gdiplus"(ByValimageAsLong)AsGpStatus
'變數結構定義
GdiplusVersionAsLong
DebugEventCallbackAsLong
SuppressExternalCodecsAsLong
EndType
PrivateEnumGpStatus
Ok=0
GenericError=1
InvalidParameter=2
OutOfMemory=3
ObjectBusy=4
InsufficientBuffer=5
NotImplemented=6
Win32Error=7
WrongState=8
Aborted=9
FileNotFound=10
ValueOverflow=11
AccessDenied=12
UnknownImageFormat=13
FontFamilyNotFound=14
FontStyleNotFound=15
NotTrueTypeFont=16
UnsupportedGdiplusVersion=17
GdiplusNotInitialized=18
PropertyNotFound=19
PropertyNotSupported=20
EndEnum
'主要代碼就下面這幾句而已.
PrivateConstc_pngPathAsString="C:1.png"'要顯示的圖片名稱和路徑。
Dimm_tokenAsLong
PrivateSubForm_paint()'在Form上顯示
DimpImgAsLong'定義變數
DimpGraphicsAsLong
DimwAsLong,hAsLong
'先找指定控制項ID,然後通過GDI將PNG內容畫上...
CallGdipCreateFromHDC(Me.hDC,pGraphics)
CallGdipLoadImageFromFile(StrConv(c_pngPath,vbUnicode),pImg)
CallGdipGetImageWidth(pImg,w)
CallGdipGetImageHeight(pImg,h)
CallGdipDrawImageRect(pGraphics,pImg,0,0,w,h)
CallGdipDisposeImage(pImg)
CallGdipDeleteGraphics(pGraphics)
EndSub
PrivateSubForm_Load()
StartupInput.GdiplusVersion=1
IfGdiplusStartup(m_token,StartupInput,ByVal0)Then
MsgBox"ErrorinitializingGDI+"
ExitSub
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
CallGdiplusShutdown(m_token)
EndSub
運行結果:
本機XP+VB6測試通過!
㈡ 怎麼在vb中的image控制項中載入圖片呀!
我的是VS2010的,首先先在Image內添加了對應圖片,然後Resource內 會顯示有對應圖片信息
之後在需要添加的對象與程序位置添加如下程序:
對象名.Image=Image.FromFile("圖片地址圖片名稱")
Label1.Image = Image.FromFile("C:UsersadminDocumentsVisual Studio 2010Projects時鍾指令熟悉程序時鍾指令熟悉程序Resources .jpg")
以上!
㈢ 如何在VB里給程序加圖標
首先,製作或者下載一個Ico格式的圖片,作為程序的圖標
在窗體屬性總,點擊Icon後面的按鈕,選擇步驟1中准備好的圖片
㈣ VB中如何添加背景圖片
1、打開Microsoft Visual Basic,新建一個標准Exe工程。
㈤ 在vb程序設計中,單擊圖片框時在圖片框中顯視"單擊圖片框"如何編寫代碼實現這一過程
1、打開VB6.0開發軟體,新建一個標准exe工程;
2、在設計界面上添加一個Picturebox控制項;
㈥ VB程序紅綠燈設計
1、 在桌面上,滑鼠左鍵雙擊,打開VB編程軟體,在左邊工具欄上單擊Image按鈕,在Form1窗口上,繪制出圖框,然後在Image屬性面板的Picture屬性上,單擊【載入圖片】按鈕。
㈦ 怎樣在vb中添加圖片
有三種方法:
1、添加一個picturebox或imagebox,在屬性窗口中選擇picture屬性,然後就可以添加圖片了,這是最簡單的一種;
2、第二種是代碼加入:
Option Explicit
Private Sub Form_Load()
Me.Picture = LoadPicture("c:\text.bmp") 'c:\text.bmp為圖片路徑
End Sub
3、第三種是通過剪貼板加入,這種比較復雜,如:
Option Explicit
Private Sub Form_Load()
Clipboard.SetData Picture1.Image
End Sub
㈧ vb 如何插入圖片
材料/工具:visual basic6
1、首先啟動visual basic6,新建一個標准exe文件,進入窗體對話框。
㈨ vb的窗體背景如何設成圖片
1)在窗體添加一個Image圖像框控制項。在它得屬性頁設置Stretch屬性為True。
Stretch 屬性,返回或設置一個值,該值用來指定一個圖形是否要調整大小,以適應與 Image 控制項的大小。如果 Stretch 被設置為 True,那麼,控制項大小的調整使得它所包含的圖形的大小也要調整。
PrivateSubForm_Resize()
Image1.Height=Me.Height
Image1.Width=Me.Width
EndSub
Resize事件,當一個對象第一次顯示或當一個對象的窗口狀態改變時該事件發生。(例如,一個窗體被最大化、最小化或被還原。)
3)在Image控制項的Picture屬性連接需要圖片或在程序代碼中使用LoadPicture 函數將圖形載入到Image控制項的 Picture 屬性。
㈩ vb程序設計中怎樣插入圖片
比如想把圖片插入Image1控制項中:
x=圖片的路徑
image1.picture=loadpicture(x)