C语言编闹钟程序

程序员联合开发网上有：http://www.pudn.com/downloads59/sourcecode/windows/other/detail207633.html

非常漂亮。

/////////////////橘族//////

大兄弟你点那个文件名，就自动打开了，不要下载的。

给你我打开TransparentWnd.cpp，内容太多，贴子显示不了，就一部分；

////////////////////

www.pudn.com >ktclock.rar >TransparentWnd.cpp

//****************

//* TransparentWindow.CPP

/圆袜弊/*

//* A transparent window class.

//*

//* Based on the idea of Jason Wylie ,Franz Polzer,Luo yun bin

/好岁/* e9225140@student.tuwien.ac.at

//* (C) 2002 by 王鹏

//*

//* Write to me: mailwp@21cn.com

//

#include "stdafx.h"

#include "TransparentWnd.h"

#include "Dib.h"

#include "resource.h"

#include

#ifdef _DEBUG

#define new DEBUG_NEW

#undef THIS_FILE

static char THIS_FILE[] = __FILE__

#endif

#define WM_LIBEN WM_USER+994

CString GetCurPath()

{

TCHAR exeFullPath[MAX_PATH]

CString strPath

GetModuleFileName(NULL,exeFullPath,MAX_PATH)

strPath.Format("%s", exeFullPath)

strPath = strPath.Left(strPath.ReverseFind('\\'))

return strPath

Private Sub Form_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

End

End Sub

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Dim mydate As Date, x As Integer

mydate = Now - #3/23/2009 6:00:00 PM#

x = Val(Second(mydate))

If x Mod 2 = o Then

Form1.Picture = LoadPicture("d:\我的文档\下载的图片\200710300213568037.jpg")'当然这如槐陆是我的电脑上的路径，你输入你明郑想要渣顷的图片的绝对路径就OK了

Else

Form1.Picture = LoadPicture("")

End If

Label1 = Now

End Sub

---