40Star-CSDN博客

原创使用VB进行子类化

摘要这里我们讨论一下如何使用VB进行子类化，以及VB6和VB.NET的子类化实现的异同。目录1. 何谓子类化（subclassing）2. Visual Basic 6子类化的实现3. Visual Basic .NET子类化的实现4. 小结 1. 何谓子类化（subclassing）众所周知，Windows是一个基于消息的系统，消息在Windows

2003-09-14 19:06:00 2208

原创在托盘上显示Balloon Tooltip（VB.NET）

使用VB编写在托盘上显示Balloon提示的功能就需要调用Win32Api了，但是VB6和VB.NET代码上还是有些不同的，红色部分即为二者区别Imports System.Runtime.InteropServicesPublic Class Form1 Inherits System.Windows.Forms.Form#Region "Win32Api_NotifyIcon

2003-09-02 23:24:00 1983

原创在.NET的Windows桌面应用中使用Amazon的Web Services

摘要Amazon免费的Web Services可以让你在自己编写的应用程序中查询并显示Amazon站点上的数据，接下来我们就进入雅玛逊，用.NET去体会Web Services。目录1. Amazon Web Services简介2. 使用.NET体验Amazon Web Services3. 小结 1. Amazon Web Services简介几年前Ama

2003-08-13 11:35:00 1852

原创在VB.NET中寻找App

摘要使用过Visual Basic 6的开发人员几乎都使用过App这个对象，它的功能强大人所共知，那么Visual Basic .NET中是否也有类似的对象呢？下面将会进一步说明。目录1. App简介2. 在VB.NET寻找类似功能3. 简单示例4. 小结 1. App简介在Visual Basic 6中，App是一个全局对象可以直接通过App

2003-07-08 09:06:00 4420

原创 .NET中的DataReader简介

摘要本文介绍了ADO.NET中的一个重要的对象DataReader，简单的举例说明了DataReader的使用方法。目录1. ADO.NET概览2. DataReader的使用方法3. 小结 1. ADO.NET概览在说明主题之前，简单的介绍一下ADO.NET。ADO.NET有两个核心组件：DataSet和.NET data provider，.N

2002-12-09 09:30:00 3690

原创 ADO记录集和水晶报表

在使用水晶报表时，经常会感到数据不是很好控制，最后只好使用这个终极绝招咯。那就是使用数据定义文件（TTX），把得到的ADO记录集传送给水晶报表。通常情况下，水晶报表是从物理的数据库上创建出来的，但是现在有了32位的Active Data Driver-- P2smon.dll，水晶就可以不用再事先连接到一个数据库上咯。首先，需要创建一个TTX文件，进入数据源选择窗体后，如下图选中

2002-12-03 08:53:00 9144

用VB编写将带分割符的文本导入数据库可能是最经常用到的方式，但是导入定长的文本就不是像前者那样简单了（个人观点）。因为这里需要处理一个技术问题，就是在VB中所有的字符都是按照Unicode进行运算的，所以一个字节的英文字符、数字和两个字节的汉字在VB中都是两个字节。那么在我将一行文本ReadLine读到一个字符串中后，如果从某位至某位是单双字节混合的字符串，那就没有办法用Mid、Left这类函数确

2002-11-29 14:49:00 2064 1

原创另类Msgbox

写过VB的人都知道Msgbox函数弹出系统提示对话框，这个对话框既然是Windows给我们使用的那么我们就可以通过别的方式改变它。下面我就会调用MessageBox的Api来改变VB的对话框函数，创造出我们自己风格的Msgbox！该例程是将Msgbox弹出，并且总是位于窗口的中央；而且修改了Msgbox中的“确定”按钮上的文字。程序中简单的使用了Windows的钩子。1·加入一个模块：Op

2002-11-28 09:12:00 1654

原创 ListBox中的字符串超长显示的解决方法

使用ToolTip来解决超长文字的显示问题是不错的方案，下面给出了例子的代码。Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As

2002-11-02 12:50:00 3687 1

原创在.net中读写INI文件

在.net中读写ini文件和Vb6中的做法是一致的，唯一注意的一点是Api声明中的Long型变量要改为int32类型在.net中 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As Strin

2002-10-20 09:18:00 1513

原创 Return to Sender

