很有用的主窗体

一指禅62 · 发表于 2013-5-18 21:39

本帖最后由一指禅62 于 2013-5-20 15:45 编辑

今儿闲着，作了一个主窗体放这儿，以备后用。若大家看得顺眼，别忘踩一脚。

未命名.jpg

设计主界面.zip (207.49 KB, 下载次数: 616)

补充内容 (2014-3-1 15:05):
补充了一个用类模块代码控制的，11楼

补充内容 (2014-3-21 19:52):
改进版在11楼、16楼。

补充内容 (2024-7-21 19:00):
CommandBar模式 https://club.excelhome.net/forum ... amp;_dsign=bae9df4e

hbshow · 发表于 2024-7-24 17:19

感谢，学习中

lagssl · 发表于 2024-7-22 13:38

下载，学习。

chenhaiyong1973 · 发表于 2020-11-14 14:51

不错，学习了

wc573420973 · 发表于 2020-10-14 21:12

厉害，可以用cmd的move来精简代码

考试加油站 · 发表于 2020-10-14 20:52

不错，学习一下

老鬼公公_31 · 发表于 2017-11-14 08:32

一指禅62 发表于 2014-3-21 19:41

请问老师，ImageList1怎样放入图片，图片是什么格式的？

老鬼公公_31 · 发表于 2017-11-1 21:24

老师，有好用登陆系统窗口吗？

一指禅62 · 发表于 2017-10-31 10:04

老鬼公公_31 发表于 2017-10-30 14:34
老师在吗，二级菜单怎样进入窗体啊

主界面设计（类模块的）.zip (130.67 KB, 下载次数: 121)

一指禅62 · 发表于 2017-10-31 10:00

老鬼公公_31 发表于 2017-10-30 10:39
老师，二级菜单这里怎样点击链接到窗体，比例员工档案，窗休的名字也是员工档案

1、类模块中的代码稍作修改

Private Sub labMenu_Click()
Main.labView.Caption = Key1 & "" & Key2
'MsgBox "现在运行【" & Key2 & "】程序", vbInformation, Key2
On Error GoTo 123 ' Resume Next
Call Application.Run(Key2)
Exit Sub
123:
MsgBox "请添加“" & Key2 & "”宏"
End Sub

复制代码

2、模块中写入代码

Sub 员工档案()
'MsgBox "现在运行“员工档案”的宏"
frm员工档案.Show
End Sub

复制代码

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

[分享] 很有用的主窗体

评分