| |
![zurück](../images/b_zurueck.gif)
Suche Visual-Basic Codekleines ListBox Problem | | ![](../images/trans.gif) | Autor: P-H-P | Datum: 11.10.03 11:57 |
| Hi
Ich habe folgendes Problem...
Ich habe in einer INI-Urls gespeichert, die nicht aufgerufen werden dürfen.
Die Ini sieht ungefähr so aus:
-------------------------
[Blocked Pages]
total=2
url1=www.url.de
url2=www.url.com
-------------------------
total zeigt die insgesamt gespeicherten URLS an. Ich rufe später in einer schleife alle urls ab und checke ob eine eingegeben wurde, und lasse dann die entsprechende meldung kommen (das funzt alles)
Nun zu meinem Problem.
Ich möchte dem Anwender s ermöglichen Einträge hinzuzufügen (das funzt auch schon) und wieder zu löschen.
Zuerst wird in form_Load die ListBox mit den einzelnen Urls gefüllt, der code dazu schaut so aus:
Private Sub Form_Load()
Dim total as integer
dim i as integer
Dim WUrl as string
dim url as string,lurl as string,rurl as string
total=GetPrivateProfileInt("Blocked Pages","total",0,App.Path & "\Ini.ini")
With List1
For i=1 to total
WUrl="url" & i
url=space$(100)
lurl=GetPrivateProfileString("Blocked Pages",WUrl,"",url,100,App.Path & _
"Ini.ini")
rurl=Left$(url,lurl)
.AddItem rurl
next
end with
end sub Das anzeigen aller gepeicherten URLS funktionier auch einwandfrei, auch wie schon gesagt das hinzufügen.
Zum Code:
Zuerst wird die Anzahl der insgesamtgespeicherten Urls ermittelt (total=....)
Dann werden die Urls in die ListBox in einer Schleife eingefügt. Das sollte alles klar sein,oder?
Ok..
Nun meine Frage:
Wie lösche ich einen Item aus der ListBox und gleichzeitig aus der Ini...Das wichtigste ist dabei, das total wieder um 1 vermindert wird, jedesmal wenn ein Eintarg gelöscht wird. Und was noch wichtig ist:
Die Urls müssen geordnet bleiben. Also, nehmen wir an die INI schaut so aus:
-------------------------
[Blocked Pages]
total=5
url1=www.url1.de
url2=www.url2.de
url3=www.url3.de
url4=www.url4.de
url5=www.url5.de
-------------------------
Nun lösche ich Eintrag 3 (url3) dann sieht die Ini ja so aus:
-------------------------
[Blocked Pages]
total=5
url1=www.url1.de
url2=www.url2.de
url4=www.url4.de
url5=www.url5.de
-------------------------
aber auszusehen soll die aber dann so:
-------------------------
[Blocked Pages]
total=4
url1=www.url1.de
url2=www.url2.de
url3=www.url4.de
url4=www.url5.de
-------------------------
Alles klar!?
Total soll um einen vermidert werden und url soll geordnet werden. Und dann soll die ListBox aktualisiert werden, so dass die Einträge neu dort stehen ohne den gelöschten Eintrag..
Hoffe ihr habt mein Problem verstanden und könnt mir bis heut abend helfen...
VIELEN,VIELEN DANK SCHONMAL AN DEN DER MIT HELFEN KANN | ![](../images/trans.gif) |
![](../images/48x48/info.gif) | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
sevISDN 1.0 ![sevISDN f?r VB/VBA und VB.NET](../images/werbung/sevisdn_100x116.gif)
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats sevWizard für VB5/6 ![sevWizard für VB5/6](../images/werbung/sevwizard_100x100.jpg)
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|