[VB.NET]variabili

[bonaprogram]

Ho un piccolo problema che riguarda le variabili...
utilizzando questo script:

    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpDefault As String, _
    ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFileName As String) As Int32

    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" Alias _
    "WritePrivateProfileStringW" (ByVal lpApplicationName _
    As String, ByVal lpKeyName As String, ByVal lpString As String, _
    ByVal lpFileName As String) As Long

    Private FileNAME As String

    Public Function ReadIniData(ByVal Section As String, ByVal Key As String, ByVal file As String) As String
        Dim Valore As Long
        Dim RetVal As String = Space(256)
        FileNAME = System.AppDomain.CurrentDomain.BaseDirectory() & file
        Valore = GetPrivateProfileString(Section, Key, "<Nessun valore>", RetVal, RetVal.Length, FileNAME)
        Return Trim(RetVal.ToString)
    End Function

    Public Function WriteIniData(ByVal Section As String, ByVal Key As String, ByVal file As String) As String
        Dim Valore As Long
        Dim RetVal As String = Space(256)
        FileNAME = System.AppDomain.CurrentDomain.BaseDirectory() & file
        Valore = WritePrivateProfileString(Section, Key, "<NESSUN VALORE>", FileNAME)
        Return Trim(RetVal.ToString)
    End Function

faccio returnare ad una var un certo valore di un file ini, cosi:

    Dim Registration As String

    Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Registration = ReadIniData("REGISTER", "validation", "rTl.dll")
        MsgBox(Registration)
        If (Registration = "aaa") Then
            MsgBox("ok")
        End If
    End Sub

Il mio problema è che nell'msgbox mi mostra il giusto valore della variabile, che in questo caso è: aaa .
Pero quando faccio l'if, stranamente, nn mi da il msgBox ok.
Se faccio però:

    Dim Registration As String

    Private Sub splash_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Registration = "aaa"
        MsgBox(Registration)
        If (Registration = "aaa") Then
            MsgBox("ok")
        End If
    End Sub

mi funge, perke ?

[biste]

Beh sembra un po' strano... Sicuro che la variabile sia dichiarata String?
Hai provato a confrontare utilizzando il metodo Equals di String?
Option Strict come è impostato?

HTH

[riccardone]

Originariamente inviato da bonaprogram
faccio returnare ad una var un certo valore di un file ini, cosi:

Forse il valore returnato non e' "aaa" come pensi... hai controllato in debug che valore ci sia?

[bonaprogram]

Forse il valore returnato non e' "aaa" come pensi... hai controllato in debug che valore ci sia?

come faccio a controllare ?

Beh sembra un po' strano... Sicuro che la variabile sia dichiarata String?
Hai provato a confrontare utilizzando il metodo Equals di String?
Option Strict come è impostato?

sono sicuro che sia dichiarato stringa :/

[Sypher]

Originariamente inviato da bonaprogram
come faccio a controllare ?

quando fai play metti un break-point..clikka sulla colonnina grigia a sinistra a fianco della riga in cui valorizzi Registration...poi quando fai play il programma si ferma lì e con f10 avanzi riga per riga

[bonaprogram]

ho risolto