Return to SenderThe Lowly Sender Parameter Can Make Applications Shine The humble Sender parameter could be one of Delphis most useful tools for modular, extensible programming. Although Sender i

2002-10-15 09:24:00 1848

原创 VB术语表

VB GlossaryUse this glossary of key programming terminology as your starting point as you learn Visual Basic. If a term is not listed here, or you need a more detailed explanation, try consulting the

2002-10-11 23:19:00 2592

原创 Introduction to OOP in VB.NET

by Budi Kurniawan09/23/2002 Visual Basic .NET offers its users, among many other things, a fully object-oriented programming (OOP) experience. Some former VB6 developers have prepared themselves

2002-10-11 23:07:00 1387

原创处理鼠标移出事件

Windows提供的鼠标移出消息有时候很有用，但是VB6中没有把这个事件封装给我们。但是我们仍然可以使用子类化技术实现他，下面的代码就是一个简单的例子来处理Windows的WM_MOUSELEAVE消息的，我演示的是鼠标移出一个Button时的情形。1.加入一个模块，专门用来处理子类函数：Option Explicit

2002-10-11 23:01:00 1972

原创检查特殊字符的简单VCL

这是个很简单的组件，编写它的目的也很单纯，就是想解决数据录入时的特殊字符检查问题。一开始要写函数实现，不过觉得麻烦，后来就想到写一个简单的VCL来遍历Form上所有的组件的方法。这个VCL目前只是检查所有的TEdit和TComboBox组件，有兴趣的朋友可以自己扩充功能。我想这个VCL对于编写数据库程序的人员来说还是有一点帮助的，比如对单引号的Check。想要检查什么符号只要在属性中

2002-09-25 11:00:00 1314

原创如何得到应用程序的运行时间

利用函数GetTickCount就可以搞定，不过他是个API，需要声明一下下。还有需要注意的是，这个函数返回的是毫秒，所以需要自己再转换单位的！GetTickCount得到的是操作系统到现在为止的运行时间，那么用两次的返回值相减就可以了。Option ExplicitPrivate Declare Function GetTickCount Lib "kernel32" () As Lo

2002-09-24 09:34:00 1667

原创托拽Explore中的文件到VB.net的窗口

要让VB.net相应外部托拽来的文件，需处理WM_DROPFILES消息。Private Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd As Int32, ByVal fAccept As Int32)Private Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop

2002-08-29 09:15:00 1204

原创轻松实现控件间托拽操作

