自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(32)
  • 收藏
  • 关注

原创 使用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 2096

原创 在托盘上显示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 1874

原创 在.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 1752

原创 在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 4303

原创 .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 3565

原创 ADO记录集和水晶报表

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

2002-12-03 08:53:00 9051

原创 用VB处理定长文本的导入

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

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

原创 另类Msgbox

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

2002-11-28 09:12:00 1559

原创 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 3349 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 1365

原创 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 1755

原创 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 2311

原创 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 1304

原创 处理鼠标移出事件

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

2002-10-11 23:01:00 1860

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

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

2002-09-25 11:00:00 1233

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

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

2002-09-24 09:34:00 1580

原创 托拽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 1132

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

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

2002-08-28 08:58:00 1386

原创 调用屏幕保护

        想要调用系统屏幕保护,主要是发送一个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 1371

原创 将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 1183

原创 个性化文件夹图标(VB)

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

2002-08-05 10:40:00 1408

原创 个性化Folder Icon(Delphi)

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

2002-08-05 10:34:00 1239

原创 界面开发之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 1192

原创 调用IE的收藏夹

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

2002-07-22 10:24:00 1892 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 1616

原创 使用Windows消息控制Winamp(Delphi)

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

2002-06-26 09:26:00 1370

原创 使用Windows消息控制Winamp(VB)

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

2002-06-24 09:25:00 1446

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

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

2002-06-11 15:05:00 1620

原创 调用系统屏幕保护

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

2002-06-06 09:40:00 1331

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

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

2002-06-05 10:29:00 1290

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

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

2002-05-17 17:13:00 1609

原创 有用的GetForegroundWindow

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

2002-05-17 17:11:00 2654

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除