| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]foxtable界面美化之——模拟电子石英钟 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1735) |
| -- 作者：程兴刚 -- 发布时间：2009/2/5 2:46:00 -- [分享]foxtable界面美化之——模拟电子石英钟 示例：foxtable界面美化 之 窗口《模拟电子石英钟》，时钟多类型可选。 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=233&move=next 见2楼(刚刚发现，原链接有误，以修正) [此贴子已经被作者于2012-10-6 23:12:10编辑过]
|
| -- 作者：smileboy -- 发布时间：2009/2/5 8:59:00 -- 顶！ |
| -- 作者：狐狸爸爸 -- 发布时间：2009/2/5 9:28:00 -- 我顶 |
| -- 作者：菜鸟foxtable -- 发布时间：2009/2/5 9:45:00 -- 顶起,把代码放出来让大家学习. 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 |
| -- 作者：狐狸爸爸 -- 发布时间：2009/2/5 9:54:00 -- 呵呵，代码很精干 |
| -- 作者：狐哥 -- 发布时间：2009/2/5 9:55:00 -- 学习 |
| -- 作者：t_fs -- 发布时间：2009/2/5 10:52:00 -- 注：ComboBox 跨表绑定有bug，重新打开项目会自动失效，重新绑定ok。请贺老师及时修正！ 深有同感，深受其害！！ 年前曾发过此类贴子，好象并未引起贺总的注意，仅说我的项目的关联有问题。查了一下，我认为关联无问题。而是“ComboBox 跨表绑定”的问题：刚邦定完时使用一点问题都没有，可是退出系统后，邦定的字段就没有了，还需再重新邦定字段。另外，有时在邦定字段时，发现下拉框中不能显示出所有的关联表，只能显示出部分关联表。 关键问题就是：好象绑定不能真正保存下来，害得我多次的按系统的保存按扭，前些日子总算能保存下来了，可是昨天用时发现邦定又没了。 因为这个问题很少有人用到，不会轻易发现它。因此，麻烦贺总再耐心的检查一下，并及时修正！ |
| -- 作者：程兴刚 -- 发布时间：2009/2/5 10:58:00 -- 以下是引用t_fs在2009-2-5 10:52:00的发言：
深有同感，深受其害！！ 年前曾发过此类贴子，好象并未引起贺总的注意，仅说我的项目的关联有问题。查了一下，我认为关联无问题。而是“ComboBox 跨表绑定”的问题：刚邦定完时使用一点问题都没有，可是退出系统后，邦定的字段就没有了，还需再重新邦定字段。另外，有时在邦定字段时，发现下拉框中不能显示出所有的关联表，只能显示出部分关联表。 关键问题就是：好象绑定不能真正保存下来，害得我多次的按系统的保存按扭，前些日子总算能保存下来了，可是昨天用时发现邦定又没了。 因为这个问题很少有人用到，不会轻易发现它。因此，麻烦贺总再耐心的检查一下，并及时修正！
|
| -- 作者：kylin -- 发布时间：2009/2/5 11:31:00 -- 收藏 |
| -- 作者：czy -- 发布时间：2009/2/5 12:23:00 -- 才看到，顶下先。 |