关于vb.net开发记事本的信息( 四 )

CommonDialog1.ShowOpen
Open CommonDialog1.FileName For Input As #1
Dim abc As String
linefromfile = StrConv(InputB(LOF(1), 1), vbUnicode)
Text1.Text = linefromfile
Close #1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Drive1.Drive = "f:\"
Dir1.Visible = False
Drive1.Visible = False
Command1.Visible = False
Dim fullpath As String
If Right(App.Path, 1) = "\" Then
fullpath = App.Path + "1.ico"
Else
fullpath = App.Path + "\" + "1.ico"
Form1.Icon = LoadPicture(fullpath)
End If
End Sub
Private Sub lingcunwei_Click()
Dim abc As String
CommonDialog1.ShowSave
If Len(Trim(CommonDialog1.FileName))0 Then
x = CommonDialog1.FileName
Else
x = "f:\1.txt"
End If
Open x For Append As #1
Write #1, Text1.Text
Close #1
End Sub
Private Sub s_Click()
Text1.FontSize = 5
End Sub
Private Sub sanhao_Click()
Text1.FontSize = 12
End Sub
Private Sub st_Click()
CommonDialog1.ShowFont
End Sub
Private Sub shybcdwjj_Click()
Dir1.Visible = True
Drive1.Visible = True
Command1.Visible = True
End Sub
Private Sub Text2_GotFocus()
Dir1.Visible = False
Drive1.Visible = False
Command1.Visible = False
End Sub
Private Sub tuichu_Click()
End
End Sub
Private Sub wh_Click()
Text1.FontSize = 10
End Sub
Private Sub whs_Click()
Text1.FontSize = 10.5
End Sub
Private Sub xinjian_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub yh_Click()
Text1.FontSize = 24
End Sub
Private Sub zstj_Click()
MsgBox "所有字数为"Len(Text1.Text), , " 字数"
End Sub
Private Sub ztys_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub
Private Sub zzqm_Click()
Dim retValue As Long
'将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，可能不行，但编译成EXE后就可以了
retValue = https://www.04ip.com/post/SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 380, 615, SWP_SHOWWINDOW)
End Sub
怎么用VB.NET做一个记事本Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
RichTextBox1.LoadFile(Me.OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim fname As String
Me.SaveFileDialog1.ShowDialog()
fname = Me.SaveFileDialog1.FileName
If (fname"") Then
If (Me.OpenFileDialog1.FilterIndex = 1) Then
Me.RichTextBox1.SaveFile(fname, RichTextBoxStreamType.PlainText)
Else
Me.RichTextBox1.SaveFile(fname, RichTextBoxStreamType.RichText)
End If
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.SaveFileDialog2.ShowDialog()
If (Me.OpenFileDialog1.FileName"") Then
If (Me.OpenFileDialog1.FilterIndex = 1) Then
Me.RichTextBox1.SaveFile(Me.SaveFileDialog2.FileName, RichTextBoxStreamType.PlainText)
Else
Me.RichTextBox1.SaveFile(Me.SaveFileDialog2.FileName, RichTextBoxStreamType.RichText)
End If
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.FontDialog1.Font = Me.RichTextBox1.SelectionFont
If (Me.FontDialog1.ShowDialog() = Me.DialogResult.OK) Then
Me.RichTextBox1.SelectionFont = Me.FontDialog1.Font
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click