在Vb.net里实现ListBox之间的托拽，首先要使接受托拽数据的控件的AllowDrop属性设为真。再要处理的就是托拽效果，AllowedEffect是设置托拽的源控件的动作效果，而Effect是设置目标控件的动作。这些东东可以在DragEventArgs Members中查到！ Private Sub Form1_Load(ByVal sender As System.Ob

2002-08-28 08:58:00 1464

原创调用屏幕保护

想要调用系统屏幕保护，主要是发送一个WM_SYSCOMMAND消息即可。 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lPara

2002-08-27 09:19:00 1456

原创将About加入系统菜单

在VB.net中想要实现这个也很简单，不过需要重载窗口的WndProc过程才能处理WM_SYSCOMMAND消息具体代码： Private Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (ByVal hwnd As Int32, ByVal bRevert As Int32) As Int32 P

2002-08-26 11:28:00 1271

原创个性化文件夹图标（VB）

抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的Folder Icon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。1. 手动方式：首先要在需要改变的文件夹中创建一个Desktop.ini文件，例子如下[.ShellClassInfo]ConfirmFileOp=0InfoTip=我自己的文件夹IconIndex=0I

2002-08-05 10:40:00 1468

原创个性化Folder Icon（Delphi）

抛弃Windows的默认图标吧，让自己的程序所在的目录拥有个性化的Folder Icon！其实作起来简单得很，实际上只需要一个Desktop.ini文件即可，下面我会从两个方面说明。1. 手动方式：首先要在需要改变的文件夹中创建一个Desktop.ini文件，例子如下[.ShellClassInfo]ConfirmFileOp=0InfoTip=我自己的文件夹IconIndex=0Icon

2002-08-05 10:34:00 1333

原创界面开发之Flat3DButton

自己是否想过重画控件，现在用强大的VB来实现吧。下例就是简单的利用VB中的CommandButton改变成Flat3DButton风格。其实就是利用VB的SubClass去处理父窗口的WM_DRAWITEM消息。1. 建立一个标准EXE工程，加入Command1和Command2，将Command1的Style属性设为Graphical。2. 加入模块，取名SubClass_Flat3

2002-07-26 09:48:00 1263

原创调用IE的收藏夹

调用IE的收藏夹（系统需要IE4以上版本） Internet Explorer 库--shdocvw.dll包含了许多可以操纵IE收藏夹的API。其中的两个API是调用IE的“添加到收藏夹”和“整理收藏夹”对话框。下面的示例程序就是如何使用这两个对话框。“添加到收藏夹”的Dialog很像Windows的通用对话框中的SaveAs Dialog，它自身没有任何机能（不能创建或保存一个

2002-07-22 10:24:00 1966 1

原创在托盘上显示Balloon Tooltip

运行这个示例的前提是系统需要Windows 2000 or XP （Shell version 5 or better）。大家可能对托盘程序很熟悉了，这里我也不再多讲，这段小代码只是说明一下托盘的新特性：显示Balloon Tooltip。至于什么是Balloon Tooltip，只要把一下代码贴到VB中就会看到新鲜效果，再次提醒注意运行环境！1.建立标准EXE工程，为Form1换一个P

2002-07-22 10:23:00 1682

原创使用Windows消息控制Winamp（Delphi）

使用Windows消息控制Winamp（Delphi）--------------------------------------------------------------------------------第一部分：得到Winamp的窗口Winamp是一个32位的Windows应用程序。也就是说,我们可以使用32位的Windows编程的一些基础技术来实现控制Winamp，即使用Wi

2002-06-26 09:26:00 1455

原创使用Windows消息控制Winamp（VB）

第一部分：得到Winamp的窗口Winamp是一个32位的Windows应用程序。也就是说,我们可以使用32位的Windows编程的一些基础技术来实现控制Winamp，即使用Windows的消息系统。在你给Winamp发送消息之前，你必须得到Winamp窗口的句柄。这里有个方法，使用外部应用程序（例如你自己编写的VB应用）就可以达到要求。Public Declare Function Fi

2002-06-24 09:25:00 1502

原创用Delphi编写涂鸦桌面的小程序

有很多的关于涂鸦桌面的小软件，确实很好玩，现在来用Delphi实现之。我建议使用Delphi，因为他做这个简直太Easy了！首先，新建一个Application，将Form1的WindowState设为wsMaximized，BorderStyle设为bsNone。这样做的目的就是可以使窗口的Client区域充满整个屏幕，那么我们就可以在上面随意的画画了。接下来，在Form的OnC

2002-06-11 15:05:00 1689

原创调用系统屏幕保护

有的人觉得API很复杂，其实如果你从比较有趣的API函数开始学习的话，就觉得API很好玩的。下面我们在自己的程序中启动Windows操作系统的屏幕保护。利用强大的SendMessage函数发送一个WM_SYSCOMMAND消息，我们就可以搞定，很简单吧。建立一个VB6标准的EXE工程，将下列代码贴入Option Explicit声明这个SendMessage的API使用Privat

2002-06-06 09:40:00 1396

原创将About加入窗口的系统菜单

如果能把关于软件的一些信息（About Me）加入窗口的系统菜单是不是很酷啊！其实这是个很简单的操作，Lets go！1.添加一个模块（SubClass）Option Explicit有关系统菜单的APIPublic Declare F

2002-06-05 10:29:00 1401

原创让窗体的标题栏不相应鼠标双击

还等什么，让我们现在开始。1。新建一个VB6的标准EXE工程，然后添加一个模块，将下列代码加入新的模块中：Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal

2002-05-17 17:13:00 1789

原创有用的GetForegroundWindow

这个小例子就是用来演示如何得到Windows桌面上处于活动状态的窗口的句柄的。使用一个Timer控件就可以搞定。在本例中再通过GetWindowText函数来处理得到句柄后的操作。1。新建一个标准VB6的EXE工程，加入Timer控件2。API函数的声明private Declare Function GetForegroundWindow Lib "user32" () as

2002-05-17 17:11:00 2919

40Star的专栏