Private Function IsRegularIP(ByVal strS As String) As Boolean
        Dim r As System.Text.Regularexpression_r_rs.Regex = New System.Text.Regularexpression_r_rs.Regex('^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])$')
        Dim m As System.Text.Regularexpression_r_rs.Match = r.Match(strS)
        If Not m.Success Then
            Return False
        Else
            Return True
        End If
    End Function

本文转自CPP&&设计模式小屋from www.cnblog.com.

 

    将以下的一段文字以UTF-8形式存储成名字YouAppName .manifest。
并修改
<?xml version='1.0' encoding='UTF-8' standalone='yes'?>
<assembly xmlns='urn:schemas-microsoft-com:asm.v1' manifestVersion='1.0'>
<assemblyIdentity version='1.0.0.0'
     processorArchitecture='X86'
     name=”Your Application Name”
     type='win32'/>

<description> Your Application Name </description>

1．  Beep

最简单的一种方法，通过计算机的扬声器发出声响，声响的音高与持续时间取决于硬件和系统软件，从而随计算机不同而不同。

Beepg跟Msgbox等方法位于Microsoft.VisualBasic.Interaction 中，一般默认系统会自动加载。调用很简单，看下面的例子。

Dim I As Integer

For I = 1 To 100   '' Loop 100 times.

     Beep()      ''  Sound a tone.

Next I

 

 

第一步：创建windows程序，创建安装类

1.在你创建的应用程序工程中添加一个安装类，在添加一个新项,找到'Installer1 Class',修改类名后确定
注：如果要安装的时候，要注册windows服务，那就需要拖入一个ServiceController的组件，在控件的属性里设置windows服务的相关参数即可
如果是普通应用程序，可以省略上面这步，在安装类的设计器上点右键，事件，你可以在这里添加一些诸如安装前做什么事情【BeforeInstall】，或者安装完成后[After Install]做什么事情的事件 执行一些特定的操作。(如无特殊操作，则此步也可以省略，直接进入下一步)


第二步：制作windows程序的安装包，创建开始菜单，桌面快捷方式

打开已有的Visual Studio应用程序工程(项目)或者例子程序。

编译并执行此windows应用程序，以确认应用程序没有错误。
在您已有的项目中添加一个新的项目：
Visual Studio 2005 - 选择 File » Add » New Project. Other Project Types » Setup and Deployment
Visual Studio 2008 -选择 new-->project-->other project types--set up and deployment ;

VB.net中的类的构造函数是
sub New()
end sub

当然，你也可以加参数。比如Human类的构造函数：
sub New(Byval

oracl中blob与.net中的byte[] 相对应,

 

在介绍GROUP BY 和 HAVING 子句前，我们必需先讲讲sql语言中一种特殊的函数：聚合函数，例如SUM, COUNT, MAX, AVG等。这些函数和其它函数的根本区别就是它们一般作用在多条记录上。

SELECT SUM(population) FROM bbc

这里的SUM作用在所有返回记录的population字段上，结果就是该查询只返回一个结果，即所有国家的总人口数。

通过使用GROUP BY 子句，可以让SUM 和 COUNT 这些函数对属于一组的数据起作用。当你指定 GROUP BY region 时， 属于同一个region（地区）的一组数据将只能返回一行值，也就是说，表中所有除region（地区）外的字段，只能通过 SUM, COUNT等聚合函数运算后返回一个值。

HAVING子句可以让我们筛选成组后的各组数据，WHERE子句在聚合前先筛选记录．也就是说作用在GROUP BY 子句和HAVING子句前,而 HAVING子句在聚合后对组记录进行筛选。

让我们还是通过具体的实例来理解GROUP BY 和 HAVING 子句，还采用第三节介绍的bbc表。

SQL实例：

一、显示每个地区的总人口数和总面积：