[Risolto] Intercettazione errori

[tornu]

Buonasera a tutti,
ho una Form con vari oggetti tra cui delle TextBox che devono contenere dei valori
con decimali controllati da una Classe che ne verifica la corretta digitazione, sia
per quanto riguarda l'uso della virgola o del punto. Nel caso di digitazione di
cifre intere vengono aggiunti automaticamente i decimali e formattati col separatore
delle miglia a partire dalla cifra 1000.
La Classe solleva dei messaggi di errore nel caso siano digitate cifre non conformi
ai controlli impostati, per esempio doppie virgole, doppi punti, etc...
Quello che voglio chiedervi, perchè non ci sono riuscito e sinceramente non sò se
è fattibile, come faccio a sapere quando la Classe solleva l'errore qual'è l'oggetto
della Form che lo ha scatenato?

[kicco]

 
Magari non ho capito il problema: Ma  quando analizzi con la Tua Classe il contenuto di una delle TextBox, sai qual è quella che ha sollevato l'errore.
Non puoi passare l'informazione alla classe?
 

[tornu]

Ciao kicco,
certo che sì, era una soluzione che già mi era venuta in mente.
Passare alla Classe qual' è la TextBox che stà analizzando non è un problema,
il problema e come restituire alla Form l'informazione che identifica la TextBox
dopo che la Classe ha sollevato l'errore.
Le varie funzioni della Classe terminano tutte con Return ValoreFormattato

[kicco]

Le varie funzioni della Classe terminano tutte con Return ValoreFormattato

Possono terminare anche con più valori,  contenuti in un vettore,  per esempio.
 

[Gianluigi]

Scusa sono rientrato adesso e sto per andare a nanna che domani mattina ho da fare.
Non ho tempo di analizzare il tuo problema ora, ma così su due piedi mi chiedo perchè devi restituire alla Form col valore che comunque potresti usando un vettore al posto della variabile di ritorno, se è la classe che solleva l'errore e la classe conosce il TextBox fallo dire alla classe, nel senso che la routine che sovrintende all'errore può passare la stringa completa del messaggio alla form.
Oppure return ValoreFormato è una stringa, se passa un numero (isNumeric) è il valore altrimenti ha passato l'errore.
Non so se può funzionare a te l'onere della prova, se entro domani pomeriggio non hai trovato la soluzione allora proverò a mettere in pratica quanto ho appena detto.

 

[vuott]

... contenuti in un vettore

...e, qualora il vettore venga creato nella routine chiamante, la funzione chiamata non avrà bisogno della parola-chiave "Return", poiché il passaggio del vettore, come parametro, avviene per "Indirizzo".

[tornu]

Questa la modalità che stò utilizzando

Classe CFormatValori:

Codice: [Seleziona]

Public Sub FormatVal2(stringa As String) As String '' Formattazione a due decimali e inserimento separatore migliaia
....
codice
....
Return stringa
End

Form:

Codice: [Seleziona]

Private FrmValori As New CFormatValori

Public Sub TextBox1_Activate()
  TextBox1.Text = FrmValori.FormatVal2(TextBox1.Text)
End

Domani rileggerò con attenzione i vostri suggerimenti, vediamo se riesco ad applicarli.

[Gianluigi]

Possono terminare anche con più valori,  contenuti in un vettore,  per esempio.
 

Purtroppo il forum è diventato meno gentile e non avvisa più se altri hanno già risposto mentre stai scrivendo, poi la premura... .
Scusa  non volevo rubarti l'idea.

Comunque ripensando al problema di Tornu io lo affronterei così:

Codice: [Seleziona]

Public Sub TextBox1_Change()

  myChange(TextBox1)

End

Public Sub TextBox1_KeyPress()

  myPress(TextBox1)

End

Private Sub myChange(hBox As TextBox)

  Dim c As String, i As Integer

  c = hBox.Text
  i = hBox.Pos
  If Asc(c, i) > 47 And Asc(c, i) < 58 Then
    Else If Asc(c, i) = 45 Then
    If i > 1 Then
      If Asc(c, i - 1) = 45 Then
        hBox.text = Mid(c, 1, Len(c) - 1)
      Endif
    Endif
  Else If Asc(c, i) = 44 Or If Asc(c, i) = 46 Then
    If i > 1 Then
      If Asc(c, i - 1) = 44 Or If Asc(c, i - 1) = 45 Or If Asc(c, i - 1) = 46 Then
        hBox.text = Mid(c, 1, Len(c) - 1)
      Endif
    Else
      hBox.Clear()
    Endif
  Else
    hBox.text = Mid(c, 1, Len(c) - 1)
  Endif

