求一个用VB做的简单文本编辑器

如何用java编写一个简单的文本编辑器？~

import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
import java.io.*;

public class f1 extends Frame implements ActionListener
{
private MenuBar menubar=new MenuBar();
private Menu filemenu=new Menu("文件");
private Menu editmenu=new Menu("编辑");
private Menu formmenu=new Menu("格式");
private MenuItem[] itemf=new MenuItem[4];
private MenuItem[] iteme=new MenuItem[6];
private MenuItem[] items=new MenuItem[2];
private TextArea tf=new TextArea();

public int a=0,b=0,c=0,style=Font.PLAIN,size=15;
public String s1="red:"+a+" "+"green:"+b+" "+"blue"+c,
s2="宋体";

public String[] sz1={"10","16","24","30","32","36"},
sz2={"宋体","黑体","幼圆","隶书","行楷","Arial","Georgia"},
sz3={"粗体","倾斜","常规","粗斜"};

JDialog dialog=new JDialog(this,"字体",true);
Container cp=dialog.getContentPane();
JLabel[] lb=new JLabel[8];
JLabel lb1=new JLabel(s1,JLabel.LEFT);
JButton b1=new JButton("确定"),
b2=new JButton("取消");
JComboBox jc1=new JComboBox(),
jc2=new JComboBox(),
jc3=new JComboBox();
JScrollBar jb1=new JScrollBar(JScrollBar.HORIZONTAL,10,5,0,260);
JScrollBar jb2=new JScrollBar(JScrollBar.HORIZONTAL,10,5,0,260);
JScrollBar jb3=new JScrollBar(JScrollBar.HORIZONTAL,10,5,0,260);

哦 看错了 sorry

你告诉一下邮箱 我发给你

Private Sub Form_Load()
' Change the working directory to the directory where this application is located.
ChDir App.Path
ChDrive App.Path

' Position the text box.
txtEdit.Move 0, tlbToolbar.Height

' The form is horizontally and vertically centered when loaded.
Top = Screen.Height / 2 - Height / 2
Left = Screen.Width / 2 - Width / 2
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' The general procedure DoUnLoadPreCheck handles the possible unload options
' for all three forms in this sample application.
DoUnLoadPreCheck UnloadMode
End Sub

Private Sub Form_Resize()
txtEdit.Width = ScaleWidth
txtEdit.Height = ScaleHeight - tlbToolbar.Height
End Sub

Private Sub mnuAbout_Click()
' display the About form with Show method
frmAbout.Show 1
End Sub

Private Sub mnuBackColorItem_Click(Index As Integer)
Select Case Index
Case 0 ' Set BackColor to Red
txtEdit.BackColor = RGB(255, 0, 0)
Case 1 ' Set BackColor to Green
txtEdit.BackColor = RGB(0, 255, 0)
Case 2 ' Set BackColor to Blue
txtEdit.BackColor = RGB(0, 0, 255)
End Select
End Sub

Private Sub mnuBlueItem_Click(Index As Integer)
' If the user chooses Light Blue, then set the Forecolor to light
' blue, otherwise do nothing.
If Index = 0 Then
txtEdit.ForeColor = RGB(0, 150, 255)
End If
End Sub

Private Sub mnuDarkBlueItem_Click(Index As Integer)
Select Case Index
Case 0
' Set ForeColor to Sea Blue.
txtEdit.ForeColor = RGB(0, 50, 175)
Case 1
' Set ForeColor to Midnight Blue.
txtEdit.ForeColor = RGB(0, 0, 255)
End Select
End Sub

Private Sub mnuEdit_Click()
' Disable Cut and Copy if no text selected.
mnuEditItem(0).Enabled = (txtEdit.SelLength > 0)
mnuEditItem(1).Enabled = (txtEdit.SelLength > 0)
End Sub

Private Sub mnuEditItem_Click(Index As Integer)
Select Case Index
Case 0
' If Index = 0, user chose Cut.
Clipboard.Clear
Clipboard.SetText txtEdit.SelText ' Copy selected text onto the Clipboard.
txtEdit.SelText = "" ' Clear selected text from the document.
Case 1
' If Index = 1, user chose Copy.
Clipboard.Clear
Clipboard.SetText txtEdit.SelText ' Copy selected text onto Clipboard.
Case 2
' If Index = 2, user chose Paste.
txtEdit.SelText = Clipboard.GetText() ' Paste Clipboard text (if any) into document.
End Select
End Sub

Private Sub mnuFileArray_Click(Index As Integer)
' Open the selected file.
If Index >= 0 Then
OpenFile (mnuFileArray(Index).Caption)
End If
End Sub

Private Sub mnuFileItem_Click(Index As Integer)

' CancelError is True
On Error GoTo errhandler

Select Case Index
' Check index value of selected menu item.
Case 0
' If index = 0, the user chose New.
txtEdit.Text = "" ' Clear the text box.
Filename = "Untitled" ' Set the title bar caption to "Text Editor: Untitled"
frmEditor.Caption = "Text Editor: " & Filename
Case 1
' If index = 1, the user chose Open.
' Set filters.
CMDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' Specify default filter.
CMDialog1.FilterIndex = 2
' Display the File Open dialog box.
CMDialog1.ShowOpen
Filename = CMDialog1.Filename
OpenFile (Filename)
Case 2
' If index = 2, the user chose Save As.
' Set filters.
CMDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' Specify default filter.
CMDialog1.FilterIndex = 2
' Display the Save As dialog box.
CMDialog1.ShowSave
Filename = CMDialog1.Filename
CloseFile (Filename)
Case 3
' This menu item is a separator bar, no code needs to be written here
' because it cannot be selected and therefore cannot receive a Click event.
Case 4
' If index = 4, the user chose Exit.
End ' End this application and return to the Windows operating system.
End Select
errhandler:
' The user clicked the Cancel button.
Exit Sub
End Sub

Private Sub mnuFontSizesItem_Click(Index As Integer)
Select Case Index
' Perform an action based on the Index property value of menu control.
Case 0
' If Index = 0, then the user chose font size 12.
txtEdit.FontSize = 12 ' Set the FontSize property of the text box to 12.
mnuFontSizesItem(0).Checked = True ' Display a check mark next to 12.
mnuFontSizesItem(1).Checked = False ' Remove the check mark next to 24.
Case 1
txtEdit.FontSize = 24 ' Set the FontSize property of the text box to 24.
mnuFontSizesItem(0).Checked = False ' Remove the check mark next to 12.
mnuFontSizesItem(1).Checked = True ' Display a check mark next to 24.
End Select
' Display the font size next to the Font Size command.
mnuSettingsItem(1).Caption = Left$(mnuSettingsItem(1).Caption, 10) & " " & mnuFontSizesItem(Index).Caption
End Sub

Private Sub mnuForeColorItem_Click(Index As Integer)
Select Case Index
Case 0
' Set ForeColor to Red
txtEdit.ForeColor = RGB(255, 0, 0)
Case 1
' Set ForeColor to Green
txtEdit.ForeColor = RGB(0, 255, 0)
Case 2
' No code for this case because submenu is automatically displayed in Case 2.
End Select
End Sub

Private Sub tlbToolbar_ButtonClick(ByVal Button As Button)
' CancelError is True
On Error GoTo errhandler

Select Case Button.Key
Case "New" 'New Button Check
txtEdit.Text = "" ' Clear the text box.
Filename = "Untitled" ' Set the title bar caption to "Text Editor: Untitled"
frmEditor.Caption = "Text Editor: " & Filename
Case "Open" 'Open Button Check
' Set filters.
CMDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CMDialog1.FilterIndex = 2 ' Specify default filter.
CMDialog1.ShowOpen ' Display the File Open dialog box.
Filename = CMDialog1.Filename
OpenFile (Filename)
Case "SaveAs" 'Save As Button Check
' Set filters.
CMDialog1.Filter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
CMDialog1.FilterIndex = 2 ' Specify default filter.
CMDialog1.ShowSave ' Display the Save As dialog box.
Filename = CMDialog1.Filename
CloseFile (Filename)
Case "Copy" 'Copy Button Check
Clipboard.Clear
Clipboard.SetText txtEdit.SelText ' Copy selected text onto Clipboard.
Case "Cut" 'Cut Button Check
Clipboard.Clear
Clipboard.SetText txtEdit.SelText ' Copy selected text onto the Clipboard.
txtEdit.SelText = "" ' Clear selected text from the document.
Case "Paste" 'Paste Button Check
txtEdit.SelText = Clipboard.GetText() ' Paste Clipboard text (if any) into document.
Case "Bold" 'Bold Button Image Check
txtEdit.Font.Bold = Not txtEdit.Font.Bold
Case "Underline" 'Cut Button Check
txtEdit.Font.Underline = Not txtEdit.Font.Underline
Case "Italics" 'Paste Button Check
txtEdit.Font.Italic = Not txtEdit.Font.Italic
End Select

errhandler:
' The user clicked the Cancel button.
Exit Sub
End Sub

你好,我叫candy,我已经把程序发送到你的邮箱了

若使用中有不明白或出错的地方,欢迎你随时提问

发给你了，[email protected]

不就是一个文本框嘛

---

求一个用VB做的简单文本编辑器视频