急！！！求壹個用java寫的記事本代碼，可以完成打開，保存，另存為，設置字體。

留個郵箱發給妳。

源代碼:

私有Sub Blue_Click()

Text1。ForeColor = vbBlue

末端接頭

私有子窗體_Load()

紅色。啟用=假

藍色。啟用=假

綠色。啟用=假

建築。選中=假

Itl。選中=假

地下。選中=假

末端接頭

私有子綠色_Click()

Text1。ForeColor = vbGreen

末端接頭

私有子構建_click()

Text1。FontBold = Not Text1。FontBold

建築。選中=不構建。檢查

末端接頭

私有Sub Itl_click()

Text1。FontItalic = Not Text1。FontBold

Itl。已檢查=非Itl。檢查

末端接頭

私有Sub Undrln _ click()

Text1。FontUnderline = Not Text1。字體下劃線

地下。選中=不取消繪制。檢查

末端接頭

私有Sub Red_Click()

Text1。ForeColor = vbRed

末端接頭

私有子文本1_Change()

如果Text1 = " "那麽

紅色。啟用=假

藍色。啟用=假

綠色。啟用=假

其他

紅色。啟用=真

藍色。啟用=真

綠色。啟用=真

如果…就會結束

末端接頭

private Sub text 1 _ MouseDown(Button為整數，Shift為整數，X為單值，Y為單值)

如果Button = 2，那麽‘如果按下鼠標右鍵。

Text1。“Enabled = False”使文本框無效。

表單1。PopupMenu Fon '彈出右鍵菜單。

Text1。“Enabled = True”使文本框再次有效。

如果…就會結束

末端接頭