VB.NET的數(shù)據(jù)類型轉(zhuǎn)換方式主要有哪幾種？

CType 函數(shù)

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

任何數(shù)據(jù)類型

必須在兩種數(shù)據(jù)類型之間定義擴(kuò)大轉(zhuǎn)換或收縮轉(zhuǎn)換

引發(fā) InvalidCastException

DirectCast

任何數(shù)據(jù)類型

一個(gè)類型必須繼承自或者實(shí)現(xiàn)另一個(gè)類型

引發(fā) InvalidCastException

TryCast

僅引用類型

一個(gè)類型必須繼承或者實(shí)現(xiàn)另一個(gè)類型

返回 Nothing (Visual Basic)

vb.net進(jìn)行文件壓縮

如果機(jī)器安裝有winRar軟件，就可以通過shell來借用他的功能達(dá)到壓縮文件的效果；

參考代碼如下：

Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (壓縮前)

Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")

Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")

'用shell命令調(diào)用winrar.exe創(chuàng)建壓縮文件()

Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 執(zhí)行文件的位置

Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (壓縮后)

Dim command As String = winRarexe " a " wtarget " " DeliveryF " " TruckInfo " " QDetail

'這個(gè)命令你可以查看winrar的命令集

Dim retval As Double 'Shell 指令傳回值

retval = Shell(command, AppWinStyle.MinimizedFocus)

vb.net中怎么實(shí)現(xiàn)圖片縮小和放大

Pegasus的ImagXpress 8.0控件，支持各種格式文件的加載。控件封裝了右鍵局部區(qū)域放大的功能，要實(shí)現(xiàn)圖片的縮放，把AutoResize屬性設(shè)置為PegasusImaging.WinForms.ImagXpress8.AutoResizeType.CropImage，修改 ZoomFactor的值就可以了。

如何正確掌握VB.NET操作縮放圖像

在VB.NET操作縮放圖像中的顯示和保存縮放圖像，用到Image和Graphics類，在VSDotNet2K3下面Reference里自動添加了引用System.Drawing，直接用就行。

實(shí)現(xiàn)VB.NET操作縮放圖像代碼如下：DimimgAsImageImage=Image.FromFile

(D:\Image\tstImage.jpg)

''tstImage是原先的圖片DimgrfxAsGraphics=Me

.CreateGraphics

grfx.DrawImage(img,0,0,img.Width*

3,img.Height*3)''在Form里顯示

DimimgnewAsNewSystem.Drawing.Bitmap

(img,img.Height*3,img.Width*3)

''新建一個(gè)放大的圖片

imgnew.Save(D:\Image\tstNewImage.jpg,

System.Drawing.Imaging.ImageFormat.Jpeg)

''保存放大后圖片

你可以建一個(gè)Form，然后在Form里拖進(jìn)一個(gè)Button，把上面的代碼放在Button_Click事件里面源碼天空

，執(zhí)行就行了。

對上面VB.NET操作縮放圖像代碼的解釋：

1.要獲取Graphics對象只能從某一事件的參數(shù)中獲取或者使用窗體和控件對象的CreateGraphics方法來獲取-----上面代碼使用Me.CreateGraphics來引用這個(gè)對象。

2.加載一個(gè)圖片用Image類的FromFile或者FromStream方法

3.用DrawImage來顯示一個(gè)圖片,該方法有30多個(gè)重載方法，可以查MSDN了解細(xì)節(jié)。

4.保存時(shí)的一個(gè)問題：我們必須先建一個(gè)對象，用于存縮放圖像。

vb.net 利用NotifyIcon實(shí)現(xiàn)最小化到系統(tǒng)托盤，但是收縮到軌跡到開始菜單

添加托盤圖標(biāo)控件，并設(shè)置好其Icon屬性，然后添加如下代碼：

Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

e.Cancel = True

Me.Hide()

End Sub

這樣實(shí)現(xiàn)了點(diǎn)關(guān)閉，進(jìn)入托盤，如果點(diǎn)最小化進(jìn)入托盤：

'窗體最小化時(shí)候隱藏窗體，

Private Sub MainForm_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged

If Me.WindowState = FormWindowState.Minimized Then

Me.Hide()

Me.ShowInTaskbar = False

End If

End Sub

分享名稱：vb.net收縮的簡單介紹
瀏覽路徑：http://chinadenli.net/article44/hecphe.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、微信公眾號、品牌網(wǎng)站建設(shè)、電子商務(wù)、自適應(yīng)網(wǎng)站、App開發(fā)

廣告

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