Carica file e leggi contenuto

H O M E Inserisci testo VISUAL BASIC 6 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

VERSION 5.00 
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" 
Begin VB.Form Menu  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "Menu - Creato con CreaReport 31/08/2023 20:36:42" 
   ClientHeight    =   3315 
   ClientLeft      =   45 
   ClientTop       =   690 
   ClientWidth     =   11790 
   KeyPreview      =   -1  'True 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   5595 
   ScaleWidth      =   10995 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin MSComDlg.CommonDialog CommonDialog1  
      Left            =   120 
      Top             =   2700 
      _ExtentX        =   847 
      _ExtentY        =   847 
      _Version        =   393216 
   End 
  
End 
Attribute VB_Name = "Menu" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit

#region MyForm
     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

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 = "Lunedì"
        Case 2
            nomeGiorno = "Martedì"
        Case 3
            nomeGiorno = "Mercoledì"
        Case 4
            nomeGiorno = "Giovedì"
        Case 5
            nomeGiorno = "Venerdì"
        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

#end region MyForm

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