vb.net的圖片空間怎樣獲得相對路徑下的圖片

在VB 學(xué)習(xí)中，絕對路徑就是指帶有盤符的固定的路徑，比如“c:\windows\systems\a.exe” 而相對路徑則可用APP.PATH連接文件名來表示，比如：App.Path "\a.exe"

在天水等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì) 網(wǎng)站設(shè)計(jì)制作按需求定制設(shè)計(jì),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),高端網(wǎng)站設(shè)計(jì),營銷型網(wǎng)站,成都外貿(mào)網(wǎng)站建設(shè)公司,天水網(wǎng)站建設(shè)費(fèi)用合理。

以vb學(xué)習(xí)中加載圖片為例，這樣就容易弄明白了。假設(shè)我們要在vb中加載一幅圖片，假設(shè)我們把這個(gè)加載圖片的程序保存在如下位置："E:\aa-vbnew\加載圖片講解"而我們的圖片在"D:\My Files\圖畫\tong.jpg"

那么情況如下：1，在代碼中直接以絕對路徑表示加載到form1中，如圖所示：

顯示結(jié)果如下：

2,換一種方式，以相對路徑直接加載也可以。程序如圖：

結(jié)果如上圖。

下面分析如下：

第一種方式，我們使用的是圖片的完整路徑，就稱之為絕對路徑，也就是說不管我們的這個(gè)VB程序放到硬盤的任何位置，都完全可以顯示出來這幅圖片，因?yàn)閳D片的路徑是絕對的，只要不改變圖片的路徑，那么就是絕對不變的。

第二種方式，我們使用的是圖片的相對路徑，相對于誰呢？是相對于我們的VB這個(gè)應(yīng)用程序和這幅圖片自身位置的。一旦我們的程序位置發(fā)生變化或者圖片的位置發(fā)生改變，那么這個(gè)程序都不可以執(zhí)行，不會顯示這幅圖片。所以說這就是相對路徑，是以一個(gè)參考對象而存在的。

如何實(shí)現(xiàn)VB.NET獲取程序運(yùn)行路徑

System.Environment.CurrentDirectory

這才是vb.net的獲取程序運(yùn)行路徑的方法

vb.net從文件路徑中獲取文件名

獲取方法，參考實(shí)例如下：

'獲取路徑名各部分:

如：

c:\dir1001\aaa.txt

'獲取路徑路徑

c:\dir1001\

Public

Function

GetFileName(FilePathFileName

As

String)

As

String

'獲取文件名

aaa.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

GetFileName

Mid(FilePathFileName,

J

+

1,

i)

End

Function

''獲取路徑路徑

c:\dir1001\

Public

Function

GetFilePath(FilePathFileName

As

String)

As

String

'獲取路徑路徑

c:\dir1001\

On

Error

Resume

Next

Dim

J

As

Integer

J

InStrRev(FilePathFileName,

"\")

GetFilePath

Mid(FilePathFileName,

1,

J)

End

Function

'獲取文件名但不包括擴(kuò)展名

aaa

Public

Function

GetFileNameNoExt(FilePathFileName

As

String)

As

String

'獲取文件名但不包括擴(kuò)展名

aaa

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer,

k

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

"\")

k

InStrRev(FilePathFileName,

".")

If

k

Then

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

i

-

J)

Else

GetFileNameNoExt

Mid(FilePathFileName,

J

+

1,

k

-

J

-

1)

End

If

End

Function

'＝＝＝＝＝

'獲取擴(kuò)展名

.txt

Public

Function

GetFileExtName(FilePathFileName

As

String)

As

String

'獲取擴(kuò)展名

.txt

On

Error

Resume

Next

Dim

i

As

Integer,

J

As

Integer

i

Len(FilePathFileName)

J

InStrRev(FilePathFileName,

".")

If

J

Then

GetFileExtName

".txt"

Else

GetFileExtName

Mid(FilePathFileName,

J,

i)

End

If

End

Function

文章標(biāo)題：vb.net取路徑文件 vbnet apppath
路徑分享：http://www.2m8n56k.cn/article4/doggeoe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、軟件開發(fā)、搜索引擎優(yōu)化、網(wǎng)站排名、自適應(yīng)網(wǎng)站、網(wǎng)站建設(shè)

廣告

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