精华内容
下载资源
问答
  • ……………………该文档为时钟系列桌面图标下载,是一份很不错的参考资料,具有较高参考价值,感兴趣的可以下载看看
  • 好人时钟是一款电脑桌面时钟软件,软件可以设置时钟提醒、一键报时等功能,真人发音,软件永久免费,开机就能自动运行,软件方便简单,功能强大,欢迎下载。 软件简介: 好人时钟是一款纯液晶显示的真人发音时钟,...
  • 咪咪桌面时钟是一款漂亮实用的桌面数字时钟、指针时钟、月历、天气预报。Win7透明界面,极具视觉冲击感。月历支持公历、农历、干支;节假日信息提示,支持日历标注。自定义定时
  • C#桌面时钟(安装程序)

    2007-11-21 20:53:57
    一个浮在桌面上的时钟程序,C#开发,允许更换皮肤,用户也可以增加自己的新外观.
  • 易语言桌面时钟源码

    2020-07-16 00:31:36
    易语言桌面时钟源码,桌面时钟,初始化,创建桌面时钟,选择皮肤,创建数字图片框,定义图片数组,取时分秒,置数字图片
  • 迷你时钟,一个桌面小工具,非常有意思的东东。
  • 桌面时钟软件3.05

    2010-07-18 21:22:39
    桌面时钟软件 桌面时钟软件 桌面时钟软件 桌面时钟软件 桌面时钟软件 桌面时钟软件 桌面时钟软件
  • wpf桌面时钟

    2016-01-19 23:46:22
    C#指针式桌面时钟
  • 桌面时钟

    2020-10-21 21:05:33
    在本篇博文中将向读者展现如何实现一个如下图所示的背景透明的桌面时钟 。 1、窗体和控件 窗体高度和宽度都为200 ,TopMost=True;FormBorderStyle=None 放置的控件: picClock:Picturebox控件,Dock=Fill。 ...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。

    在本篇博文中将向读者展现如何实现一个如下图所示的背景透明的桌面时钟 。

    1、窗体和控件

    窗体高度和宽度都为200 ,TopMost=True;FormBorderStyle=None
    放置的控件:
    picClock:Picturebox控件,Dock=Fill。
    ContextMenuStrip1:ContextMenuStrip组件,菜单项分别为:图片一、图片二、图片三、退出。
    tmClock:Timer组件,Interval =100。

    2、设置窗体透明:
    通过TransparencyKey 属性设置窗体需要透明的颜色
    通过BackColor属性设置背景颜色

    3、时钟刻度和指针位置:
    这里需要一些简单的三角函数知识,同时需要注意VB.Net的坐标系,x轴向右,y轴向下。

    4、资源文件的使用
    时钟中心图片可以替换,用于替换的图片保存在资源文件中,名称为png1、png2、png3。

    5、Timer组件的间隔
    这里是设置为了100毫秒,为什么不设置为1秒,因为经过测试,可能会出现Timer的1秒刚刚开始,恰好真实事件的1秒刚好结束的情况,也就是看起来时钟比真实时间差1秒。所以选择了100毫秒。

    6、时钟位置
    由于窗体设置了无边框,所以必须加入相应代码实现窗体的拖动,当鼠标左键按下时,记录当前鼠标位置;当鼠标移动并且鼠标左键按下时,记录当前位置,并与之前的位置做对比,从而得到窗体的位置。

    7、详细代码

        Dim g As Graphics
    
        '时钟圆形边缘半径
        Dim r As Integer
    
        '时钟中央图片编号
        Dim centerImgId As Integer
    
        '按下鼠标左键时鼠标位置
        Dim mousePoint As Point
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            '设置窗体需要透明的颜色
            Me.TransparencyKey = Color.White
            '设置背景颜色
            Me.BackColor = Color.White
    
            '绘图表面
            g = picClock.CreateGraphics
    
            '时钟圆形边缘半径
            r = picClock.Height / 2 - 20
    
            '初始显示图片为1号图片
            centerImgId = 1
    
            '启动计时器
            tmClock.Start()
    
        End Sub
    
        '绘制中心图片
        Private Sub drawClockImg()
            Dim bmp As Bitmap
            Select Case centerImgId
                Case 1
                    bmp = My.Resources.Resource1.png1
                Case 2
                    bmp = My.Resources.Resource1.png2
                Case 3
                    bmp = My.Resources.Resource1.png3
            End Select
            '圆心坐标
            Dim center As Point = New Point(picClock.Width / 2, picClock.Height / 2)
            g.DrawImage(bmp, New Point(center.X - bmp.Width / 2, center.Y - bmp.Height / 2))
        End Sub
    
        '绘制时钟圆盘
        Private Sub drawClockCircle()
            Dim myPen As New Pen(New SolidBrush(Color.Red), 3)
            g.DrawEllipse(myPen, New Rectangle(10, 10, picClock.Width - 20, picClock.Height - 20))
        End Sub
    
        '绘制时钟刻度
        Private Sub drawClockGrid()
            Dim pos As Point
            Dim angle As Integer
            Dim rGrid As Integer
            rGrid = r - 5
            For i As Integer = 0 To 59 Step 5
                angle = 180 - Math.Truncate(i * 360 / 60)
                pos.X = CType(rGrid * Math.Sin(angle * Math.PI / 180), Integer)
                pos.Y = CType(rGrid * Math.Cos(angle * Math.PI / 180), Integer)
                g.FillEllipse(New SolidBrush(Color.Blue), New Rectangle(picClock.Width / 2 + pos.X - 2, picClock.Height / 2 + pos.Y - 2, 4, 4))
            Next
        End Sub
    
        '绘制时钟指针
        Private Sub drawClockHand(ByVal nowTime As DateTime)
            Dim H As Integer = (nowTime.Hour - 12) * 5
            Dim M As Integer = nowTime.Minute
            Dim S As Integer = nowTime.Second
    
            Dim Hr As Integer = r - 40
            Dim Mr As Integer = r - 20
            Dim Sr As Integer = r
    
            Dim Hpen As New Pen(New SolidBrush(Color.Red), 2)
            Dim Mpen As New Pen(New SolidBrush(Color.Blue), 2)
            Dim Spen As New Pen(New SolidBrush(Color.Red), 1)
    
            '圆心坐标
            Dim center As Point = New Point(picClock.Width / 2, picClock.Height / 2)
    
            Dim Hpos As PointF = getPos(Hr, H)
            g.DrawLine(Hpen, center, New Point(center.X + Hpos.X, center.Y + Hpos.Y))
    
            Dim Mpos As PointF = getPos(Mr, M)
            g.DrawLine(Mpen, center, New Point(center.X + Mpos.X, center.Y + Mpos.Y))
    
            Dim Spos As PointF = getPos(Sr, S)
            g.DrawLine(Spen, center, New Point(center.X + Spos.X, center.Y + Spos.Y))
        End Sub
    
        ''' <summary>
        ''' 求出指针末端坐标
        ''' </summary>
        ''' <param name="radius">指针半径</param>
        ''' <param name="HandValue">指针所对值</param>
        ''' <returns></returns>
        Private Function getPos(ByVal radius As Integer, HandValue As Integer) As PointF
            Dim angle As Integer
            angle = 180 - Math.Truncate(HandValue * 360 / 60)
            Dim pos As PointF
            pos.X = radius * Math.Sin(angle * Math.PI / 180)
            pos.Y = radius * Math.Cos(angle * Math.PI / 180)
            Return pos
        End Function
    
        Private Sub tmClock_Tick(sender As Object, e As EventArgs) Handles tmClock.Tick
            g.Clear(Color.White)
    
            '绘制中心图片
            Call drawClockImg()
    
            '绘制时钟圆盘
            Call drawClockCircle()
    
            '绘制时钟刻度
            Call drawClockGrid()
    
            '绘制时钟指针
            Call drawClockHand(Now)
        End Sub
    
        Private Sub 图片一ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 图片一ToolStripMenuItem.Click
            centerImgId = 1
        End Sub
    
        Private Sub 图片二ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 图片二ToolStripMenuItem.Click
            centerImgId = 2
        End Sub
    
        Private Sub 图片三ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 图片三ToolStripMenuItem.Click
            centerImgId = 3
        End Sub
    
        Private Sub 退出ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 退出ToolStripMenuItem.Click
            Application.Exit()
        End Sub
    
        Private Sub picClock_MouseDown(sender As Object, e As MouseEventArgs) Handles picClock.MouseDown
            If e.Button = MouseButtons.Left Then
                mousePoint = New Point(e.X, e.Y)
            End If
        End Sub
    
        Private Sub picClock_MouseMove(sender As Object, e As MouseEventArgs) Handles picClock.MouseMove
            If e.Button = MouseButtons.Left Then
                Me.Left -= mousePoint.X - e.X
                Me.Top -= mousePoint.Y - e.Y
            End If
        End Sub

     

    展开全文
  • 简易桌面时钟

    2018-10-11 13:40:08
    一个简单的桌面数字时钟,可以鼠标左键随意放置,半透明,右键点击退出
  • 超酷桌面时钟

    2008-08-01 09:54:07
    超酷桌面时钟超酷桌面时钟
  • 桌面炫彩时钟是一款最为精美方便小巧的电脑桌面时钟软件,桌面炫彩时钟支持定时提醒、定时关闭计算机、定时重启计算机,非常方便,需要的朋友欢迎前来下载体验! 时钟简介: 桌面炫彩时钟是一款精美的时钟/提醒/...
  • MFC 桌面时钟

    2018-01-14 09:28:29
    MFC 桌面时钟 VC6.0可以设置表盘、表针、时间、闹钟以及全屏显示
  • 很好用的桌面时钟 时刻改变报时背景,在桌面明显位置,时刻给人最醒目的报时
  • Qt桌面时钟

    2014-07-09 09:09:21
    基于Qt编写的一个桌面时钟工具,嵌入桌面,环形显示,双击关闭。
  • 漂亮的显示时钟软件嵌入桌面系统结构:GetWindow,SetParent,寻找顶级窗口_,取得窗口信息_,设置窗口信息,设置窗口透明度,取系统目录,======窗口程序集1||||------__启动窗口_创建完毕||||------__启
  • GO时钟关于桌面

    2013-07-17 13:32:44
    GO时钟关于桌面
  • 逸风桌面时钟

    2015-07-21 00:01:04
    一个仿Win7的桌面时钟程序,简单方便!
  • vc++桌面时钟

    2013-07-01 09:40:35
    使用vc++开发的一款桌面时钟,而且是一个时钟的界面.
  • 咪咪桌面时钟

    2014-07-06 21:47:32
    咪咪桌面时钟mmclock_setup3.7.1_3.7.1.0.exe
  • 桌面数字时钟

    2012-12-10 08:40:23
    桌面数字时钟
  • 透明桌面时钟

    2013-11-10 16:14:10
    透明桌面时钟很漂亮,可显示日期.绿色软件免安装.
  • c++桌面时钟

    2015-03-28 18:22:07
    一个简单的桌面时钟程序,主要是界面设计,代码部分还是比较简单的,编译器是vc6,不同编译器可能会有小错误
  • windows 桌面时钟

    2013-07-07 18:40:26
    一个自己写的Windows桌面时钟程序,对MFC了解很重要!
  • 桌面时钟---精美桌面时钟更多精彩,欢迎来我的论坛逛逛! 快乐论坛630 http://hanranran.5d6d.com/bbs.php 快乐网赚论坛 http://wangzhuan630.5d6d.com/bbs.php 中国网赚论坛 ...大量精彩图片,软件免费下载 ...
  • win7桌面时钟

    2012-11-16 12:22:50
    桌面时钟,可以设置桌面时钟,简洁,美观 win7系统桌面时钟
  • 精美桌面时钟

    2012-11-07 08:23:15
    一个简单的小程序,vs2008实现 ,桌面多功能时钟,请多提意见

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 22,398
精华内容 8,959
关键字:

时钟下载安装桌面