Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET & la democrazia

Salve a tutti
un pilastro di un sistema antidemocratico è la Delega (Delegate) ad uno o a
pochi elementi della comunità e lasciare a loro
la costruzione e l'imposizione del rispetto delle regole attraverso
procedure ; ed i Delegate rivestono un ruolo fondamentale
nell'architettura .NET.
Se ad una zona (es. chiamata Form1) cui è parte la comunità delle Caselle di
Testo , e a detta comunità si vuole imporre la
visita della sola congregazione dei numeri , basta scrivere la seguente
procedura ed esporla nello spazio obbligatorio di
lettura del Modulo:
 '**************Procedura che Permette di accettare solo la congregazione
dei Numeri
    Private Sub KeyPressNumeri(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs)
        If Char.IsNumber(e.KeyChar) Then
        Else : e.Handled = True
        End If
    End Sub
    Public Sub InitializeKeyPressEventSoloNumeri(ByVal frm As
System.Windows.Forms.Form)
        Dim ctrl As Control
        For Each ctrl In frm.Controls
            If (TypeOf (ctrl) Is TextBox) Then
                AddHandler ctrl.KeyPress, AddressOf KeyPressNumeri
            End If
        Next
    End Sub
'**************
All'ingresso di Form1 (Load) affiggere l'avviso:
InitializeKeyPressEventSoloNumeri(Me)
'**************
la poverà comunità delle TextBox potrà ricevere solo ed esclusivamente i
numeri.
'**************
Come ogni sistema antidemocratico che si rispetti , anche in questa
situazione , ci sono dei favoritismi (altrimenti come mi
pavoneggio che io posso e tu no ?)
E dopo singola e tumultuosa discussione si modifica la procedura come segue:
  '**************Procedura che Permette di accettare solo la congregazione
dei Numeri e la confraternita della lettere
    Private Sub KeyPressNumeriLettere(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs)
        If Char.IsNumber(e.KeyChar) Then
        ElseIf Char.IsLetter(e.KeyChar) Then
        Else : e.Handled = True
        End If
    End Sub
    Public Sub InitializeKeyPressEventSoloNumeriLettere(ByVal frm As
System.Windows.Forms.Form)
        Dim ctrl As Control
        For Each ctrl In frm.Controls
            If (TypeOf (ctrl) Is TextBox) Then
                If ctrl.Tag = "NumeriLettere" Then
                    AddHandler ctrl.KeyPress, AddressOf
KeyPressNumeriLettere
                Else
                    AddHandler ctrl.KeyPress, AddressOf KeyPressNumeri
                End If
            End If
        Next
    End Sub
'**************
All'ingresso di Form1 (Load) si affigge il nuovo avviso:
InitializeKeyPressEventSoloNumeriLettere(Me)
disponendo per i più fedeli la concessione nella proprietà Tag del timbro:
NumeriLettere
onde poter contattare anche le Lettere.
'**************
Dal nostro punto la situazione è degenarata in quanto ai fedelissimi è
concesso perfino la possibilità di uno o più spazi
liberi.
Il pensiero va a quelle casellanti vincolate da una sola visita e
maggiormente alle TextBox ove ogni cosa è disabilitata ,
negate perfino le sbarre ; costrette a guardare da un vetro fumato.
E' democrazia tutto questo ?
Buon Anno
giuseppeD

Che ti sei fumato stamattina? :)
Andrea

 wrote:
Vogliamo fumare anche noi :-)
-- 
ciao, hal

complimenti anche dal punto di vista didattico oltre che comico.
Saluti

 Vogliamo fumare anche noi :-)
Mah, sarà mica che gli effetti sul simpatico Giuseppe siano semplicemente
dovuti a un'overdose di .NET?
E ora la battutaccia sorge spontanea: tutto fumo e niente arrosto ;-))

complimenti anche dal punto di vista didattico oltre che comico.
Vero, anzi, dovrebbero imparare d Giuseppe anche molti professori di
scuola :-)
-- 
ciao, hal

 ha scritto


 stante :)
Vedi il problema non è QUANTO quoti, ma il PERCHE'  :)
Noi non discutiamo la quantità di per sè ma in funzione della comprensione.
Cmq per questa volta sei perdonato :))))
Andrea

 Cmq per questa volta sei perdonato :))))
grazie, maesta'
cito (non: "quoto") perche' quando ho tempo archivio i post.
cosi' ne archivio uno solo :)

> comprensione.
Riprendo un attimo il discorso, giusto per chiarezza ulteriore.
Non è diretto a te in particolare, ma penso che sia bene
mettere in evidenza una cosa _molto_ importante.
Se per rispondere ad un post bisogna quotarlo tutto, anche se
lungo, io non vedo problemi. Per me si possono anche citare
1 milione di righe, SE PERO' SERVE A REPLICARE AL
TESTO CONTENUTO.
Quindi, se vuoi dire qualcosa che ha _diretta_ relazione col
testo che citi, ben venga! Il problema non sono di sicuro
le 30 righe quotate, ma il PERCHE' vengono quotate.
Infine, un'ultima considerazione: io non sono il re di nessun dove,
ti stavo solo prendendo in giro :)
Andrea

 un can.net:o)
un canneto intero?
Ciao