从过去到未来、 从Visual和Basic到Net。(从VB到VB.NET的12个技巧)(二)

原创 2001年08月08日 22:43:00

从过去到未来、 VisualBasicNet (二)

5.   读取注册表。Windows中的注册表是如此重要,象一个巨大宝藏永远神秘和让你小心翼翼。有时我们必须在注册表中取或放一些信息。但VB提供的函数只能访问HKEY_CURRENT_USER/Software/VB and VBA Program Settings/appname/section/key中的值,至于之外的你需要调用其它的API函数来实现,我知道多数的人都是通过自己的模块和类来解决这个问题。

过去的VB

======================================================

你可以去下面的网址中获得帮助和代码。

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=1881

现在的VB.NET

======================================================

   Private Sub btnWriteRegistry_Click(ByVal sender As _

      System.Object, ByVal e As System.EventArgs)

      Handles btnWriteRegistry.Click

  

      Dim aKey As RegistryKey

      aKey = Registry.CurrentUser.CreateSubKey _

        ("Software/VBDotNetDemo")

      aKey.SetValue("VBDotNetDemo", "VB.NET")

      MessageBox.Show("The value of the new key " _

         & "'HKEY_CURRENT_USER/Software/" & _

         "VBDotNetDemo' is: " _

         & aKey.GetValue("VBDotNetDemo", _

         "Default value"), _

         "Key Created Successfully")

   End Sub

 

6.   快速展现你的数组数据到一个ListBox,如果你手上有一个ADO的记录集,那么你可以很快的绑定到带有数据绑定的感知控件上,这些控件带着Data的字样比如:DataList, DataGridDattaRetpeaterADO刚出来时以前有许多支持RDO的数据控件是不能兼容两者的。

过去的VB

======================================================

   Private Sub cmdPopulateList_Click()

      Dim listItems(4) As String

      Dim i As Integer

      listItems(0) = "One"

      listItems(1) = "Two"

      listItems(2) = "Three"

      listItems(3) = "Four"

      listItems(4) = "Five"

      List1.Clear

      For i = 0 To 4

         List1.AddItem listItems(i)

      Next

   End Sub

现在的VB.NET

======================================================

   Private Sub btnPopulateList_Click(ByVal sender As _

      System.Object, ByVal e As System.EventArgs) _

      Handles btnPopulateList.Click

  

      Dim listItems() As String = {"One", "Two", _

         "Three", "Four", "Five"}

      ListBox1.DataSource = listItems

   End Sub

有关于DataSource我们应当不陌生,VSNET中它已成为一个常用的属性,在VB6中它只是被称为数据绑定专门使用的一个属性。ASP+中的更多控键支持DataSource属性,并且不会要求一定是数据库连接或Select获得的数据。这个数据源可以是任何形式的数据库源。

 

7.   产生一个随机数。如何产生一个随机数,并且让它只在一定的范围中变动。这是个很常用的东东,虽然我们已不再自己写一些拙劣的简单游戏,但还依然记得刚刚接触电脑时,为实现产生一个随机数而产生的激动和兴奋。

过去的VB

======================================================

   Private Function getRandomNumber _

      (low As Long, high As Long) As Long

      Randomize(Now())

      getRandomNumber = CInt((high - low + 1) * _

         Rnd + low)

   End Function

 

现在的VB.NET

======================================================

    Private Function getRandomNumber _

      (ByVal low, ByVal high) As Integer

      getRandomNumber = New System.Random(). _

         Next(low, high)

    End Function

 

8.   VB6几乎成为COM最好的搭档,在所有VB6的新功能中COM方面的功能可以让你惊叹。COM虽然是二进制的代码,但始终有些人认为COM自己是有生命的。GUID是什么东东呢。不过VB.NET的实现太简单了吧,会给人一种错觉:dotnet是一种更COM的技术。

过去的VB

