VB 2010 (10)数据类型转换

本文介绍了VB 2010中的数据类型转换,包括隐式和显式转换。隐式转换在系统运行时自动进行,而显式转换需要开发者明确指定。VB允许在不同整数类型间进行转换,但需要注意值的范围。文章还提到了Parse、TryParse、CType、DirectCast和TryCast等转换方法的使用和区别。
摘要由CSDN通过智能技术生成

        在开发软件时,常常需要提取一个数值,把它转换为一个字符串,显示在文本框中。另外,还需要从文本框中提取输入信息,把它转换为一个数值。这些转换操作可以用两种方式完成:隐式转换和显式转换。

         隐式转换可以利用系统在运行期间提取数值,并把它转换为新类型,且不需要任何提示口VisualBasic的默认设置常常允许开发人员编写包含许多隐式转换的代码。
        显式转换要求开发人员明确指定修改变量的类型,并将它赋予另一个变量。与隐式转换不同,显式转换在代码中很容易识别。一些语言(如C#)要求,所有类型不安全的转换都通过显式转换完成,否则就会抛出一个错误。

        Visual Basic的以前版本允许在不符合传统隐式转换规则的类型之间进行隐式转换。在Ⅵsual Basic的新版本中仍支持这个功能,因为Visual Basic的一个目标是支持快速的原型化。在快速原型模型中,开发人员编写的代码可能仅用于演示,但不用于部署。因为在讨论隐式转换时,应总是考虑到这对于软件开发而言并不是最佳实践方式。

        即使选择允许进行隐式转换,这种转换也只能在相当有限的数据类型上进行。有时需要进行显式转换。下面的例子说明了打开Option Strict时,如何在不同的整数类型之间进行转换:

dim myShort As Short
Dim myUInt16 As Ulnt16
Dim mylnt16 As Int16
Dim mylnteger As Integer
Dim myUInt32 As UInt32
Dim mylnt32 As Int32
Dim myLong As Long
Dim mylnt64 As Int64

myS

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
四知四清四握信息管理系统软件注册 编辑 | 删除 | 权限设置 | 更多▼ 更多▲ 设置置顶 推荐日志 转为私密日志 hamit 发表于2010年06月12日 16:15 阅读(2) 评论(0) 分类: 个人日记 权限: 公开 Imports System.Management Imports System.IO Public Class tizimlitix Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Trim(TextBox2.Text) = "" Then MsgBox("你必须输入<注册码>", MsgBoxStyle.Exclamation) Exit Sub End If If Trim(TextBox2.Text) = Trim(TextBox1.Text) * 2 - 9950019 Then ' 存入(机器码) If File.Exists(Application.StartupPath + "\tizim_id.txt") Then File.Delete(Application.StartupPath + "\tizim_id.txt") End If Dim sr As StreamWriter = File.CreateText(Application.StartupPath + "\tizim_id.txt") sr.WriteLine(TextBox2.Text) sr.Close() '存入(注册码) If File.Exists(Application.StartupPath + "\pc_id.txt") Then File.Delete(Application.StartupPath + "\pc_id.txt") End If Dim sr2 As StreamWriter = File.CreateText(Application.StartupPath + "\Pc_id.txt") sr2.WriteLine(TextBox1.Text) sr2.Close() MsgBox("注册成功!程序将要重新启动!", MsgBoxStyle.Exclamation) Me.Close() End Else MsgBox("注册码不正确!请软件开发者联系 13899326632", MsgBoxStyle.Exclamation) End If End Sub Private Sub tizimlitix_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") '获得硬盘序列号 2010-6-8 tordin izdap taptim hamdulla mahmut 13909950019 Dim Uint32 As UInt32 For Each cmicWmiObj As ManagementObject In cmicWmi.Get Uint32 = cmicWmiObj("signature") Next TextBox1.Text = Uint32.ToString * 2 - 13909950019 '本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/21aspnet/archive/2004/10/29/159124.aspx TextBox1.Enabled = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值