求助：一个时钟问题
今天看到一个小程序上自带一个时钟(八段LED管类型的)，该时钟是由0~9总共10个.bmp图片组成小弟的问题是：如何让这十个图片显示的当前时间呢？（时间格式是hh:mm:ss）
在这里先谢过大家了，并祝大家新年快乐！ --------------------编程问答-------------------- 应该是DrawString上去的吧。 --------------------编程问答-------------------- 把当前时间的数字提取出来，然后把数字对应到0~9的文件名上。 --------------------编程问答-------------------- 通过Timer定时刷新显示图片
Calendar/LEDControl --------------------编程问答-------------------- 使用VC++.net做一个应用程序。该应用程序需要与SVN的工具联合起来使用。
--------------------编程问答--------------------
呵呵，其实真不是~~~那个时钟不是自己画的~~ --------------------编程问答--------------------
请问这是怎么做到的，用什么函数啊？ --------------------编程问答--------------------
呵呵，用Timer刷新图片这个我倒是能做到（就是用这十个图片做个计数器我可以的：）），但如何让图片随时显示当前时间呢~~~ --------------------编程问答-------------------- 你可以先把0~9这十个图片命名为0.bmp, 1.bmp, ... 9.bmp。
然后在时钟的触发控件里写个循环，循环时间里面的每一位（时间格式：HHmmss）
再根据每一位的字数，把相应的BMP图片加载到窗口上，所以说窗口上要有八个显示图片的控件（包括两个分号）
例如：
当读取到第一个H是1的时候，就加载1.bmp图片，并显示到小时所对应该的控件上 --------------------编程问答--------------------
写个循环我倒是能做到，不过要让随时显示当前系统时间，这个我做不到~~~55555 --------------------编程问答--------------------
'示例
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim BP1 As New Bitmap(100, 24)
Dim dys As String() = {Format(Date.Now, "hh"), Format(Date.Now, "mm"), Format(Date.Now, "ss")}
Using G As Graphics = Graphics.FromImage(BP1)
'时
Dim dyTmp As String() = {dys(2).Chars(0), dys(2).Chars(1)}
G.DrawImage(Dwimag(dyTmp(1)), BP1.Width - 15, 0)
G.DrawImage(Dwimag(dyTmp(0)), BP1.Width - 29, 0)
G.DrawImage(Image.FromFile("E:\Test_vb8\桌面日历\Bz.png"), BP1.Width - 34, 0) '秒点
'分
dyTmp = New String() {dys(1).Chars(0), dys(1).Chars(1)}
G.DrawImage(Dwimag(dyTmp(1)), BP1.Width - 49, 0)
G.DrawImage(Dwimag(dyTmp(0)), BP1.Width - 63, 0)
G.DrawImage(Image.FromFile("E:\Test_vb8\桌面日历\Bz.png"), BP1.Width - 68, 0) '秒点
'秒
dyTmp = New String() {dys(0).Chars(0), dys(0).Chars(1)}
G.DrawImage(Dwimag(dyTmp(1)), BP1.Width - 83, 0)
G.DrawImage(Dwimag(dyTmp(0)), BP1.Width - 97, 0)
End Using
'这里改为API效果更好
Dim mG As Graphics = Me.CreateGraphics
mG.DrawImage(BP1, 0, 0)
BP1.Dispose()
End Sub
'图片可输入到资原文件 '提高效率
' Dim Dwimag As Image() = {My.Resources.Bx0, My.Resources.Bx1, My.Resources.Bx2, My.Resources.Bx3, My.Resources.Bx4, _
' My.Resources.Bx5, My.Resources.Bx6, My.Resources.Bx7, My.Resources.Bx8, My.Resources.Bx9}
Dim Dwimag As Image()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 10
Timer1.Enabled = True
Dim dirPth As String = "E:\Test_vb8\桌面日历\"
Dwimag = New Image() {Image.FromFile(dirPth & "Bx0.png"), Image.FromFile(dirPth & "Bx1.png"), _
Image.FromFile(dirPth & "Bx2.png"), Image.FromFile(dirPth & "Bx3.png"), _
Image.FromFile(dirPth & "Bx4.png"), Image.FromFile(dirPth & "Bx5.png"), _
Image.FromFile(dirPth & "Bx6.png"), Image.FromFile(dirPth & "Bx7.png"), _
Image.FromFile(dirPth & "Bx8.png"), Image.FromFile(dirPth & "Bx9.png")}
End Sub
End Class --------------------编程问答-------------------- 图片可用BMP的格式的 --------------------编程问答-------------------- 重发图片
--------------------编程问答--------------------
我觉得在图片上显示当前时间是不可能的，除非你把原图片上的数字去掉，然后再在图片上刷新当前系统时间
--------------------编程问答--------------------
上面代码的示例图片重发图片
--------------------编程问答--------------------
既然能做到，你把能做到的这段代码放到那个“随时”的触发时机里就可以了。
补充：.NET技术 , VB.NET