======================================================

   Private Declare Function CoCreateGuid Lib _

      "ole32.dll" (buffer As Byte) As Long

   Private Declare Function StringFromGUID2 Lib _

      "ole32.dll" (buffer As Byte, ByVal lpsz As Long, _

      ByVal cbMax As Long) As Long

  

   Private Function getGUID() As String

      Dim buffer(15) As Byte

      Dim s As String

      Dim ret As Long

      s = String$(128, 0)

      ret = CoCreateGuid(buffer(0))

      ret = StringFromGUID2(buffer(0), StrPtr(s), 128)

      getGUID = Left$(s, ret - 1)

   End Function

现在的VB.NET

======================================================

Private Function getGUID() As String

      GetGUID = "{" & _

         System.Guid.NewGUID().ToString & "}"

    End Function

 

9.   增加一个变量的值。以前很羡慕CJava i++; ++i ; k += 2 这样简捷的语法,现在VB.NET也支持这样的语法了,尽管有些违背VB简单的宗旨,不过会有更多的人喜欢在VB中也写这样的代码。

过去的VB

======================================================

MyValue MyValue + 10

 

现在的VB.NET

======================================================

         MyValue += 10

 

         同样的还有:

        MyValue -= 10

         MyValue /= 10

         MyValue *= 10

 

 

从过去到未来、 从Visual和Basic到Net。(从VB到VB.NET的12个技巧)(三)

从过去到未来、 从Visual和Basic到Net(三)10.    运行时动态的创建控件。VB。NET不再象VB6那样直接支持控件数组了,用VB。NET会有不同的实现办法和需要更多的代码,VB。NE...
  • ccBoy
  • ccBoy
  • 2001年08月08日 22:51
  • 1059

从过去到未来、 从Visual和Basic到Net。(从VB到VB.NET的12个技巧)

从过去到未来、 从Visual和Basic到Net  小气的神 2001.08.08 最初的VB被MS称为“Thunder”计划,早在1990年就开始进行了,那时Gates还亲自在杂志上为VB撰文写稿...
  • ccBoy
  • ccBoy
  • 2001年08月08日 22:36
  • 1238

VB.Net的多线程及委托

一、多线程:在一个程序中,这些独立运行的程序片断叫作“线程”(Thread),利用它编程的概念就叫作“多线程处理”。多线程处理一个常见的例子就是用户界面。利用线程,用户可按下一个按钮,然后程序会立即作...
  • action20
  • action20
  • 2013年08月09日 21:41
  • 1893

VB.NET & Visual Basic

重新回顾VB,可以发现其实他是Microsoft退出的基于Windows操作系统环境下的软件开发工具,是一种功能强大的高级程序设计语言。 Visual指的是GUI(graphical userint...
  • huo065000
  • huo065000
  • 2014年05月09日 17:10
  • 1495

VB.net APP.config 实体化访问 configurationsection_《Visual Basic 2008 高级编程》 实例改新

在第9章最后一个实例时遇到困难,一是由于我的OS是WIN10,只能装VS2015和SQL2012,二是示例数据库PUBS无法用,只能用adventureworks2012,三是VB2015不再支持IC...
  • qq_38886234
  • qq_38886234
  • 2017年05月22日 19:16
  • 177

Visual Basic .NET 继VB后要求运行在.net平台上

Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言,可以看作是Visual Basic在。Net Framework平台上的升级版本,增强了对面向...
  • zxxSsdsd
  • zxxSsdsd
  • 2013年07月16日 15:28
  • 1425

Visual.Basic.NET程序设计教程 VB教程 文字版

  • 2013年08月18日 00:30
  • 4.17MB
  • 下载

[VB.Net] Microsoft Visual Basic 2013 从入门到精通 (英文版)

  • 2013年12月14日 09:16
  • 24.05MB
  • 下载

Upgrading Visual Basic 6.0 to VB.NET

  • 2007年11月29日 09:27
  • 4.82MB
  • 下载

使用VB Visual Studio.Net创建密码窃取程序

此教程将介绍如何使用VB的Visual Studio .NET将受害人的密码发送到你的电子邮件,创建密码窃取程序。 恢复文件+ code.txt(包括下列的代码)+ Visual Basic项目...
  • nani1114
  • nani1114
  • 2016年09月08日 11:58
  • 93
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:从过去到未来、 从Visual和Basic到Net。(从VB到VB.NET的12个技巧)(二)
举报原因:
原因补充:

(最多只允许输入30个字)