Access电子钟,时钟,发布源码

2005-01-27 07:09:00
kty-Office交流网
原创
504

可能这里大多数人都不知道我,其实在这里很久了,一直都是潜水,学到不少东西,今天模仿郑老大做了一个点子钟,谁喜欢就拿去用吧
另外,麻烦哪位高手帮我做一下不规则窗体~(去掉粉红色部分)~~这些截面都是我自己做的,不涉及版权问题~~~  
9A0SzvhO.bmp
vo7N7g88.rar

tmtony
界面很不錯,不過,使用圖片實現,還可優化一下, 或者也可使用字體來實現lcd效果.

Trynew
不错,优化了一下:
Private Sub DtTime()
    Dim i As Integer, strDate As String
    strDate = Format(Now(), "yyyymmddwhhmmss", vbMonday)
    For i = 0 To 14
        Me("Date" & i).PictureData = Me("Num" & Mid(strDate, i + 1, 1)).PictureData
    Next
End Sub 

改进后的下载:pmCEW1db.rar


kty
这个方法我开始也想过,就是不知道控件名可以这么写~~厉害,厉害~~我还想问一下,有关于不规则窗体详细点的资料吗?

cjls2000
要是我有10个LB标签 统一全都.caption="dddd" 应该怎么写呢

stephen@stephen
非常好看的界面.在这里想请教一二:FORM界面怎么才能不让使用者移动

sgrshh29
最方便的办法就是把控制框去掉,就无法拖动了。

(界面_窗体_子窗体-相关文章技巧链接):
切换面板动态时钟的副作用
Access自动时钟及数字自增变色

分享