Bonjour Serge,
Serge LE LOUARNE wrote:
> Francois Gatto a écrit :
>> Bonsoir Serge,
>>
>>
>>
> Hello,
>> Il semble qu'il manque les affectations de procédures à certains boutons.
>>
> Vi, j'y travaille (problème de doublons dans la seconde zone de liste à
> résoudre avec le bouton "Ajouter") ...
>> J'ai également modifié cette partie de code ...
>>
>> if sQuery <> "" And firstCharacter <> "#" Then
>> oRemovDialogModel = oRemovDialog.Model
>> oListBoxCurrent = oRemovDialog.GetControl("lsbCurrentDicos")
>> oListBoxCurrent.additem(sQuery,0)
>> endif
>>
> Plus concis : adopté !
>> ... qui me parait plus mieux bien ;)
>>
>> J'ai testé rapidement donc après corrections sous Linux et cela semble
>> correct.
>> Bien entendu le problème des droits se pose si l'on est pas en admin.
>> Je testerai demain sous WXP
>>
>>
> Tout à fait. Je m'inspirerais de Dicoo pour cet aspect. qui est le
> prochain point à traiter ...
>
> Thanks
> A+
> Serge
>
Je pense qu'il conviendrait de continuer ce genre d'échange sur la liste
[prog]
En attendant voici une idée pour la gestion des doublons :
sub addItemsToListBox2
call testDuplicateItems
if not testDuplicateItems then
oListBox2.addItems(oListBox1.selectedItems(), oListBox2.itemCount)
end if
oLabel2.Model.Label = oListBox2.itemCount & " noms"
end sub
function testDuplicateItems As Boolean
dim selItems()
selItems() = oListBox1.selectedItems()
testDuplicateItems = false
if oListBox2.itemCount > 0 Then
for i=0 to ubound(selItems())
for j = 0 to oListBox2.itemCount-1
if selItems(i) = oListBox2.items(j) then testDuplicateItems = true
next j
next i
end if
end function
--
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
