【改头换面】【简单操作，强大功能】成绩统计系统v2010-剥壳易制作

STJX2012 · 发表于 2010-7-23 09:56

好东西，支持

dianchao · 发表于 2010-7-24 11:31

看起来很强大，大师之作

qhllqhll · 发表于 2010-7-24 18:26

请问老师：您的“进入---一班”的组合控件是怎样设计和制作的那么整齐和靠近的那么均匀啊？
1.、是怎样让它靠近的都一样的距离，整齐的啊
我用了：绘图--对齐或分布--右对齐---纵向分布---以后不知道怎么做了

[ 本帖最后由 qhllqhll 于 2010-7-24 18:56 编辑 ]

likezsu · 发表于 2010-7-24 18:58

太经典了，不由自主赞一个

likezsu · 发表于 2010-7-24 19:17

嗯~希望能改进体艺类的，呵呵~谢谢

[ 本帖最后由 likezsu 于 2010-7-24 19:20 编辑 ]

zy040059 · 发表于 2010-7-26 15:03

这个我也试过，暂时没有好方法，只有一个一个移动对整齐咯，我想是因为这些控件设置了层叠次序的关系吧

pyzx · 发表于 2010-8-5 00:33

太强了，非常谢谢！！！！！教务主任的接班人！！！！！！！！！！顶

wxhsqdy · 发表于 2010-8-9 00:52

原帖由 zy040059 于 2010-7-15 11:32 发表
我屏蔽了ALT+F11，你只能从“工具”——“宏”——“Visual Basic编辑器”中调出窗口

我很想学习：“怎么屏蔽ALT+F11”，能告诉我怎样做吗？

zy040059 · 发表于 2010-8-9 16:47

原帖由 wxhsqdy 于 2010-8-9 00:52 发表

我很想学习：“怎么屏蔽ALT+F11”，能告诉我怎样做吗？

代码如下：
Public Sub yccdml()
'Application.DisplayFormulaBar = False  '隐藏藏编辑栏
Application.EnableCancelKey = xlDisabled '禁用“Ctrl+Break”组合键
Application.CommandBars("Ply").Enabled = False  '工作表标签上快捷菜单失效
Application.CommandBars("Sheet").Controls(1).Enabled = False '格式＿工作表不能重命名
Application.CommandBars.FindControl(ID:=889).Enabled = False '右键菜单不能重命名
Application.CommandBars.FindControl(ID:=891).Enabled = False '禁用取消隐藏功能
Application.OnKey "%{F11}", "" '屏蔽组合键ALT+F11 %代表ALT
Application.OnKey "%{F8}", ""  '屏蔽组合键ALT+F8
End Sub

qhllqhll · 发表于 2010-8-9 17:23

谢谢谢谢谢谢

		自动登录	找回密码
密码			免费注册

【改头换面】【简单操作，强大功能】成绩统计系统v2010-剥壳易制作

回复 22楼 zy040059 的帖子

回复 44楼 qhllqhll 的帖子

回复 47楼 zy040059 的帖子