Assegnazione properties da stringa

mercoledì 31 ottobre 2007 - 15.31

Franto Profilo | Junior Member

Ciao a tutti, vi chiedo aiuto su un problema che sto incontrando diverse volte...

Io ho una lista contenente i valori delle properties di un DBGrid nel seguente formato:

vProperties = "WIDTH=2000|ALIGNMENT=2|LOCKED=1|ecc...."

Le properties sono a livello di colonna.
In un ciclo di While assegno ad una variabile temporanea la singola property fino ad avere questo risultato: vStTmp1 = "WIDTH=2000" .
A questo punto dovrei assegnare il valore alla colonna.

La domanda è questa : Come faccio ad assegnare direttamente la property senza dover scorrere tutte le properties del DBGrid?

Per chiarirvi le idee io ora faccio così:

With Me.TDBGrid1.Columns(vConta)
Select Case UCase(Mid(vproperty, 1, InStr(1, vproperty, "=") - 1))
Case "WIDTH"
.Width = Mid(vproperty, InStr(1, vproperty, "=") + 1)
Case "TOP"
.Top = Mid(vproperty, InStr(1, vproperty, "=") + 1)
............
End Select

Mi riuscite a semplificare la vita?????
Il destino è solo una giustificazione a ciò che è accaduto, che accade e che accadrà. Apriamo gli occhi e riprendiamoci la nostra vita.

Dainesi Profilo | Senior Member

Perché non cerchi con InStr direttamente "WIDTH=" al posto del semplice "=" ?

Franto Profilo | Junior Member

Ciao, grazie x l'intervento.
Ok, in effetti in questo caso è meglio testare "WIDTH=".

Il fatto è che avevo preparato il codice per ottenere una stringa identificativa (prima del carattere "=") e un suo valore (dopo il carattere "=") da utilizzare direttamente come property del TDBGrid.
Il destino è solo una giustificazione a ciò che è accaduto, che accade e che accadrà. Apriamo gli occhi e riprendiamoci la nostra vita.
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5