vb.net获取类型 vb中文件访问的类型有

VB.net中怎样知道变量的数据类型？

那程序是你写的？不然你会清楚变量的类型的？

创新互联公司服务项目包括陇川网站建设、陇川网站制作、陇川网页制作以及陇川网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，陇川网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到陇川省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

要看什么类型可在双击窗体后，在窗体通用部分、模块内查看变量类型（就dim等申明的关键字）。

或在程序运行时（以源代码运行时有效）可查看

VB.NET字符数据类型和其他数据类型

字符数据类型     字符数据类型是用来处理打印和显示字符的 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

VB.NET获取硬盘信息的几种方法

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命名空间）。

vb.net怎样获取同类控件名称

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

vb.net 如何获得一个文件类型的默认程序。

这个问题可以用注册表解决。

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中怎么获取当前打印机的纸张类型

我是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