End

Private Sub myPress(hBox As TextBox)

  Dim s As String

  If Key.Code = Key.Return Or Key.Code = Key.Tab Then
    If IsNull(hBox.Text) Then Return
    s = ControlloValore(hBox.Text)
    If s <> "ERRORE INATTESO" Then
      hBox.Text = s
    Else
      Message.Warning(s, "OK")
      Stop Event
      hBox.Clear()
      hBox.SetFocus()
    Endif
  Endif

End

Private Function ControlloValore(value As String) As String

  Dim f As Float

  'Print value
  Try f = CFloat(Val(value))
  If Error Then Return "ERRORE INATTESO"
  'Print Val(value)
  Return Format(Val(value), ",#.#0")

End

 

P.S. Ho cambiato

Codice: [Seleziona]

Return Trim(Format(Val(value), "-,#.#0"))

perché era scritto inutilmente arzigogolato, non ricordo perché lo avevo scritto così in un'altra routine... 

[kicco]

Possono terminare anche con più valori,  contenuti in un vettore,  per esempio.
 

Purtroppo il forum è diventato meno gentile e non avvisa più se altri hanno già risposto mentre stai scrivendo, poi la premura... .
Scusa  non volevo rubarti l'idea.

..rubare l'idea? ... di usare un vettore?  Ammetto che l'idea è talmente geniale che solo io potevo averla! 
E dai e dai anche noi asini finiamo per imparare qualcosa per ...osmosi!
 

[Gianluigi]

per ...osmosi!
 

 
anche il resto è divertente, ma "per osmosi"   

 

[tornu]

...
Comunque ripensando al problema di Tornu io lo affronterei così:
...

In questo modo mi costringi in ogni Form nel quale mi serve utilizzare questi controlli/formattazione dei valori
ripetere le stesse routine, ne ho già varie che svolgono queste funzioni (aggiungo alla mia "collezione"
anche questa da te proposta... non si sà mai  ), io cercavo di "centralizzare" tramite una Classe questi
controlli, ma come ho già detto ho il problema che l'errore sollevato dalla Classe mi deve evidenziare la
TextBox che lo ha generato e non sò come fare, le indicazioni datemi da kicco e vuott ancora non ho capito
come implementarle, continuo a studiare...

[Gianluigi]

In questo modo mi costringi in ogni Form ... ripetere le stesse routine...

Ma non puoi spostarle nella classe? 
Ad esempio così:

Codice: [Seleziona]

Public Function myChange(char As String, pos As Integer) As String

  Dim c, sText As String, i As Integer
'Stop
  c = char
  i = pos
  If Asc(c, i) > 47 And Asc(c, i) < 58 Then
    sText = c
  Else If Asc(c, i) = 45 Then
    If i > 1 Then
      If Asc(c, i - 1) = 45 Then
        sText = Mid(c, 1, Len(c) - 1)
      Else
        sText = c
      Endif
    Else
      sText = c
    Endif
  Else If Asc(c, i) = 44 Or If Asc(c, i) = 46 Then
    If i > 1 Then
      If Asc(c, i - 1) = 44 Or If Asc(c, i - 1) = 45 Or If Asc(c, i - 1) = 46 Then
        sText = Mid(c, 1, Len(c) - 1)
      Else
        sText = c
      Endif
    Else
      sText = ""
    Endif
  Else
    sText = Mid(c, 1, Len(c) - 1)
  Endif
  Return sText

End


Public Function ControlloValore(value As String) As String

  Dim f As Float

  'Print value
  Try f = CFloat(Val(value))
  If Error Then Return "ERRORE INATTESO"
  'Print Val(value)
  Return Format(Val(value), ",#.#0")

End

 

[tornu]

Si hai perfettamente ragione, chiedo scusa   
Nel mentre avevo trovato la soluzione leggendo la nostra grande Wiki di cui spesso mi dimentico
nel capitolo Scrivere una Funzione, dove ho trovato una esauriente spiegazione di come
ritornare più valori da una funzione usando i vettori. Grazie a tutti per l'aiuto 

[vuott]

la nostra grande Wiki di cui spesso mi dimentico

[Gianluigi]

Nel mentre avevo trovato la soluzione leggendo la nostra grande Wiki di cui spesso mi dimentico
nel capitolo Scrivere una Funzione...

Sarebbe cosa buona e giusta se indicassi qui la tua soluzione 

Grazie