[原创][Delphi]自定义类 ---哎,Delphi又让我BS了一次

今天写了一个自定义的类,用以计算平均数, 又发现我跟Delphi真是格格不入啊,多么简单的功能,而且C++版本的都写好了,可以参照着写,居然还是花了两个多小时才搞定. 先挖个坑,有空再来写
原创 | 2008-05-21 21:46 | 阅读 4565 次 | 评论 0 条

SendMessage函数完全使用手册

SendMessage函数完全使用手册首先 我们了解一下Windows的消息机制。Windows是一个消息驱动式系 统,Windows消息提供应用程序与应用程序之间,应用程序与Windows系统之间进 行通信的手段。举个例子,打开记事本程序,该程序有一个 “文件“菜单。 那么,在运行该程序 的时候,如果用户单击“文件菜单“里的“新建“命令, 这个动作将被Windows所捕 捉,Windows经过分析得知这个动作应该由我们打开的记事本程序所来处理,然后 Windows就发送个消息 譬如我们编程的时候有时用到的 WM_COMMAND的消息给记 事本,然后记事本就把这个消息处理掉。 这个过程就...
VB | 2008-05-21 08:34 | 阅读 7149 次 | 评论 0 条

[VB]ListView控件小技巧

1. 让ListView失去焦点的时候,选中行依然高亮显示 方法: 代码中加入 ListView1.HideSelection = False 或者在其属性中设置 虽然失去焦点后,选中行变成灰色的,但是和其它的行还是有区别的 2. 调整ListView每行的间距 方法: 添加一个ImageList控件,然后在ImageList控件里面随便添加一副图片,图片的高度必须是你想设置的行高,然后设置ListView的SmallIcons 为 ImageList控件 (ListView1.SmallIcons = ImageList1) 曲线救国,虽然麻烦了点,但还是可以实现的,个人觉得...
VB | 2008-05-18 16:51 | 阅读 15483 次 | 评论 1 条

[VB]如何在RichTextBox中实现Undo功能

SendMessage函数在RichTextBox中实现:一、一次撤销功能二、无限地撤销功能生活中的What's done cannot be undone在我们的程序中应该改为What's done can always be undone。你不相信?那么请看——如果仅仅象MS的小记事本那样只有一次undo功能,那不是一件麻烦事,用SendMessage函数就可以轻松实现。下列代码能使RichTextBox有一次撤销操作的功能:Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hw...
VB | 2008-05-12 16:09 | 阅读 5342 次 | 评论 0 条