Re:

[Fabien Bodard <gambas.fr@xxxxxxxxx>]

You can set the text of a combo only if it is not read only.

In fact there is two way to handle a result
Read only you use index to set or get the result

Or

Not read only,
You can use the value of the text or the index. It allow to define values
that are not in the list initially.

Le lun. 3 févr. 2025 à 15:23, Bruce Steers <bsteers4@xxxxxxxxx> a écrit :

> Hang on , looking deeper these seem to be ComboBox's.
> Surely it is correct to set the ComboBox.Index and incorrect to just set
> the .Text?
>
> CbxFonts.Index = CbxFonts.Find(FMain.sFontName)
> CbxTailles.Index = CbxTailles.Find(FMain.iFontSize)
> CbxStyles.Index = Abs(FMain.bFontStyle)
>
> Maybe handle for "not found" -1 with Max()
> CbxFonts.Index = Max(0, CbxFonts.Find(FMain.sFontName))
>
> Respects
> BruceS
>
>
> On Mon, 3 Feb 2025 at 13:12, Bruce Steers <bsteers4@xxxxxxxxx> wrote:
>
>> 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>
>>>>>
>>>>