Jag försöker att komma på ett bra system för att varna om någonting är galet.
<code>
If Len(txtHtml.SelText) > 0 Then
SparaScroll
initSvetxt (txtHtml.SelText)
HämtaScroll
Else
If List1.ListCount > 1 Then
Info.Caption = "Du måste först klicka på ett filnamn i listboxen som Du vill arbeta med."
ElseIf txtHtml.Text > "" And List1.ListCount > 1 Then
Info.Caption = "Du måste markera en text först."
Else
Info.Caption = "Du måste hämta in filer ifrån en webbplats först."
End If
End If
</code>
Alltså om txtHtm har selectad text då händer det någonting
Om list1 listcount är större än 1 och txtHtml har text då skall en annan sak gälla,
annars så skall det uppfattas som om txtHtm är tom och list1 inte har något värde.
Hur jag än gör,så får jag inte rätt resultat.
Tänker jag på fel sätt? Kanske vore det bättre att jobba med boolenska värden?
Några kluriga ideér?

<code>
If Len(txtHtml.SelText) > 0 Then
If List1.ListCount > 1 Then
SparaScroll
initSvetxt txtHtml.SelText
HämtaScroll
ElseIf List1.ListCount > 1 Then
Info.Caption = "Du måste först klicka på ett filnamn i listboxen som Du vill arbeta med."
Else
Info.Caption = "Du måste hämta in filer ifrån en webbplats först."
End If
Else
Info.Caption = "Du måste markera en text först."
End If
</code>

Tyvärr Andreas.
Om list1 är tom och txtHtml är tom så fick jag: Du måste markera en text först.
Om jag fyller list 1 och txtHtml är tom så får jag: Du måste markera en text först.
Och likadant om txtHtm är fylld men ingen text markerad:Du måste markera en text först

Förstår du?

<code>
If Len(txtHtml.SelText) > 0 Then
SparaScroll
initSvetxt (txtHtml.SelText)
HämtaScroll
Else
If txtHtml.Text <> "" AND List1.ListCount > 1 Then
Info.Caption = "Du måste först klicka på ett filnamn i listboxen som Du vill arbeta med."
ElseIf List1.ListCount > 1 Then
Info.Caption = "Du måste markera en text först."
Else
Info.Caption = "Du måste hämta in filer ifrån en webbplats först."
End If
End If
</code>
Jag vet inte vilken info.caption som skulle vara på vilken men if satsen måste komma i denna ordning. Första raden kontrollerar du att Listcount > 1 och txtHtml innehåller något.
Sedan kontrollerar du att Listcount > 1
och sist en else sats


Du kommer aldrig in i din andra if eftersom List.ListCount > 1 redan är uppfyllt på din första if rad.
<code>
If List1.ListCount > 1 Then
Info.Caption = "Du måste först klicka på ett filnamn i listboxen som Du vill arbeta med."
ElseIf txtHtml.Text > "" And List1.ListCount > 1 Then
Info.Caption = "Du måste markera en text först."
Else
Info.Caption = "Du måste hämta in filer ifrån en webbplats först."
End If

</code>

Hej!

Ta bort den första ELSE satsen.
/Håkan