Formatar código fonte para colocar em postagens

http://formatmysourcecode.blogspot.com.br/

Public Class Form1

    Const WM_NCHITTEST As Integer = &H84
    Const HTCLIENT As Integer = &H1
    Const HTCAPTION As Integer = &H2

    Protected Overrides Sub WndProc(ByRef m As Message)
        Select Case m.Msg
            Case WM_NCHITTEST
                MyBase.WndProc(m)
                If m.Result = HTCLIENT Then m.Result = HTCAPTION
            Case Else
                MyBase.WndProc(m)
        End Select
    End Sub
End Class

http://codeformatter.blogspot.com.br/2009/06/about-code-formatter.html

1:  Public Class Form1  
2:    Const WM_NCHITTEST As Integer = &H84  
3:    Const HTCLIENT As Integer = &H1  
4:    Const HTCAPTION As Integer = &H2  
5:    Protected Overrides Sub WndProc(ByRef m As Message)  
6:      Select Case m.Msg  
7:        Case WM_NCHITTEST  
8:          MyBase.WndProc(m)  
9:          If m.Result = HTCLIENT Then m.Result = HTCAPTION  
10:        Case Else  
11:          MyBase.WndProc(m)  
12:      End Select  
13:    End Sub  
14:  end class  

http://hilite.me/

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Imports System Imports System.IO Imports System.Text Module Module1 Sub Main() Dim path As String = "c:\temp\MyTest.txt" ' Create or overwrite the file. Dim fs As FileStream = File.Create(path) ' Add text to the file. Dim info As Byte() = New UTF8Encoding(True).GetBytes("This is some text in the file.") fs.Write(info, 0, info.Length) fs.Close() End Sub End Module