Carica file e leggi contenuto

H O M E Inserisci testo VISUAL Studio .NET da elaborare ed Identare ( Limite max 145343 caratteri )

Scrive Intestazione Procedure	Idento blocchi con TAB ==>	Ordinato ed Identato (senza blocchi ==> )
Scrivi righe numerate	(TRIM) elimina spazi vuoti davanti a stringa	Spazio tra le Barre di identazione

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic
Friend Class SnapVsNew
    Inherits System.Windows.Forms.Form
    Dim avvio As Boolean
    
    Private Sub Dir1_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Dir1.Change

File1Leggi.Path = Dir1.Path
        File1Leggi.Pattern = Text1.Text
        File1Leggi.Refresh()
        If avvio = True Then
            FileOpen(33, MyAppPathSNAP & "\LOGvs.ini", OpenMode.Output)
            PrintLine(33, Dir1.Path)
            FileClose(33)
        End If

End Sub
Public Sub MyGiorno
 ' Richiedi all'utente di inserire un numero da 1 a 7
    giorno = InputBox("Inserisci un numero da 1 a 7:")

' Utilizza Select Case per determinare il giorno della settimana
    Select Case giorno
        Case 1
            nomeGiorno = "Lunedi"
        Case 2
            nomeGiorno = "Martedi"
        Case 3
            nomeGiorno = "Mercoledi"
        Case 4
            nomeGiorno = "Giovedi"
        Case 5
            nomeGiorno = "Venerdi"
        Case 6
            nomeGiorno = "Sabato"
        Case 7
            nomeGiorno = "Domenica"
        Case Else
            nomeGiorno = "Numero non valido! Inserisci un numero tra 1 e 7."
    End Select

end Sub
    Private Sub Drive1_SelectedIndexChanged(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Drive1.SelectedIndexChanged
        Dir1.Path = Drive1.Drive
    End Sub

Private Sub File1Leggi_DoubleClick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles File1Leggi.DoubleClick
        Dim I As Integer
        For I = 0 To File1Leggi.Items.Count - 1
            If File1Leggi.GetSelected(I) = True Then
                Shell("Notepad.exe " & Dir1.Path & "\" & File1Leggi.Items(I), AppWinStyle.NormalFocus)
            End If
        Next

End Sub

Private Sub SnapVs_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
        If KeyAscii = 27 Then
            Me.Close()
        End If
        eventArgs.KeyChar = Chr(KeyAscii)
        If KeyAscii = 0 Then
            eventArgs.Handled = True
        End If
    End Sub
  Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 27 Then 
                 Unload Me 
		else
		Exit sub
             End If 
     End Sub 
 
Public Function Pippo

testo .... pippo
	if Testo <> "pippo" then
	exit function
	endif

End Function

Private Sub Form_Resize() 
  
 If Dir(TextPercorso.Text) <> "" Then 
    
        If ApriDatabase = True Then 
             Label1.Visible = False 
         Else 
                 Label1.Visible = True 
         End If 
    end if
    For i = 0 TO 10
    Leggi( I)
	if i = 3 then
	exit for
	endif
    next

do while not eof
    stringa = stringa + 1
	if stringa  = 3 then
	exit do
	endif
    loop

End Sub 
End Class

Se la procedura segnala Errore : Oggetto Request error 'ASP .... : .....' Operazione non consentita /Secondavbs.Asp, riga ....
Inserire meno codice oppure inserire solo le funzioni che interessano per essere Identate