重慶分公司,新征程啟航
為企業(yè)提供網(wǎng)站建設(shè)、域名注冊(cè)、服務(wù)器等服務(wù)
為企業(yè)提供網(wǎng)站建設(shè)、域名注冊(cè)、服務(wù)器等服務(wù)
首先引入System.IO命名空間(在代碼文件的最上方)
創(chuàng)新互聯(lián)公司主要從事網(wǎng)站制作、做網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)龍泉,十多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18980820575
Imports System.IO
然后在需要用到的地方:
Dim mp3fileinfo As New FileInfo(mp3文件完整路徑字符串)
'mp3fileinfo.Length就是文件的大小,以B(字節(jié))為單位,除以1024得到KB,再除以1024得到MB
屏幕的長(zhǎng)寬就是屏幕的分辨率,用下面的代碼實(shí)現(xiàn),每句后面已添加注釋
Dim
x
As
Integer,
y
As
Integer
'定義2個(gè)整數(shù)型變量
x
=
Screen.Width
/
Screen.TwipsPerPixelX
'獲取屏幕寬度
y
=
Screen.Height
/
Screen.TwipsPerPixelY
'獲取屏幕高度
上面是vb的語(yǔ)法
下面是Vb.Net的語(yǔ)法:
Dim
x,
y
As
Long
'定義2個(gè)整數(shù)型變量
x
=
Screen.PrimaryScreen.Bounds.Width.ToString
'獲取屏幕寬度
y
=
Screen.PrimaryScreen.Bounds.Height.ToString
'獲取屏幕高度
system點(diǎn)虐 .httpwebresponse有個(gè)屬性,就是文件的字節(jié)長(zhǎng)度。你調(diào)用即可。
不懂的話就看msdn,官方文檔說(shuō)的很清楚。