实验8 图形界面程序设计

《实验8 图形界面程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、山西大学计算机与信息技术学院实验报告姓名郭彩峰学号2012242018专业班级软一课程名称Java实验实验日期2014.12.11成绩指导教师批改日期实验名称实验8图形界面程序设计一、实验目的掌握常用GUI控制组件及其事件处理。二、实验内容1．编程包含一个标签和一个按钮，单击按钮时，标签的内容在“你好”和“再见”之间切换。程序代码：importjava.awt.*;importjava.awt.event.*;importjavax.swing.*;publicclassChangeGUIextendsJF

2、rame{privateJButtonbutton;privateJLabellabel;publicChangeGUI(){super("SayHello");JPanelpanel=newJPanel();JPanelpanel2=newJPanel();setLayout(newGridLayout(2,1,0,5));button=newJButton("OK");button.setBackground(Color.gray);button.setForeground(Color.RED);pan

3、el.add(button);button.addActionListener(newOKActionListener());label=newJLabel("你好");label.setForeground(Color.BLUE);panel2.add(label);add(panel2);add(panel);}privateclassOKActionListenerimplementsActionListener{publicvoidactionPerformed(ActionEvente){if(l

4、abel.getText()=="你好"){label.setText("再见");}else{label.setText("你好");}}}publicstaticvoidmain(String[]args){ChangeGUIchange=newChangeGUI();change.setSize(200,100);change.setVisible(true);change.setLocationRelativeTo(null);change.setDefaultCloseOperation(JFra

5、me.EXIT_ON_CLOSE);}}运行结果贴图:2．编程包含一个文本框和一个文本区域，文本框内容改变时，将文本框中的内容显示在文本区域中；在文本框中按回车键时，清空文本区域的内容。程序代码：importjava.awt.*;importjavax.swing.*;importjavax.swing.border.*;importjava.awt.event.*;publicclassShowTextextendsJFrame{privateJTextFieldtext1;privateJTextAre

6、atext2;publicShowText(){super("TetxShow");JPanelp1=newJPanel();p1.setBackground(Color.BLUE);p1.setBorder(newTitledBorder("文本框"));text1=newJTextField(10);text1.addKeyListener(newTextListener());p1.add(text1);JPanelp2=newJPanel();p2.setBackground(Color.YELLO

7、W);p2.setBorder(newTitledBorder("文本区域"));text2=newJTextArea("原文本",10,10);text2.setLineWrap(true);text2.setEditable(false);p2.add(text2);setLayout(newGridLayout(2,1,0,5));add(p1);add(p2);setSize(200,200);setVisible(true);this.setLocationRelativeTo(null);set

8、DefaultCloseOperation(JFrame.EXIT_ON_CLOSE);}privateclassTextListenerimplementsKeyListener{publicvoidkeyPressed(KeyEvente){}publicvoidkeyReleased(KeyEvente){if(e.getKeyChar()!=KeyEvent.VK_ENTER)text2.setText(