主题：[分享]foxtable界面美化之——模拟电子石英钟

示例：foxtable界面美化  之  窗口《模拟电子石英钟》，时钟多类型可选。

     http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=233&move=next   见2楼(刚刚发现，原链接有误，以修正)

顶！

我顶

顶起,把代码放出来让大家学习.

Vars("时针指数") = date.now().Hour
Vars("分针指数") = date.now().Minute
Vars("秒针指数") = date.now().Second
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
Dim 秒针 As New Pen(Color.Red,1)
Dim 分针 As New Pen(Color.DarkSlateGray,2)
Dim 时针 As New Pen(Color.Black,2)
g.Clear(Color.WhiteSmoke)
If FileSys.FileExists(DataTables("表B").DataRows(0)("系统安装路径") & DataTables("表A").DataRows(0)("时钟类型") & ".png") then
   g.DrawImage(getImage(DataTables("表B").DataRows(0)("系统安装路径") & DataTables("表A").DataRows(0)("时钟类型") & ".png"),0,0,120,120)
   g.DrawPie(时针,40,40,40,40,((Vars("时针指数"))* 30 +(Vars("分针指数"))\2+(Vars("秒针指数"))\30+270) mod 360,1)
   g.DrawPie(分针,35,35,50,50,((Vars("分针指数"))* 6 +(Vars("秒针指数"))\12+270) mod 360,1)
   g.DrawPie(秒针,25,25,70,70,((Vars("秒针指数"))*6+270) mod 360,1)
   p.Repaint()
end if

呵呵，代码很精干

学习

     深有同感，深受其害！！

     年前曾发过此类贴子，好象并未引起贺总的注意，仅说我的项目的关联有问题。查了一下，我认为关联无问题。而是“ComboBox 跨表绑定”的问题：刚邦定完时使用一点问题都没有，可是退出系统后，邦定的字段就没有了，还需再重新邦定字段。另外，有时在邦定字段时，发现下拉框中不能显示出所有的关联表，只能显示出部分关联表。
    关键问题就是：好象绑定不能真正保存下来，害得我多次的按系统的保存按扭，前些日子总算能保存下来了，可是昨天用时发现邦定又没了。

    因为这个问题很少有人用到，不会轻易发现它。因此，麻烦贺总再耐心的检查一下，并及时修正！
 
   

  估计您当时没有找到跨表绑定的规律，这样的话，贺老师可能在本表测试，的确又没问题，造成误会！

收藏

才看到，顶下先。