08/07/21 16:59
alip1
Postato originariamente da nessuno:
Avresti avuto un'altra spiegazione se ci avessi fatto controllare il progetto
Avresti avuto un'altra spiegazione se ci avessi fatto controllare il progetto
Ok per farlo mi limito alle cose essenziali:
Ho una classe così definita:
Public Class DataUserLogCS Private mlidAmm As Integer Private mstLogName As String 'logon name windows access Private mstPwd As String ' eventuale pwd Private mlidUser As Integer ' = se solo Amm diverso da 0 se anche utente dell'App Private mflagAmm As Boolean ' true se Amm Private mflagAccessWindow As Boolean 'true se accesso con credenziali window Private mstType As String Private miGGBeforNotification As Integer Private midGroupDefault As Integer Public Property LogName As String Get Return mstLogName End Get Set(value As String) mstLogName = value End Set End Property Public Property PWD As String Get Return mstPwd End Get Set(value As String) mstPwd = value End Set End Property Public Property idAMM As Integer Get Return mlidAmm End Get Set(value As Integer) mlidAmm = value flagAmm = True End Set End Property Public Property idUser As Integer Get Return mlidUser End Get Set(value As Integer) mlidUser = value ' CaricaInGruppi() End Set End Property Public Property flagAmm As Boolean Get Return mflagAmm End Get Set(value As Boolean) mflagAmm = value End Set End Property Public Property flagAccessWindow As Boolean Get Return mflagAccessWindow End Get Set(value As Boolean) mflagAccessWindow = value End Set End Property Public Property GGBeforeNotification As Integer Get Return miGGBeforNotification End Get Set(value As Integer) miGGBeforNotification = value End Set End Property Public Property IdGroupDefaul As Integer Get Return midGroupDefault End Get Set(value As Integer) midGroupDefault = value End Set End Property Public Sub New() flagAmm = False idUser = 0 End Sub End Class
quindi una variabile pubblica così definita:
'************** Data USER LOGGATO ********** Public gUserLog As DataUserLogon
quindi la semplice istruzione:
gUserLog.PosTreeView = SCBase.SplitterDistancenell'evento closing
Private Sub frmMainContratti_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosingdel form...
Negli altri form e routine la variabile non viene più utilizzatasalvo che il valore di gUserLog.PosTreeView viene letto da un file di testo nel Main dell'App e riscritto nello stesso file alla chiusura dell'Appplicazione ,,, ma queste due operazioni funzionano.
Ultima modifica effettuata da alip1 08/07/21 17:01
aaa