Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET & violazione della privacy

Salve a tutti
oltre al dubbio di mancanza di democrazia , vedi post precedente "
VB.NET
 &
la democrazia" , 
VB.NET
 è inquisito per istigazione alla violazione della
privacy .
Lo sviluppo da una risposta incerta a domanda inaspettata.
""Sei sicuro di cancellare ?" ; "Attenzione ! La cancellazione è
irreversibile." ; "Stai per eliminare un dato dalla tabella. Sei sicuro ?."
. Tralasciamo le proteste delle solite femministe. "Mai un sei sicura ....
?" ; ecc.
A domanda l'inquisito colto impreparato gaffava.
"Basta con le diversità !"
"Uniformiamo le domande. Risparmieremo in fiatoCodice !"
Istituzione immediata del :
'**********************************
Module MinisteroDelControlloDellaRispostaCentralizzata
'Affidato il controllo ad alto esponente gerarchico con Delega , aspetto
amichevole e con facoltà di rispondere solo SI o NO.
 Friend Delegate Function AskMessageDelegate() As Boolean
'Centralizzata anche la variabile di controllo amichevole
     Friend ask As AskMessageDelegate
End Module
'**********************************
'Occorreva istituire un sotto Ministero centralizzato , amichevole ma
fedele.
'Fatto ! dopo voto singolo e unanime
'**********************************
Module modMessageBox
    Dim MsgText As String
    Dim MsgTitle As String
    Dim ButtAnswer As MessageBoxButtons
    Dim resAnswer As DialogResult
    Friend Function AskSalvaRecordFunction() As Boolean
        MsgText = "Vuoi salvare il record ?"
        MsgTitle = "Salvataggio record."
        ButtAnswer = MessageBoxButtons.YesNo
        resAnswer = MessageBox.Show(MsgText, MsgTitle, ButtAnswer,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If resAnswer = DialogResult.Yes Then
            Return True
        Else : Return False
        End If
    End Function
End Module
'**********************************
La domanda è tratta ! Sempre e sempre la stessa appare e da qualsiasi parte
del paese richiesta :
   'chiede se si vuol salvare
                ask = New AskMessageDelegate(AddressOf
AskSalvaRecordFunction)
                If ask.Invoke = False Then Exit Sub
'**********************************
Nessuna risposta ai soliti disfattisti della valorizzazione delle diversità
culturali.
Il supremo con i suoi evangelist sono gogolanti. Ma un tarlo lo
perseguitava. Durante un flash d'aria , regola di vita concessa per
convincimento forzato alla comunità delle Combo , l'intravvedimento di un
sospettoso scambio di messaggi con un adepto delle ListBox. Quale
messaggistica è passata ?
Provvedimento d'urgenza.
'Potenziato il Module MinisteroDelControlloDellaRispostaCentralizzata
'Affidato ad un secondo esponente gerarchico con Delega e aspetto amichevole
il controllo dei messaggi , facoltà di giurare solo il Vero o il Falso.
'**********************************
Friend Delegate Function AskEliminazioneRecordDelegate(ByVal str As String)
As Boolean
'Naturalmente Centralizzata anche la variabile di controllo amichevole
 Friend askEliminazione As AskEliminazioneRecordDelegate
'**********************************
'Potenziato il Module modMessageBox
  Friend Function AskEliminaRecordFunction(ByVal str As String) As Boolean
        MsgText = str & Environment.NewLine & "Vuoi eliminare il record
selezionato ?"
        MsgTitle = "Eliminazione permanente di record."
        ButtAnswer = MessageBoxButtons.YesNo
        resAnswer = MessageBox.Show(MsgText, MsgTitle, ButtAnswer,
MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
        If resAnswer = DialogResult.Yes Then
            Return True
        Else : Return False
        End If
    End Function
'**********************************
'chiede se si vuol eliminare il valore selezionato da qualsiasi luogo del
paeseProgetto
  Dim str As String = LV.SelectedItems(0).Text
  askEliminazione = New AskEliminazioneRecordDelegate(AddressOf
AskEliminaRecordFunction)
  If askEliminazione(str) = False Then Exit Sub
'**********************************
Trionfo dell'uniformità dettata dal potere centrale e soprattutto del
controllo totale dei messaggi inviati.
Sarà condannato il gogolante per violazione della privacy ?
giuseppeD

 Sarà condannato il gogolante per violazione della privacy ?
Sì, naturalmente.
Finchè non proporrà l'unica possibilità che non scaldi cortei per la seconda
(la terza, la quarta, ...) conferma e, democraticamente, pretenderà:
MsgText = str & Environment.NewLine & "Record eliminato."
MsgTitle = "Ormai è tardi, mica me lo sono inventato io. Prendine atto."
ButtAnswer = MessageBoxButtons.OkSuicide(WithoutConfirm)

 ButtAnswer = MessageBoxButtons.OkSuicide(WithoutConfirm)
ma
Environment.NewLine
non è un membro della libreria di classi del .NET Framework
Germi di conversione ?
giuseppeD

 Germi di conversione ?
No, veramente ho copiato il tuo codice, ho cambiato i messaggi e mi sono
inventato un bottone "Suicide" con un'improbabile proprietà.
Io di Net non so assolutamente niente, manco ce l'ho. :-(