




免费预览已结束,剩余7页可下载查看
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
import java.awt.event.*;import java.awt.*;import java.io.*;import java.lang.String;class jsb implements ActionListenerDialog bb;String strt;int i;FileDialog fd;File file;public Frame f;public TextArea p1;public MenuBar menubar;public Menu menu1,menu2,menu3;public MenuItem item1,item2,item3,item4,item5,item6,item7,item8,item9,item10; jsb(String s i=0;f=new Frame(s;p1=new TextArea(;f.setSize(500,500;f.setBackground(Color.white;f.setVisible(true;menubar=new MenuBar(;menu1=new Menu(文件;menu2=new Menu(编辑;menu3=new Menu(帮助;item1=new MenuItem(新建;item2=new MenuItem(打开;item3=new MenuItem(保存;item4=new MenuItem(另存为;item5=new MenuItem(退出;item6=new MenuItem(全选;item7=new MenuItem(复制;item8=new MenuItem(剪切;item9=new MenuItem(粘贴;item10=new MenuItem(关于;f.addWindowListener(new WindowAdapter(public void windowClosing(WindowEvent ef.setVisible(false;System.exit(0;menu1.add(item1;menu1.add(item2;menu1.add(item3;menu1.add(item4;menu1.add(item5;menu2.add(item6;menu2.add(item7;menu2.add(item8;menu2.add(item9;menu3.add(item10;menubar.add(menu1;menubar.add(menu2;menubar.add(menu3;f.setMenuBar(menubar;item1.addActionListener(this;item2.addActionListener(this;item3.addActionListener(this;item4.addActionListener(this;item5.addActionListener(this;item6.addActionListener(this;item7.addActionListener(this;item8.addActionListener(this;item9.addActionListener(this;item10.addActionListener(this;f.setLayout(new GridLayout(1,1;f.add(p1;f.pack(;public void actionPerformed(ActionEvent e String ss;ss=p1.getText(.trim(;if (e.getSource(=item5if (i=0 &(ss.length(!=0bc(;elseSystem.exit(0;if (e.getSource(=item1if (i=0&(ss.length(!=0bc(;elsep1.setText(;i=0;f.setTitle(文件对话框; if (e.getSource(=item2fd=new FileDialog(f,打开文件,0;fd.setVisible(true;tryfile=new File(fd.getDirectory(,fd.getFile(;f.setTitle(fd.getFile(+文件对话框; FileReader fr=new FileReader(file; BufferedReader br=new BufferedReader(fr; String line = null;String view = ;while(line=br.readLine(!=nullview += line+n;p1.setText(view;br.close(;fr.close(;catch(IOException expInif (e.getSource(=item3if (i=0bc(;elsetryfile=new File(fd.getDirectory(,fd.getFile(;f.setTitle(fd.getFile(+-记事本;FileWriter fw=new FileWriter(file; BufferedWriter bw=new BufferedWriter(fw; String s =p1.getText(;s = s.replaceAll(n,rn;bw.write(s;bw.flush(;bw.close(;fw.close(;i=1;catch(IOException expOuti=0;if (e.getSource(=item4bc(;if (e.getSource(=item10bb=new Dialog(f,关于;Label l1=new Label(本记事本的完成感谢老师和同学的帮助!; bb.add(l1;bb.setSize(250,150;bb.setBackground(Color.white;bb.show(;bb.addWindowListener(new WindowAdapter(public void windowClosing(WindowEvent ebb.setVisible(false;bb.dispose(;if (e.getSource(=item6p1.setSelectionStart(0;p1.setSelectionEnd(p1.getText(.length(;if (e.getSource(=item7tryString str=p1.getSelectedText(;if(str.length(!=0strt=str;catch(Exception exif (e.getSource(=item8tryString str=p1.getSelectedText(;if(str.length(!=0p1.replaceRange(,p1.getSelectionStart(,p1.getSelectionEnd(; catch(Exception exif (e.getSource(=item9if(strt.length(0p1.insert(strt,p1.getCaretPosition(;public void bc(fd=new FileDialog(f,保存文件,1;fd.setVisible(true;tryfile=new File(fd.getDirectory(,fd.getFile(;f.setTitle(fd.getFile(+-记事本;FileWriter fw=new FileWriter(file;BufferedWriter bw=new BufferedWriter(fw;String s =p1.getText(;
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 学校咨询室管理制度
- 处值班安全管理制度
- 宜人贷风险管理制度
- 服务业用水管理制度
- 景区绿化部管理制度
- 房东积分制管理制度
- 景区购物区管理制度
- 奶茶店用人管理制度
- 室内弱电井管理制度
- 村级幸福院管理制度
- 凝血分析的质量控制
- 康复科提高康复住院患者自主呼吸训练的执行率和正确率医院持续质量改进PDCA项目汇报书
- 智慧校园大数据可视化分析平台建设方案
- 110kv升压站施工组织设计
- “安全生产课件:如何预防工伤事故”
- 《教育学原理》马工程教材第二章教育与社会发展
- 西藏农村公路管理办法
- 野外生存优秀课件
- 国际投资学教程(第四版)綦建红答案
- 福建省福州市福建师大附中2023年自主招生样卷--数学试卷
- GB/T 16622-2022压配式实心轮胎规格、尺寸与负荷
评论
0/150
提交评论