汽车租赁源码
1. java培训主要学什么
像这样的问题，我已经回答了很多次，现在很多新手，特别是刚刚入行想学java的同学，不知道该从哪里入手，我是在成都课工场学java入的行，现在已变成老司机，我整理了一些java的知识点，一共分为六个阶段，273个技能点，第一阶段、第二阶段、第三阶段、第四阶段是必须要掌握的，很多机构忽悠人，就只学到第四阶段，第五阶段和第六阶段就是高薪、高职的保障，就说说想高薪必须得把后面两个阶段的给掌握了，老铁，觉得合适采纳下啊。
第一阶段：java基本功修炼
1.认识计算机硬件
2.计算机组成原理
3.计算机软件知识
4.计算机网络知识
5.常用网络应用操作
6.认识计算机病毒
7.逻辑训练
8.初识Java
9.变量和数据类型
10.选择结构
11.循环结构for
12.循环结构do-while
13.循环结构while
14.多重循环及程序调试
15.循环进阶
16.一维数组及经典应用
17.二维数组
18.认识类与对象
19.方法及方法重载
20.封装与继承
21.方法重写与多态
22.项目实战-汽车租赁系统
23.抽象类和接口
24.异常
25.项目实战-QuickHit
26.Java中的集合类型
27.List集合
28.Set集合
29.HashMap集合
30.Iterator
31.Collections算法类及常用方法
32.enum
33.包装类及装箱拆箱
34.String、StringBuffer类常用方法操作字符串
35.Date、Calendar
36.Math类常用方法
37.IO/NIO
38.字节输入流(InputStream、FileInputStream、BufferedInputStream)
39.字节输出流(OutputStream、FileOutputStream、BufferedOutputStream)
40.字符输入流(Reader、InputStreamReader、FileReader BufferedReader)
41.字节输出流(Writer、OutputStreamWriter、FileWriter、BufferedWriter)
42.文件复制
43.Serialize、Deserialize
44.职场晋升力：四象限时间管理与精力管理
45.多线程(Thread、Runnable)
46.ThreadLifeCycle
47.线程的调度
48.线程的同步和死锁
49.ThreadPool
50.职场晋升力：团队合作
51.Socket(TCP、UDP)
52.XML概念、优势、规范
53.XML中特殊字符的处理
54.使用DOM读取、添加、删除、解析 XML数据
第二阶段：javaweb开发
55.搭建和配置MySQL数据库
56.数据库增、删、查、改语句
57.事务
58.视图
59.数据库备份与恢复
60.数据库用户管理
61.数据库设计
62.项目实战-银行ATM存取款机系统
63.走进 HTML和CSS
64.列表表格及表单美化
65.CSS 高级操作
66.Bootstrap
67.CSS 组件
68.JavaScript面向对象
69.JavaScript判断、循环
70.JavaScript闭包
71.JavaScript语法
72.Bootstrap综合案例
73.HTML5、CSS3
74.jQuery基础
75.jQuery基本操作
76.jQuery事件与特效
77.jQuery Ajax
78.jQuery插件
79.搭建Web 环境初识JSP
80.JSP九大内置对象
81.JSP实现数据传递和保存
82.JDBC
83.单例模式、工厂模式
84.MVC、三层模式
85.Commons-fileupload、CKEditor
86.分页查询
87.EL 与 JSTL
88.Servlet与Filter
89.Listener与MVC
90.Ajax 与 jQuery
91.jQuery的Ajax交互扩展
92.项目实战—使用Ajax技术改进新闻发布系统
93.反射
94.Linux系统的安装
95.在Linux中管理目录和文件
96.在Linux中管理用户和权限
97.在Linux服务器环境下安装软件和部署项目
98.职场晋升力：职场沟通
第三阶段： 企业级框架开发
99. MyBatis 环境搭建
100. SQL 映射文件
101. 动态SQL
102. MyBatis 框架原理
103.SpringIOC
104.构造注入、依赖注入、注解
105. Spring 整合MyBatis(SqlSessionTemplate、MapperFactoryBean、事务
处理)
106. Spring 数据源(属性文件、JNDI)、Bean 作用域
107. Spring 框架的运行原理
108.SpringMVC 体系概念
109.SpringMVC 之数据绑定、数据效验、
110.SpringMVC 之视图及视图解析
111.SpringMVC 之文件上传、本地化解析
112.SpringMVC 之静态资源处理、请求拦截器、异常处理
113.Oracle数据库环境搭建、安装
114.Oracle数据库 SQL、分页、备份、还原
115.Hibernate 概念、依赖
116.HQL查询语言
117.Hibernate 中配置关联映射
118.HQL连接查询与 Hibernate注解
119.Struts2概念、依赖
120.Struts2配置
121.OGNL表达式
122.Struts2拦截器
123.SSH框架整合
124.使用Maven构建项目
125.使用Struts2实现Ajax
126.Jsoup网络爬虫
127.多线程网络爬虫
128.反爬及反反爬策略
129.通用爬虫设计
130.Echart图表分析
131.IKAnalyzer分词
132.企业框架项目实战-代理商管理系统
133.企业框架项目实战-SL 会员商城
134.企业框架项目实战-会员管理系统
135.企业框架项目实战-互联网招聘信息采集分析平台
第四阶段： 前后端分离开发
136.GitHub
137.Git基础(checkout、pull、commit、push、merge等)
138.Git进阶(多分支协作)
139.GitLab
140.IDEA的使用
141.Maven介绍(概念、仓库、构建、命令)
142.使用Maven构建WEB项目
143.使用Maven构建多模块项目
144.使用Maven搭建私服仓库
145.Scrum框架介绍(三个角色、三个工件、四个会议)
146.ScrumTeam组建团队
147.产品需求和用户故事
148.每日立会
149.使用敏捷-Scrum方式开发管理实战
150.前后端分离、分布式集群架构、垂直架构
151.SSM（SpringMVC+Spring+MyBatis）整合实战
152.Git、Maven私服Nexus
153.第三方接入技术（微信、阿里）
154.MySQL电商实战
155.Redis（缓存服务）
156.搜索引擎-Solr
157.集成APIDoc工具-Swagger
158.图片自动化处理：Tengine+LUA+GraphicsMagic
159.手机、邮箱注册
160.单点登录 Token
161.OAuth2.0认证
162.Jsoup网络爬虫(多线程爬虫/代理 IP爬虫)
163.ExecutorService线程池
164.IK中文分词
165.Postman
166.ReactJS
167.webpack
168.职场晋升力：简历撰写
169.程序猿面试宝典之项目面试
170.大型互联网旅游电商项目实战-爱旅行
第五阶段： 分布式微服架构开发
171.SpringBoot环境搭建
172.SpringBoot常用技能
173.SpringBoot整合Redis
174.SpringBoot整合Mybatis
175.微服务架构及架构设计
176.消息队列
ActiveMQRabbitMQ
177.分布式事务
178.分布式锁 Redis-setnx
179.Zookeeper注册中心
180.基于 ActiveMQ实现高并发
181.Docker环境搭建
182.Docker镜像加速
183.Docker容器管理
184.Docker镜像管理
185.Docker容器文件备份
186.Dockerfile
187.Docker私服仓库
188.真实互联网高并发电商项目实战-双十一抢购
189.可视化监控 Portainer
190.DockerCompose 容器编排
191.DockerCompose扩容、缩容
192.DockerSwarm集群编排
193.Jenkins安装、插件配置
194.Jenkins配置普通任务
195.Jenkins配置管道任务
196.Jenkins自动发布服务
197.Spring CloudEureka
198.Spring CloudFeign
199.Spring CloudRibbon
200.Spring CloudZuul
201.Spring CloudConfig
202.Spring CloudHystrix
203.Spring CloudSleuth
204.Spring BootAdmin
205.Eureka注册原理探秘
206.SpringCloud 大坑解读
207.Zipkin
208.Zipkin整合RabbitMQ
209.Zipkin整合MySQL
210.ELK日志收集
211.Kafka
212.Elasticsearch映射管理
213.Elasticsearch查询/复合查询
214.Elasticsearch集群/集群规划
215.Elasticsearch聚合
216.Elasticsearch集群监控
217.Elasticsearch插件
(Head/BigDesk)
218.Mycat读写分离
219.Mycat一主多从
220.Mycat多主多从
221.Mycat数据分片
222.Redis
223.Redis-Redlock
224.Elasticsearch环境搭建
225.Elasticsearch客户端
226.Elasticsearch索引管理
227.Elasticsearch文档管理
228.Mycat集群
229.Jmeter 并发测试
230.Jmeter 生成测试报告
231.微信登录
232.微信支付
233.支付宝支付
234.网络地图
235.Sonar本地检测
236.Sonar+Jenkins线上检测
237.CI/CD
238.SpringBoot改造爱旅行项目实战
239.大型互联网票务类电商项目实战-大觅网
240.ES6概念(les、const)
241.ES6对象和数组
242.ES6函数扩展
243.VUE环境搭建
244.VUE.JS指令
245.VUE 交互
246.VUE 实例生命周期
247.VUE 组件
248.VUE项目环境配置及单文件组件
249.VUE 路由
第六阶段：cc服务
250. Spring Cloud Gateway
251. Consul
252. Nacos
253. Eureka、Consu、lNacos、Zookeeper 对比分析
254. Prometheus + Grafana
255. ES 分布式存储原理
256. NoSQL 数据库解决方案(Redis、MongoDB)
257. OAuth2.0 认证( authorization code 模式)
258. OAuth2.0 认证( implicit 模式)
259. OAuth2.0 认证( resource owner password credentials 模式)
260.OAuth2.0认证( clientcredentials模式)
261.NAS/FastDFS分布式文件存储
262.Python基础
263.Python爬虫
264. 大数据及 Hadoop 概述
265. 分布式文件系统 HDFS
266. 分布式计算框架MapRece
267. 分布式列式数据库 HBase
268. Hadoop 综合应用
269. 面试大局观
270. 职业规划
271. 项目面试
272. 具体业务场景化解决方案
273. 更多技术专题持续增加中
我估计能把你看晕，有不清楚的可以私信我
2. 跪求 VB 课程设计 高手
学生档案管理系统 vb
——————————————附录程序清单及注释
程序清单6.1
Option Explicit
Dim Fi
leName As String '文件名，用于打开、保存文件
Dim UndoString As String '用于 Undo 操作
Dim UndoNew As String '用于 Undo 操作
Private Sub ImgUndoDisable()
'禁用“Undo”按钮
UndoString = ""
UndoNew = ""
ImgUndo.Enabled = False
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
End Sub
Private Sub ImgUndoEnable()
'有效“Undo”按钮
ImgUndo.Enabled = True
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End Sub
Private Sub Check_ImgPaste()
'设置粘贴按钮
If Len(Clipboard.GetText) > 0 Then
ImgPaste.Enabled = True
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
Else
ImgPaste.Enabled = False
ImgPaste.Picture = ImageDisable.ListImages("Paste").Picture
End If
End Sub
Private Sub Check_ImgCutCopy()
'设置剪切、复制按钮
If Text1.SelLength > 0 Then
ImgCut.Enabled = True
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
ImgCopy.Enabled = True
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
Else
ImgCut.Enabled = False
ImgCut.Picture = ImageDisable.ListImages("Cut").Picture
ImgCopy.Enabled = False
ImgCopy.Picture = ImageDisable.ListImages("Copy").Picture
End If
End Sub
Private Sub BackColor_Click()
CommonDialog1.ShowColor
Text1.BackColor = CommonDialog1.Color
End Sub
Private Sub Box_Click()
'显停工具栏
If Box.Checked Then
'将停显工具栏
Box.Checked = False
CoolBar1.Visible = False
Else
Box.Checked = True
CoolBar1.Visible = True[NextPage]
End If
Form_Resize '重新调整控件位置
End Sub
Private Sub Close_Click()
Dim FileNum As Integer
If Len(FileName) > 0 Then
'有输入文件名
FileNum = FreeFile() '获得可用文件号
Open FileName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
End If
Text1.Text = ""
FileName = ""
End Sub
Private Sub ComboSize_Click()
Text1.FontSize = Val(ComboSize.Text)
End Sub
Private Sub ComboFont_Click()
Text1.FontName = ComboFont.Text
End Sub
Private Sub Copy_Click()
Clipboard.SetText Text1.SelText '复制文本到剪裁板
End Sub
Private Sub Cut_Click()
Clipboard.SetText Text1.SelText '复制文本到剪裁板
Text1.SelText = "" '清选择的文本
End Sub
Private Sub DataTime_Click()
Text1.SelText = Now
End Sub
Private Sub Delete_Click()
Text1.SelText = "" '清选择的文本
End Sub
Private Sub Edit_Click()
'当程序显示“编辑”子菜单前，触发该程序
If Text1.SelLength > 0 Then
'文本框中有选中的文本
Cut.Enabled = True
Copy.Enabled = True
Delete.Enabled = True
Else
Cut.Enabled = False
Copy.Enabled = False
Delete.Enabled = False
End If
If Len(Clipboard.GetText()) > 0 Then
'剪裁板中有文本数据
Paste.Enabled = True
Else
'没有可粘贴的文本
Paste.Enabled = False
End If
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
Private Sub FindText_KeyPress(KeyAscii As Integer)
Dim BeginPos As Long
If KeyAscii = 13 Then
BeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)
If BeginPos > 0 Then
Text1.SelStart = BeginPos - 1
Text1.SelLength = Len(FindText.Text)
End If
End If
End Sub
Private Sub Fontcolor_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
Private Sub Form_Load()
Dim i As Integer
'加载图像
ImgNew.Picture = ImageUp.ListImages("New").Picture
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
ImgSave.Picture = ImageUp.ListImages("Save").Picture
ImgUndo.Picture = ImageDisable.ListImages("Undo").Picture
Check_ImgPaste
Check_ImgCutCopy
'加载系统字体
For i = 0 To Screen.FontCount - 1
ComboFont.AddItem Screen.Fonts(i)
Next i
End Sub
Private Sub Form_Resize()
Dim TextTop As Long
'修改工具条大小
CoolBar1.Top = Me.ScaleTop
Me.ScaleLeft
Text1.Width = Me.ScaleWidth
If Me.ScaleHeight > CoolBar1.Height Then
Text1.Height = Me.ScaleHeight - TextTop
Else
Text1.Height = 0
End If
End Sub
Private Sub ImgCopy_Click()
Copy_Click '复制
Check_ImgPaste
Check_ImgCutCopy
End Sub
Private Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
'“按下”按钮
If Button = 1 Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "将选择的文本复制到剪裁板"
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgCopy.Picture = ImageDown.ListImages("Copy").Picture[NextPage]
ElseIf Button = 1 Then
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCopy_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgCopy.Picture = ImageUp.ListImages("Copy").Picture
End If
End Sub
Private Sub ImgCut_Click()
'If Text1.SelLength > 0 Then
Cut_Click '剪切
Check_ImgPaste
Check_ImgCutCopy
'End If
End Sub
Private Sub ImgCut_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgCut_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "剪切选择的文字到剪裁板"
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgCut.Picture = ImageDown.ListImages("Cut").Picture
ElseIf Button = 1 Then
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgCut_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgCut.Picture = ImageUp.ListImages("Cut").Picture
End If
End Sub
Private Sub ImgNew_Click()
New_Click
End Sub
Private Sub ImgNew_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgNew.Picture = ImageDown.ListImages("New").Picture
End If
End Sub
Private Sub ImgNew_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "创建新文件" '修改提示信息
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgNew.Picture = ImageDown.ListImages("New").Picture
ElseIf Button = 1 Then
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub
Private Sub ImgNew_MouseUp(Button As Integer, Shift As Int
eger, X As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgNew.Picture = ImageUp.ListImages("New").Picture
End If
End Sub
Private Sub ImgOpen_Click()
Open_Click
End Sub
Private Sub ImgOpen_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
'“按下”按钮
If Button = 1 Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "选择文件名并打开文件"
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgOpen.Picture = ImageDown.ListImages("Open").Picture
ElseIf Button = 1 Then
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub
Private Sub ImgOpen_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgOpen.Picture = ImageUp.ListImages("Open").Picture
End If
End Sub
Private Sub ImgPaste_Click()
Paste_Click '粘贴
End Sub
Private Sub ImgPaste_MouseDown(Button As Integer, Shift As
Integer, X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture[NextPage]
End If
End Sub
Private Sub ImgPaste_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Label1 = "粘贴文本到当前光标位置"
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgPaste.Picture = ImageDown.ListImages("Paste").Picture
ElseIf Button = 1 Then
ImgPaste.Picture = ImageUp.ListImages("Paste").Picture
End If
End Sub
Private Sub ImgPaste_MouseUp(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
eName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
ImgUndoDisable
Else
MsgBox "不能保存无名文件" + Chr(13) + Chr(10) + "请选择“文件”菜单
的“保存”项", , "警告"
End If
End Sub
Private Sub ImgSave_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
End If
End Sub
Private Sub ImgSave_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "保存当前文件"
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgSave.Picture = ImageDown.ListImages("Save").Picture
ElseIf Button = 1 Then
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
Private Sub ImgUndo_MouseMove(Button As Integer, Shift As Integer,
X As Single, Y As Single)
Label1 = "取消当前操作"
'判断鼠标位置,显示不同图像
If Button = 1 And (X > 0 And X < ImgNew.Width And Y > 0 And Y <
ImgNew.Height) Then
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
ElseIf Button = 1 Then
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub ImgUndo_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgUndo.Picture = ImageUp.ListImages("Undo").Picture
End If
End Sub
Private Sub New_Click()
FileName = ""
Text1 = ""
ImgUndoDisable
End Sub
Private Sub Open_Click()
Dim FileNum As Integer
Dim buffer As String
Dim buffer1 As String
Dim FileSize As Long
Dim MaxLen As Long
MaxLen = 32768 '文件最大长度
CommonDialog1.ShowOpen '显示"打开文件"对话框
If Len(CommonDialog1.FileName) > 0 Then
'有输入文件名
FileName = CommonDialog1.FileName '保存文件名
FileSize = FileLen(FileName) '获得文件长度
If FileSize > MaxLen Then[NextPage]
'文件超长
MsgBox "该文件过大，只能显示部分文本", , "警告"
Exit Sub
End If
Screen.MousePointer = 11 '设置鼠标为沙漏
FileNum = FreeFile() '获得可用文件号
Open FileName For Input As FileNum '以顺序输入方式打开文件
Do While Not EOF(FileNum) And Len(buffer) < MaxLen '读必须文本小于
32K
Line Input #FileNum, buffer1 '读一行文字
buffer = buffer + buffer1 + Chr(13) + Chr(10) '加入回车换行符
Loop '循环体
Close FileNum '关闭文件
ImgUndoDisable '取消 Undo 功能
Text1.Text = buffer '显示文本
UndoNew = buffer '保存文本
buffer = "" '释放内存
buffer1 = ""
Screen.MousePointer = 0 '恢复鼠标指针
Me.Caption = "记事本 - " + FileName '修改标题显示
End If
End Sub
Private Sub Paste_Click()
Text1.SelText = Clipboard.GetText
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As
Integer, X As Single, Y As Single)
Label1 = "工具栏"
End Sub
Private Sub Picture1_Resize()
If Picture1.Width > Label1.Left Then
Label1.Width = Picture1.ScaleWidth - Label1.Left
End If
End Sub
Private Sub Save_Click()
Dim FileNum As Integer '文件句柄号
CommonDialog1.ShowSave '显示保存对话框
If Len(CommonDialog1.FileName) > 0 Then
'有输入文件名
FileName = CommonDialog1.FileName '保存文件名
FileNum = FreeFile() '获得可用文件号
Open FileName For Output As FileNum '打开输出文件
'如果无指定文件，则创建新文件
Print #FileNum, Text1.Text '输出文本
Close FileNum '关闭文件
Me.Caption = "记事本 - " + FileName '修改标题显示
ImgUndoDisable
End If
End Sub
Private Sub Text1_Change()
If Not ImgUndo.Enabled Then
'使“Undo”按钮可用
ImgUndoEnable
End If
UndoString = UndoNew
UndoNew = Text1
End Sub
Private Sub Text1_Click()
Check_ImgCutCopy
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Check_ImgCutCopy
End sub
End Sub
Private Sub ImgSave_MouseUp(Button As Integer, Shift As Integer, X
As Single, Y As Single)
If Button = 1 Then
'“抬起”按钮
ImgSave.Picture = ImageUp.ListImages("Save").Picture
End If
End Sub
Private Sub ImgUndo_Click()
Text1.Text = UndoString
End Sub
Private Sub ImgUndo_MouseDown(Button As Integer, Shift As Integer,
X As Single, Y As Single)
If Button = 1 Then
'“按下”按钮
ImgUndo.Picture = ImageDown.ListImages("Undo").Picture
End If
End Sub