[SOLVED]"Variable not defined" error

[vigge89]

I've set the variable "WhichFav" to the Index of a control, and when i execute this:

Call saveini("favorites", WhichFav)

I get error saying: "Variable not defined" in the function saveini().

Contents of saveini():

Private Function saveini(KeySection As String, KeyKey As String)
 
Dim lngResult As Long
Dim strFileName
strFileName = App.Path & "\options.ini" 
lngResult = WritePrivateProfileString(KeySection, _
KeyKey, KeyValue, strFileName)
If lngResult = 0 Then
'An error has occurred
Call MsgBox("An error has occurred while saving the options", vbExclamation)
End If
KeyValue = Trim(strResult)
End Function

What is wrong?
Could it be that WhichFav is an integer?
I've tried CStr(WhichFav) but that doesn't work either, same error

[axion_sa]

Which line does VB break on?
Where is KeyValue declared?

[vigge89]

KeyValue is declared at top, so it's global.
VB breaks at "KeyValue = Trim(strResult)"
Where strResult is the undefined variable.

It have worked before, but when I used WhichFav, it didn't work

[axion_sa]

And where is strResult declared?

[vigge89]

nowhere?
i don't know it worked before, but i'll test with declaring it as string

[vigge89]

yep works now, declared the strResult as string (Dim strResult As String * 50)

and added some stuff in

Private Sub mnuFavSet_Click()
 
lblFavColor(WhichFav).BackColor = lColor
 
KeyValue = lColor 'Added this, forgot it before (this makes the function write anything at all :P )
 
Call saveini("favorites", WhichFav)
 
End Sub

[MartinLiss]

Originally posted by vigge89
KeyValue is declared at top, so it's global.
VB breaks at "KeyValue = Trim(strResult)"
Where strResult is the undefined variable.

It have worked before, but when I used WhichFav, it didn't work

Unless strResult is defined somewhere within the scope of the function it will be "undefined".

BTW, why is saveini a function since you are not returning anything from it.

[vigge89]

Originally posted by MartinLiss
Unless strResult is defined somewhere within the scope of the function it will be "undefined".

BTW, why is saveini a function since you are not returning anything from it.

since i don't know how to make the function return anything, i use a global variable to store its results

also, i know that it has to be defined, but it worked when i used Saveini("favorites", lblSomecolor.Backcolor)

[MartinLiss]

What do you want it to return? The following returns the result of the Trim function.

Private Function saveini(KeySection As String, KeyKey As String) [color="#0000FF"]As String[/color]
 
Dim lngResult As Long
Dim strFileName
strFileName = App.Path & "\options.ini" 
lngResult = WritePrivateProfileString(KeySection, _
KeyKey, KeyValue, strFileName)
If lngResult = 0 Then
'An error has occurred
Call MsgBox("An error has occurred while saving the options", vbExclamation)
End If
[color="#FF00FF"]saveini [/color]= Trim(strResult)
End Function

[vigge89]

ok, great that was exactly what i wanted

[MartinLiss]

strResult still needs to be defined someplace. Do you mean lngResult?

[vigge89]

I've already defined strResult as string!

[vigge89]

New question:

How do u convert a string into number?
I've saved the xpos and ypos of a form in INI file, but when i retrieve them, i get type missmatch. Code:

Me.Left = Int(loadini("settings", "xpos"))
Me.Top = Int(loadini("settings", "ypos"))

I've tested with, and without the Int(), but it won't work

[vigge89]

oh, nm, it worked now