VB.NET中级篇.doc

实例53：获得拨号网络项目实例说明 在本实例中，我们将制作一个能够取得本地计算机上的拨号网络的项目的应用程序。程序运行结果如图53-1所示。 图53-1 运行结果 技术要点 读取注册表内容 添加到列表框 实现过程 新建项目 打开Visual Studio.NET，选择新建项目，在项目类型窗口中选择Visual Basic项目，在模板窗口中选择Windows应用程序，在名称域中输入GetDialList”，然后选择保存路径。单击确认。添加控件和设置属性 向窗体上添加一个ListBox控件。将窗体的Text属性改为“获得拨号网络项目”，其余属性都保持默认。 添加代码 Private Declare Function RegOpenKey Lib advapi32.dll Alias RegOpenKeyA(ByVal hKey As Integer, ByVal lpSubKey As String, ByRef phkResult As Integer) As Integer Private Declare Function RegCloseKey Lib advapi32.dll (ByVal hKey As Integer) As Integer Private Declare Function RegEnumKey Lib advapi32.dll Alias RegEnumKeyA(ByVal hKey As Integer, ByVal dwIndex As Integer, ByVal lpName As String, ByVal cbName As Integer) As Integer Const HKEY_CURRENT_USER As Integer = Const ERROR_NO_MORE_ITEMS As Short = 259 Const ERROR_SUCCESS As Short = 0 Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load Dim hKey As Integer Dim i As Integer Dim astr As VB6.FixedLengthString = New VB6.FixedLengthString(256) If RegOpenKey(HKEY_CURRENT_USER, RemoteAccess\Profile, hKey) = ERROR_SUCCESS Then While RegEnumKey(hKey, i, astr.Value, 256) = ERROR_SUCCESS List1.Items.Add(astr.Value) i = i + 1 End While RegCloseKey(hKey) End If End Sub 运行程序 单击菜单“调试|启动或单击 图标运行程序。 小结 本实例通过读取注册表中有关拨号网络的项目，然后将这些项目添加到历表框中，这就是本程序的思路。 实例54：倒计时程序 实例说明 本实例将制作一个倒计时程序。程序运行时，始终位于在任何窗口的最前面，双击窗体结束应用程序。程序运行结果如图54-1所示。可以在窗体上单击鼠标右键，在弹出的菜单选择设置倒计时，设置界面如图54-2所示。 图54-2 设置倒计时界面 技术要点 保持窗体最前 倒计时 TimeSerial ()函数 SetWindowPos（）API函数 实现过程 新建项目 打开Visual Studio.NET，选择新建项目，在项目类型窗口中选择Visual Basic项目，在模板窗口中选择Windows应用程序，在名称域中输入“ReverseCount”，然后选择保存路径。单击确认。 添加控件、菜单和窗体 当前窗体添加两个Label控件和两个Timer控件。其中一个Timer控件控制一个Label控件在上方一直循环移动；另一个Timer控件控制时间的显示。添加一个ContextMenu控件并新建菜单设置倒计时和退出。利用菜单项目|添加Windows窗体，当前项目添加一个窗体Form2，给Form2添加四个Label控件，用于说明之用；两个Button按钮和三个TextBox控件。最后通过菜单项目|添加模块当前项目添加一个模块。 设置属性 切换到属性栏，对窗体及窗体上的控件进行设置属性。详细情况如表54-1和表54-2所示。表54-1 窗体Form1及控件的属性值 窗体/控件 属性 值 Form1 FormBo