十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
那程序是你写的?不然你会清楚变量的类型的?
创新互联公司服务项目包括陇川网站建设、陇川网站制作、陇川网页制作以及陇川网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,陇川网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到陇川省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
要看什么类型可在双击窗体后,在窗体通用部分、模块内查看变量类型(就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