i m p o r t j a v a . a w t . e v e n t . * ;
i m p o r t j a v a . a p p l e t . A p p l e t ;
p u b l i c c l a s s S Y 2 _ 1 e x t e n d s A p p l e t i m p l e m e n t s A c t i o n L i s t e n e r {
L a b e l l a b e l 1 = n e w L a b e l ( " + " ) ;
L a b e l l a b e l 2 = n e w L a b e l ( " = " ) ;
T e x t F i e l d f i e l d 1 = n e w T e x t F i e l d ( 6 ) ;
T e x t F i e l d f i e l d 2 = n e w T e x t F i e l d ( 6 ) ;
T e x t F i e l d f i e l d 3 = n e w T e x t F i e l d ( 6 ) ;
B u t t o n b u t t o n 1 = n e w B u t t o n ( " 相 加 " ) ;
p u b l i c v o i d i n i t ( ) { / / 初 始 化
a d d ( f i e l d 1 ) ;
a d d ( l a b e l 1 ) ;
a d d ( f i e l d 2 ) ;
a d d ( l a b e l 2 ) ;
a d d ( f i e l d 3 ) ;
a d d ( b u t t o n 1 ) ;
b u t t o n 1 . a d d A c t i o n L i s t e n e r ( t h i s ) ;
}
p u b l i c v o i d a c t i o n P e r f o r m e d ( A c t i o n E v e n t e ) { / / 处 理 按
钮 事 件
i n t
x = I n t e g e r . p a r s e I n t ( f i e l d 1 . g e t T e x t ( ) ) + I n t e g e r . p a r s e I n t ( f i e l d 2 . g e t T e x t ( )
) ;
f i e l d 3 . s e t T e x t ( I n t e g e r . t o S t r i n g ( x ) ) ; / / 数 值 转 换 为 字
符 串
}
}
2 . 编 写 一 个 浏 览 A p p l e t 应 用 程 序 的 页 面 文 件 S Y 2 _ 1 . H T M L , 源
代 码 如 。
< h t m l >
< a p p l e t c o d e = " S Y 2 _ 1 . c l a s s " h e i g h t = 2 0 0 w i d t h = 4 0 0 >
< / a p p l e t >
< / h t m l >
3 . 将 S Y 2 _ 1 . j a v a 源 程 序 编 译 为 S Y 2 _ 1 . c l a s s 文 件
4 . 使 用 浏 览 器 或 使 用 小 程 序 查 看 器 浏 览 S Y 2 _ 1 . H T M L 文 件 ( 即
在 命 令 提 示 符 窗 口 输 入 :
a p p l e t v i e w e r S Y 2 _ 1 . H T M L ) , 运 行 。
( 二 ) 创 立 对 象 并 使 用 对 象
1 . 编 写 A p p l e t 程 序
程 序 功 能 : 这 个 A p p l e t 程 序 要 在 页 面 上 输 出 两 个 矩 形 ,
并 伴 有 文 字 输 出 。
S Y 2 _ 2 . j a v a 程 序 的 源 代 码 如 下 :
i m p o r t j a v a . a w t . * ;
i m p o r t j a v a . a p p l e t . A p p l e t ;
p u b l i c c l a s s S Y 2 _ 2 e x t e n d s A p p l e t {
M y B o x b 1 = n e w M y B o x ( ) ; / / 创 立 对 象 b 1
M y B o x b 2 = n e w M y B o x ( 1 7 0 , 2 0 , 6 0 , 6 0 ) ; / / 创 立 对 象 b 2