ciao a tutti per me questa è la 2° guida , vi scriverò tutti i comandi che possono servire per un blocco note o altre cose quello che vi scrivo in blu lo potete cambiare a seconda a che vi serve
per usare questi comandi dovrete mettere una Richtextbox
Occorrente:
ColorDialog
OpenFileDialog
PrintDialog
SaveFileDialog
Menustrip
Richtextbox
Codici:
Nuovo:
RichTextBox1.Text = ""
Apri
Dim AllText As String = "", LineOfText As String = ""
OpenFileDialog1.Filter = "All Files |*.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
LineOfText = LineInput(1)
AllText = AllText & LineOfText & vbCrLf
Loop
RichTextBox1.Text = AllText
Catch
Finally
FileClose(1)
End Try
Salva
SaveFileDialog1.Filter = "Text Documents |*.txt |All Files|*.*"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.Filter <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
FileClose()
End If
Stampa:
Dim AB As New PrintDialog
Try
AB.ShowDialog()
RichTextBox1.Text = AB.PrintToFile
Catch ex As Exception
'Again to nothing of exception
End Try
Esci
Me.Close
Copia
RichTextBox1.Copy()
Taglia
RichTextBox1.Cut()
Incolla
RichTextBox1.Paste()
Seleziona Tutto
RichTextBox1.SelectAll()
Cancella tutto
RichTextBox1.Text = ""
Carattere
Dim FS As New FontDialog
Try
FS.ShowDialog()
RichTextBox1.Font = FS.Font
Catch ex As Exception
'Do nothing of excepetion
End Try
Colore
Dim FC As New ColorDialog
Try
FC.ShowDialog()
RichTextBox1.ForeColor = FC.Color
Catch ex As Exception
'Again do nothing of excepetion
End Try
End Sub
la stessa cosa col salva,Apri,Stampa,Chiudi e Nuovo si puo fare per un webbrowser solo che al posto di RichTextBox1 mettete WebBrowser1
SCUSATE SE NN CI SN SCREEN MA NON SAPEVO SU CHE FARLI xD
secondo me è da rilievo xD
per usare questi comandi dovrete mettere una Richtextbox
Occorrente:
ColorDialog
OpenFileDialog
PrintDialog
SaveFileDialog
Menustrip
Richtextbox
Codici:
Nuovo:
RichTextBox1.Text = ""
Apri
Dim AllText As String = "", LineOfText As String = ""
OpenFileDialog1.Filter = "All Files |*.*"
OpenFileDialog1.ShowDialog()
If OpenFileDialog1.FileName <> "" Then
End If
Try
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Do Until EOF(1)
LineOfText = LineInput(1)
AllText = AllText & LineOfText & vbCrLf
Loop
RichTextBox1.Text = AllText
Catch
Finally
FileClose(1)
End Try
Salva
SaveFileDialog1.Filter = "Text Documents |*.txt |All Files|*.*"
SaveFileDialog1.ShowDialog()
If SaveFileDialog1.Filter <> "" Then
FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
PrintLine(1, RichTextBox1.Text)
FileClose()
End If
Stampa:
Dim AB As New PrintDialog
Try
AB.ShowDialog()
RichTextBox1.Text = AB.PrintToFile
Catch ex As Exception
'Again to nothing of exception
End Try
Esci
Me.Close
Copia
RichTextBox1.Copy()
Taglia
RichTextBox1.Cut()
Incolla
RichTextBox1.Paste()
Seleziona Tutto
RichTextBox1.SelectAll()
Cancella tutto
RichTextBox1.Text = ""
Carattere
Dim FS As New FontDialog
Try
FS.ShowDialog()
RichTextBox1.Font = FS.Font
Catch ex As Exception
'Do nothing of excepetion
End Try
Colore
Dim FC As New ColorDialog
Try
FC.ShowDialog()
RichTextBox1.ForeColor = FC.Color
Catch ex As Exception
'Again do nothing of excepetion
End Try
End Sub
la stessa cosa col salva,Apri,Stampa,Chiudi e Nuovo si puo fare per un webbrowser solo che al posto di RichTextBox1 mettete WebBrowser1
SCUSATE SE NN CI SN SCREEN MA NON SAPEVO SU CHE FARLI xD
secondo me è da rilievo xD
patpat