那程序是你寫的?不然你會清楚變量的類型的?

創新互聯公司服務項目包括隴川網站建設、隴川網站制作、隴川網頁制作以及隴川網絡營銷策劃等。多年來,我們專注于互聯網行業,利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等,向廣大中小型企業、政府機構等提供互聯網行業的解決方案,隴川網站推廣取得了明顯的社會效益與經濟效益。目前,我們服務的客戶以成都為中心已經輻射到隴川省份的部分城市,未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任!
要看什么類型可在雙擊窗體后,在窗體通用部分、模塊內查看變量類型(就dim等申明的關鍵字)。
或在程序運行時(以源代碼運行時有效)可查看
字符數據類型 ??? 字符數據類型是用來處理打印和顯示字符的 Char包含單個字符 String則包含多個字符 VB.NET中Char和數字類型可以進行轉換 但要通過Ascw和Chrw等函數來完成 如果類型檢查開關被打開 則必須在聲明時在單個字符后面加上值類型字符C 用以標識 例如下面語句 ??? Option strict on??? Dim Emaiin as char??? Emailn= @ ??? //打開了類型檢查開關 此時不可以將其轉換為Char??? Emailn= @ C? //成功轉換??? String類型為零個或多個 位字符序列 每個字符取值為 ~ 當字符串被填充了空格的時候 可以用這些函數來清除 Trim Ltrim Rtrim 其標識符類型字符為$ 沒有值類型符號
其他數據類型 ??? 布爾數據類型包含True和False兩種值 在默認狀態下是為False 這個數據類型中True的值為 布爾類型沒有值類型符號 如果將布爾值強制轉換為非布爾類型時 代碼中將帶有升級警告 例如下面語句 ??? Dim Sendagain as Boolean??? Dim Number as Integer??? Number=Sendagain??? 轉換以后為??? Dim Sendagain as Boolean??? Dim Number as Integer??? UPGRADE—WARNING Boolean Sendagain is being converted into a unmeric??? Number=Sendagain??? Date類型是一個 位的有符號整數 在VB . 中Date以Double格式存儲 能夠作為Double類型的變量來操作 而在VB.NET中由于Date的類型存儲為 位 所以無法再作為Double類型來進行操作 但卻為兩者的轉換提供了相關的函數 ToOADate和FromOADate 在進行源代碼升級時 升級工具沒有辦法自動檢測到所有這種轉換的情況 但是它會在相應的地方插入以上兩個函數 例如語句 ??? Dim daynum as Double??? Dim day as Date??? Daynum=day??? 升級以后為 ??? Dim daynum as Double??? Dim day as Date??? Daynum=daY.ToOADate
lishixinzhi/Article/program/ASP/201311/21734
strResult += 磁盤類型: System.Convert.ToInt16(disk(DriveType).ToString())End IfMsgBox(strResult)NextEnd Sub總結:在VB.NET中,用API函數可以獲取硬盤信息。原來熟悉API函數VB6程序員,可以對API函數聲明進行適當的更改后,進行調用。利用FSO(文件系統對象)的Scrrun.DLL,也可以獲得磁盤信息。在.net Framwork中,利用WMI可以獲取更多的關于機器硬件的詳細信息(參考System.Management命名空間)。
Private?ctrName?As?String?'控件名稱
Private?isClick?As?Boolean?'鼠標點擊狀態
'注:如果已知點擊目標控件的父控件,ctrParent變量可以不要。
Private?WithEvents?ctrParent?As?Control?'父控件
Private?Sub?ControlAMouseDown(sender?As?Object,?e?As?MouseEventArgs)?_
Handles?Button1.MouseDown
isClick?=?(e.Button?=?MouseButtons.Left?_
Or?e.Button?=?MouseButtons.Right)?'左鍵或右鍵按下
If?isClick?Then
Dim?ctr?As?Control?=?CType(sender,?Control)?'轉換Object為控件類型
ctrName?=?ctr.Name?'獲取控件名稱
ctrParent?=?ctr.Parent?'獲取控件的父控件
End?If
End?Sub
'增加這個父控件事件,是為了正確判別鼠標彈起時是否已進入指定目標
Private?Sub?ParentMouseMove(sender?As?Object,?e?As?EventArgs)?_
Handles?ctrParent.MouseMove?'如果已取消ctrParent變量,改為相應的父控件
If?isClick?Then?isClick?=?False?'點擊狀態關閉
End?Sub
Private?Sub?ControlBMouseUp(sender?As?Object,?e?As?EventArgs)?_
Handles?Button2.MouseEnter
If?isClick?Then?'如果點擊狀態為打開
Dim?ctr?As?Control?=?CType(sender,?Control)?'轉換Object為控件類型
MsgBox(ctrName??"?|?"??ctr.Name)?'彈出消息顯示結果
End?If
End?Sub
這個問題可以用注冊表解決。
Function?getOpenCommand(fileExt?As?String)?as?String
Dim?fileType?as?String,?openCommand?as?String
fileExt?=?"."?+?fileExt
'取得文件擴展名在注冊表里的文件類型名稱
'比如.zip的類型名稱一般是zipfile
fileType?=?讀取注冊表的classes_root下的子鍵(fileExt)的默認鍵值
'取得打開這種文件的程序
openCommand?=?讀取注冊表的classes_root下的子鍵(fileType?+?"\shell\open\command")的默認鍵值
Return?getOpenCommand
End?Function
讀取注冊表的HKEY_CLASSES_ROOT下的子鍵的默認鍵值的方法可以在網上搜索到。
這樣getOpenCommand("doc")就可以得到一個字符串(包括引號):
"C:\Program Files\Word\word.exe" "%1"
這里只需要用Spilt函數把C:\Program Files\Word\word.exe分離出來就好了
我是VB.NET 2010版本
窗體上添加一個按鈕,代碼如下:
Imports System.Drawing.Printing
Public Class Form1
'采用關鍵字WithEvents聲明一個PrintDocument對象,會引發它的PrintPage事件
Private WithEvents My_PrintDocument As PrintDocument
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'實例化PrintDocument對象
My_PrintDocument = New PrintDocument
'顯示默認的打印機名稱
MsgBox(My_PrintDocument.PrinterSettings.PrinterName)
'顯示默認的打印機紙張類型名稱
MsgBox(My_PrintDocument.DefaultPageSettings.PaperSize.ToString)
End Sub
End Class
當前名稱:vb.net獲取類型 vb中文件訪問的類型有
本文URL:http://www.yijiale78.com/article26/doddecg.html
成都網站建設公司_創新互聯,為您提供營銷型網站建設、移動網站建設、Google、外貿建站、用戶體驗、網站內鏈
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