Delphi实现读取系统时间与日期完整实例
本文讲述了Delphi读取系统时间与日期的实现方法,首先设置各个控件用于显示时间、读取时间与设置时间。再添加如下代码:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Button ...
Delphi实现碰撞球体完整实例代码
本文以实例描述了用Delphi实现撞击球效果的方法,类似弹球效果。点击“开始”按钮,窗体中的一个绿色小球将不断地左右撞击运动,并且其大小不停地变化。点击“停止”按钮,小球停止运动。用鼠标拖动右下方的调节控件,可以调整小球运动的速度。
这里我们主要是使用Timer 控件、Panel 控件、TrackBar 控件、SpinEdit 控件、S ...
Delphi中对时间操作方法汇总
一般来说在delphi中用于描述时间的有几种数据结构,而对时间的操作,实质上就是对这些结构的操作。
TDateTime类型:
Delphi中最常用的表示日期时间的数据类型TDateTime类型,和普通的整形数一样,你可以给日期定义一个日期型变量以便在程序中进行操作。TdateTime类型实质上是一个Double型的数,在Delphi中是这样定义TdateTi ...
Delphi实现毫秒级别的倒计时实例代码
本文以实例简述了Delphi实现毫秒级别倒计时的方法。一般来说可以获得系统的高性能频率计数器在一毫秒内的震动次数,如果时钟震动次数超过10毫秒的次数则刷新edit3的显示,显示从开始记数到记数实际经过的时间,具体实现代码如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls ...
Delphi控件ListView的属性及使用方法详解
Delphi的ListView组件位于组件板的Win32页,可使用4种图形方式(大图标、小图标、列表、详细列表)来描述选项内容,类似于Windows操作系统中的“我的电脑”,数据项图形保存在ImageList组件中。
1.ListView主要属性
(1)ViewStyle属性
ViewStyle属性用于选择数据项的4种显示方式,因此该属性有4个选项值:vsIcon大图标、vs ...
Delphi实现Listbox中的item根据内容显示不同颜色的方法
本文简述了Delphi实现Listbox中的item根据内容显示不同颜色的方法,实现步骤如下:
ListBox1 的 Style 属性改为 lbOwnerDrawVariable
在ListBox的OnDrawItem事件裡,根据item的值,改变Canvas属性
示例代码如下:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDr ...
Delphi用TActionList实现下载文件的方法
Delphi中的TActionList有个标准动作TDownLoadURL,内部是使用的URLDownloadToFile,它下载文件时会定时产生OnDownloadProgress 事件,这样就可以用进度条显示。
本文讲述了Delphi用TActionList实现下载文件的方法,实现代码如下所示:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ...
Delphi7中Listview的常用功能汇总
有些时候我们在使用Delphi7的Listview过程中总是要改一些默认的设置,现在把它们集中起来汇总如下。
MultiSelect := True; 使Listview可以同时选择多行
GridLines := True; 使Listview显示格线
ViewStyle := vsReport; 显示数据项的详细列表
HideSelection := True; 使listview ...
分享如何在VB中调用VC编写的DLL
一般来说,VB和VC共同编程有3种方式:一种是VC生成DLL,在VB中调用DLL;一种是VC生成ActiveX控件(.ocx),在VB中还有一种是在VC中生成ActiveX Automation服务器,在VB中调用。相对而言,第一种方法对VC编程者的要求最低,但要求你的伙伴进行配合,我推荐这种方法。先说说VC++的编程。首先在VC++中生成Win32 DLL工程。在这个 ...
VB简易记事本实现代码
事件实现代码: 复制代码 代码如下: Private Sub mQuit_Click() Text1.Text = "" End End Sub Private Sub mNew_Click() Text1.Text = "" Form1.Caption = "未命名" End Sub Private Sub mopen_Click() CommonDialog1.ShowOpen Frame = CommonDialog1.FileName If fname <> "" Then Form1.Caption = fname Text1.Text = "" ...
vb简易计算器源码
代码如下: 复制代码 代码如下: /** *Author:乌鸟heart *Version:1.0 */ Dim IntX As Double '全局变量,用于存储计算的数值 Dim IntOperation As Double '标记运算类型 Dim isBegin As Boolean '标记是否已经给IntX赋值 Public Sub Clear() '清空命令函数 screen.Caption = "" End Sub Public Sub SavaToIntX() Select Cas ...
VB XMLHTTP使用方法
Private Function IsHearOK(URL As String) As Boolean Dim XMLObject As Object, ReturnType As String Set XMLObject = CreateObject("Microsoft.XMLHTTP") XMLObject.Open "GET", URL, False XMLObject.setRequestHeader&nb ...
VB编程的八个优良习惯第1/2页
VB编程的八个优良习惯 1、"&"替换"+" 2、变量命名大小写,语句错落有秩,源代码维护方面 3、请养成以下的“对象命名约定”良好习惯 4、在简单的选择条件情况下,使用IIf()函数 5、尽量使用Debug.Print进行调试 6、在重复对某一对象的属性进行修改时,尽量使用With....End With 7、MsgBox ...
VB编程基础课教程
VB编程基础课 什么是API API文本游览器 API函数声明 数据类型与"类型安全" 常 数 结 构 小 结 一些API函数集: 控件与消息函数、硬件与系统函数、菜单函数、绘图函数 什么是API 首先,有必要向大家讲一讲,什么是API。所谓API本来是为C和C++ ...
关于MSCOMM控件的一些说明第1/2页
关于MSCOMM控件的一些说明 VB5.0/6.的MSComm通信控件提供了一系列标准通信命令的接口,它允许建立串口连接,可以连接到其他通信设备(如Modem). 还可以发送命令、进行数据交换以及监视和响应在通信过程中可能发生的各种错误和事件,从而可以用它创建全双工 、事件驱 动的、高效实用的通信程序。但 ...
如何产生真正的随机函数?
//MSDN Randomize 为了生成某个范围内的随机整数,可使用以下公式:Int((upperbound - lowerbound + 1) * Rnd + lowerbound) 这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。 ---- 在VB中的随机函数是Rnd,但 ...
什么是一个高效的软件
什么是一个高效的软件?一个高效的软件不仅应该比实现同样功能的软件运行得更快,还应该消耗更少的系统资源。这篇文章汇集了作者在使用VB进行软件开发时积累下来的一些经验,通过一些简单的例子来向你展示如何写出高效的VB代码。其中包含了一些可能对VB程序员非常有帮助的技术。在开始之前,先让我陈清几个概念。 ...