VB中怎樣在啟動窗體時自動加載圖片

窗體啟動時載入圖片：

成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比神木網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式神木網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋神木地區(qū)。費用合理售后完善，10年實體公司更值得信賴。

Private Sub Form_Load()

Me.Picture = LoadPicture( "路徑+文件名")

End Sub

如果程序和圖像文件在同一目錄內(nèi)可以改成：

Me.Picture = LoadPicture( App.Path "\文件名")

讀寫INI文件的方法：

在工程中，新建一個模塊，將如下代碼粘貼進去！

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Sub WriteToIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)

Dim buff As String * 128

buff = Value + Chr(0)

WritePrivateProfileString Section, Key, buff, FileName

End Sub

Public Function ReadFromIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String

Dim i As Long

Dim buff As String * 128

GetPrivateProfileString Section, Key, "", buff, 128, FileName

i = InStr(buff, Chr(0))

ReadFromIni = Trim(Left(buff, i - 1))

End Function

在Form窗體代碼某事件【比如：Form_Load()事件】 過程中，

’讀取INI文件的例子

Dim p As String

p=ReadFromIni("路徑+INI文件名", "名稱1", "名稱2")

比如：p=ReadFromIni("d:\MusicPlayer.ini", "設(shè)置", "文件夾路徑")

’寫入INI文件的例子

WriteToIni "路徑+INI文件名", "名稱1", "名稱2"，"字符串或者一個變量"

比如：

WriteToIni "d:\MusicPlayer.ini", "設(shè)置", "文件夾路徑", "e:\mymusic"

或者：

dim f as string

f="e:\mymusic"

WriteToIni "d:\MusicPlayer.ini", "設(shè)置", "文件夾路徑", f

vb中如何實現(xiàn)給窗體加載,卸載背景圖片

1、點擊窗體點擊form1,在屬性窗口的picture屬性中選擇要form1背景的圖片；可以使form1加載圖片背景；

2、刪除背景時，鼠標(biāo)放到picture屬性的值（Bitmap）內(nèi)，點擊鼠標(biāo)，然后點擊delete鍵，刪除背景，picture的值變?yōu)閚one；

請采納，謝謝

vb 如何插入圖片

材料/工具：visual basic6

1、首先啟動visual basic6，新建一個標(biāo)準(zhǔn)exe文件，進入窗體對話框。

2、選擇form1，設(shè)置height屬性值為6000，width為8000.

3、接著設(shè)置borderstyle屬性值為4-fixed toolwindow，查看效果變化。

4、雙擊工具箱中的image控件，在窗體上創(chuàng)建image1控件。

5、采用步驟2的方法設(shè)置height屬性值為6000，width為8000，top為0，left為0，使其布滿窗體。

6、點擊picture屬性，設(shè)置屬性值，找到一張圖片導(dǎo)入，并設(shè)置大小為6000*8000

7、執(zhí)行文件-生成工程命令，輸入文件名稱，保存在桌面上，將文件生成exe文件。

VB.NET加載圖片問題

'先建立一個bitmap對象，指向圖像文件

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定義一個圖片框的graphics對象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在圖片框上繪圖

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'釋放bitmap對象

pic.Dispose()

'現(xiàn)在即可對文件進行操作

當(dāng)前題目：vb.net窗體加載圖片,VB中怎么用代碼加載圖片
網(wǎng)頁地址：http://chinadenli.net/article15/dsgisdi.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供微信小程序、動態(tài)網(wǎng)站、網(wǎng)站內(nèi)鏈、App開發(fā)、小程序開發(fā)、域名注冊

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)