Re:

[Bruce Steers <bsteers4@xxxxxxxxx>]

i don't see how ["False", "True"].Find(Str(bBooloan)) can be "no found" it
will either find "False" or "True"

But I preferred my last suggestion anyway.
CbxStyles.Text = Str(FMain.bFontStyle)

Respects
BruceS


On Mon, 3 Feb 2025 at 11:24, Fabien Bodard <gambas.fr@xxxxxxxxx> wrote:

> In this case if the Find function return -1 because of no found... -1 is
> out of the array.
>
> Le dim. 2 févr. 2025 à 23:10, Bruce Steers <bsteers4@xxxxxxxxx> a écrit :
>
>> your list is a String[] Array ["False", "True"]
>>
>> But I assume FMain.bFontStyle is Boolean
>>
>> So try Str() to get a String version of the Boolean value like this...
>>
>> CbxStyles.Text = CbxStyles.List[CbxStyles.Find(Str(FMain.bFontStyle))]  '
>> Use Str() on the Boolean
>>
>> Or maybe simply this...
>> CbxStyles.Text = Str(FMain.bFontStyle)
>>
>> BruceS
>>
>>
>> On Sun, 2 Feb 2025 at 21:39, Philippe Valarcher <
>> philippe.valarcher@xxxxxxx> wrote:
>>
>>> Bonsoir,
>>> is someone can helping me in debbugging this part :
>>>
>>> Public Sub Form_Open()
>>>
>>> Dim fontName As String
>>> Dim fontTaille As String
>>> Dim fontStyle As String
>>>
>>> CbxFonts.Clear()
>>> CbxTailles.Clear()
>>> CbxStyles.Clear()
>>>
>>> ' Module_Settings.RestorePolice
>>>
>>> For Each fontName In Fonts
>>> CbxFonts.Add(fontName)
>>> Next
>>>
>>> For Each fontStyle In ["False", "True"]
>>> CbxStyles.Add(fontStyle)
>>> Next
>>>
>>> For Each fontTaille In ["8", "9", "10", "11", "12", "13"]
>>> CbxTailles.Add(fontTaille)
>>> Next
>>>
>>> CbxFonts.Text = CbxFonts.List[CbxFonts.Find(FMain.sFontName)]
>>> CbxTailles.Text = CbxTailles.List[CbxTailles.Find(FMain.iFontSize)]
>>> ' CbxStyles.Text = CbxStyles.List[CbxStyles.Find(FMain.bFontStyle)]
>>>
>>> End
>>>
>>> If I uncomment the last line the program fail with this :
>>>
>>>
>>> --
>>>
>>> Regards
>>>
>>> Philippe Valarcher <philippe.valarcher@xxxxxxx>
>>>
>>