Visual Basic :: Delete Items From A LsitBox

Using Checkbox In Lsitbox To Save Settings ??
HI,

i'm making a program that wil change registry settings for a user. I want to build in a listbox in checkbox state and the user must be able to click on the item(There by checking it) en then when the press save and the registry settings will be saved. The problem is i dont how how to get selected box's and pass the value's.

Example.: If a user selected NoFind in the list box i must change the dword HKEY_blabanotherkey..NoFind in to 1
normaly i would do this like X=savesettings HKEY_blabanotherkey..check1.value (i when use checkboxes)

But how do i do this with a listbox ??

Thanx in advance for the help

Simple! Moving A Listbox Item For One Lsitbox To Another.
How can I move an item from

lstbox 1 ---> lstbox 2

I want the item to be removed from lstbox 1 and added to lstbox 2

Thanks for anyone who helps.

Delete Sent Items
Is there a way to delete all the items in the Sent Items using VB code?

Delete All Items In A Listbox?
How can I delete all items in a listbox?

Thanks in advance.

Delete Same Items From Listbox
I searched the forum couldn't find anything though.

Due to my poor coding, i have items that are the same value "AAA" that are beign added to a listbox twice. I don't know how to fix it, so i was wondering of another way.

How could i scan the listbox and find anything that is entered twice and delete all of them from the listbox except 1 of them?

Here is the code

Code:
recsize = Len(atrader)

Open App.Path & " rade.dat" For Random As 1 Len = recsize

recnum = LOF(1) / recsize

Do Until x = recnum
x = x + 1

Get #1, x, atrader

var1 = atrader.RefNum
var2 = atrader.NickName

Open App.Path & "Goods.dat" For Input As 2

Do Until EOF(2)
Line Input #2, checkns
nsfound = Left(checkns, 1)

If nsfound = "R" And Mid(checkns, 2, 10) = var1 Then
lstNames.AddItem var2

End If

Loop

Close #2

Loop

Close #1

What happens is i have a file with Customer details and a file of what they ordered.
In the order file it saves as "R0000000001" for one person's order, "R0000000002" for the 2nd person and so on. "R0000000001" identifies which customer ordered. NOT what they ordered. If they order 2 items, when i run my program it adds the customer twice to the listbox.

I was thinking about putting code to check if var2 exists in the listbox before it adds. but i wasnt sure how.

Any help would be great

cheers, Juve

Delete Items From An Array
As above.
Please advise.
I have

xxx(0)
xxx(1)
xxx(2)
xxx(3)
xxx(4)
xxx(5)

And i wish to delete 2,3,4. How to go about doing this?

Thanks.

Add/Delete Menu Items
I created a form using the form wizard, which added the File, Edit, View, etc... menus to the form. I can't figure out how to add/delete/modify menus and sub-menus. Can someone point me in the right direction? Thanks!

Array's Delete Items
Hi folks,

I have a question: When i have a array with 40 variables. How can i delete the 29st and then redim it to 39 without the 29st in the array ?

Delete Items In A Listbox?
I have a listbox with two columns.
I want, via two textboxes, to tell wich rows I still want to have in my listbox.

Ex.
If I still want to have all rows in column 1 wich starts with john,
I write john* in textbox 1, all other rows will be deleted in the listbox.
If I still want to have all rows wich starts with john in column 1 and all rows wich starts with adress in column 2 i wrote john* in textbox 1 and adress* in textbox 2. Alla other rows will be deleted in the listbox.
I want to use asteriks (*)

Please help me.

How To Delete Items In The Buffer
I need to delete or overwrite the images in the buffer that come from a remote desktop.At present the new image transferred to this buffer is being appended or added to the previous image in the buffer. I need a way to delete the previous image in the buffer and allow only the new images into this buffer.

Plz provide me with a sample code or a way of solving this problem.

Any kind of help is desirable.

Delete Items In A Listbox
I have a listbox with two columns.
I want, via two textboxes, to tell wich rows I still want to have in my listbox.

Ex.
If I still want to have all rows in column 1 wich starts with john,
I write john* in textbox 1, all other rows will be deleted in the listbox.
If I still want to have all rows wich starts with john in column 1 and all rows wich starts with adress in column 2 i wrote john* in textbox 1 and adress* in textbox 2. Alla other rows will be deleted in the listbox.
I want to use asteriks (*)

Please help me.

Trying To Delete Items From ListView And DB
Hello. I am trying to delete items from a ListView and the correspnding selection out of the database. So far I can delete from the listview but not the DB.

Any ideas?

Code:
GetConn
Set rs = New ADODB.Recordset
Dim sql As String

For i = lvwResults.ListItems.Count To 1 Step -1
If (lvwResults.ListItems(i).Selected = True) Then
lvwResults.ListItems.Remove i
sql = "SELECT Sites.Url FROM Sites WHERE Sites.Url = '" & lvwResults.SelectedItem.Index(i) & "'"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
rs.Delete adAffectCurrent

End If
Next i
rs.Close
Set rs = Nothing
CloseConn
Exit Sub

List1 Delete Items
How can i delete a selected item in a ListBox??
Can i change the value of an item??

------------------
Yours sincierly
CyberCarsten
http://home18.inet.tele.dk/cyber/
carsten.h.thomsen@mail.tele.dk

How Do I Delete Items With Help From Msgbox?
How do I delete items with help from Msgbox? ...?

How To Delete Listview Items
I have listview control in the form, it is in report view, full rowselect enabled. Listview contains few listitems and subitems. All i want to do is how could i delete the selected listview item with command button. Suppose The items are in serial, for eg.
1,2,3...and so on........Suppose I delete item 2 , how can i automatically re number the item with serial no 3 to serial no.2
thanx
saracjl

Delete Items In Hotmail
Hey guys,
I am not new to programing but I am new to internet programing.
I want to automatically delete e-mails from my hotmail account. They have a block sender but it is limited to how many you can block. I want a program to go to the site 3 or 4 times a day and delete all addresses that I will store in a database.
Can you get me started in the right direction? I have never used Winsock. Is this the way to go?
Thanks in advance for any help.
Wayne

Outlook: Delete All Attachments From Every Items
delete all items:

Set TestItems = TestFolder.Items
For Each Itm In TestItems
Itm.Delete
Next

everything is work, but next code is wrong. I can't understand why:

Set TestItems = olNewFolder.Items
For Each Itm In TestItems
Set myAtt = Itm.Attachments
If myAtt.Count > 0 Then
myAttCount = myAtt.Count
Do
If myAttCount = 0 Then Exit Do
For Each b In myAtt
b.Delete
Next b
myAttCount = myAttCount - 1
Loop
End If
Next Itm

Delete Menu Items At Runtime?
Well, i've figured out how to add menu items at runtime. But what about delete? Is there anywhere to remove items from the menu while the program is running without resorting visible = false?

Avoid Delete Items From The Listview
I'm working an application for a restaurant I need that if the waiter save items to the database and if that "Order" is still open, the waiter can add new item and can see those items that he save it before but he can't delete those items that he save it before

Elvis Cabral

How To Delete Mulitple Items From Listbox?
Hi all. i am using this follwoing code to delete single item from listbox. But i wonder how i can select multiple items from listbox and delete all at once.

VB Code:
Private Sub Command8_Click() Dim vbResponse As VbMsgBoxResult vbResponse = MsgBox("Are you sure you want to remove " & List2.List(List2.ListIndex) & "?", vbYesNo + vbQuestion, "Confirm Delete") If vbResponse = vbNo Then Exit Sub Else List2.RemoveItem List2.ListIndex End If Label2.Caption = "Number of items: " & List2.ListCountEnd Sub

Delete Items From Treeview Control
how would i delete all the items in a certain group from the treeview control? i know how to clear everything in a treeview, but i just want to delete all the items from one of the parent group.

How Do I Delete Items From A Multiselect Listbox?
I have a multiselect listbox. I have selected a couple items in the list box. I have a button that removes the selected item or items from the list box. But I can't get it to work.

PLEASE!!!!!!!!!!!!!!! Somebody tell me how to do it

How To Delete Selected Items In Listbox
On the form are:
1 command button named cmdAdd
1 command button named cmdDel (to delete selected items in the listbox)
1 textbox named Text1
1 listbox named List1

here's the code:
Private Sub cmdAdd_Click()
List1.AddItem Text1.Text
Text1.Text = ""
Text1.SetFocus
End Sub

the code works fine. I need a code that would execute the ff:
When I select (or highlight) an item or several items on the listbox and then click the Delete button, that item or items should be deleted from the listbox. Thanks guys!!

Delete Multiple Items From A List And The DB
Hi all,

This code below at the moment when run if you select an item from the list and hit delete will delete the record from the list and from the DB (Access) then it clears the list and repopulates it with the new infromation from the DB fine, but when I try to delete mulitiple items it still only takes one item out.

My code

Code:
If MsgBox("Are you sure you want to delete this record?", vbYesNo + vbQuestion, "Delete?") = vbNo Then 'check if you really want to delete this record
     Exit Sub
     Else
    Adodc1.Recordset.Delete
    Adodc1.Recordset.Update
    List1.Clear
    With Adodc1.Recordset
    .MoveFirst
    Do While Not .EOF
        List1.AddItem !FirstName & " " & !Lastname
        List1.ItemData(List1.NewIndex) = !controllerid
        .MoveNext
    Loop
    End With
End If

I have also tried this which will delete the items from the list but not from the database.

Code:
For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(lngIndex) Then
            List1.RemoveItem lngIndex
        End If
    Next

Could someone be so kind and help me?

Thanks

Loftty

How To Delete Items From List View In Vb
Hi,
I am just a beginner in Vb .i am doing a program on list view
to display data from database(access2000) and its displaying.
but now i want to select an item from list view and want to delete
it from list view and at the same time should be deleted from
database also.But i am not able to find a method to delete item
from listview.

Please help me in this and it would be great....if i get it as
soon as possible ..

Trying To Get Loop To Delete Specific Items From Combobox
Hi all,

I have a database that track employees' schedules in half hour increments, using military time format (02:00, 02:30, 03:00, and so on).

What I want to do is execute code that goes back and checks the database for appointments, and if it finds one, takes the start time, adds 90 minutes for a total of a 2 block. Then it deletes that 2 hour block from the combo box that contains available times for other appointments.

The loops work, i have tested those with message boxes. What happens is that the times with XX:30 are removed, but not XX:00 times.

Here's what I have:

Code:
If rs.RecordCount <> 0 Then
ConflictTime = rs.Fields("Time")
EndConflictTime = Format(DateAdd("n", 90, ConflictTime), "hh:mm")
i = 0
Do Until i = cboTime.ListCount
cboTime.ListIndex = i
Do
If cboTime.text = ConflictTime Then
cboTime.RemoveItem cboTime.ListIndex
End If
ConflictTime = Format(DatAdd("n", 30, ConflictTime), "hh:mm")
Loop Until ConflictTime = EndConflictTime
i = i + 1
Loop
End If
Any help is appreciated. Thanks!

How To Delete Multiple Selection Items From A Listbox?
On a form, I have two listbox's. One has items in it, the other is empty. I want to be able to transfer items from one listbox to the other. That part I can do. My problem, is that I want to delete the item, that is being transferd, from it's original listbox. For a single selection, it poses no problem, but if you have a multiple selection enable, it is more complex. I cant use the index after I use the removeitem once, since all the indexes are changed. Example: I have five items (index 0 through 4). I select item 1 & 3. Once I transfer these items to the other listbox, I now want to delete them. If I use the removeitem method once for the item index 1, the other item previously selected (index 3) now becomes index 2! So how can I keep track of all this as I delete items? Is using a while(there are still selected items) conditional loop part of the solution?

Outlook 2000 Contact Items, Deleted Items And Address Books
Hi Folks,

Apologies if this is the wrong forum to open this thread (it may perhaps prove to be better located in the MAPI forum, but is not purely MAPI)

I'm developing a COM add-in for use with Outlook 2000 upwards and have hit a couple of stumbling blocks that I'd really appreciate some help on:-

1. As part of a sync process, some contact items are occasionally deleted from a user-defined custom contacts folder (the folder is never the default Outlook contacts folder). When these contacts are deleted, I would like to move them into the "Deleted Items" folder, rather than just kill them outright.

I use a simple little loop to identify the "Deleted Items" folder and store it as a MAPI folder reference in an object called: RecycleBin as follows:-

(Global Declarations)

Global oApp As Outlook.Application
Global ns As Outlook.NameSpace
Global ns_id_num As Integer
Global RecycleBin As Outlook.MAPIFolder
Global pfolder As Outlook.MAPIFolder

(Extract from routine: GetFolder - namespace correctly referenced previously in another routine)

dim f as integer
'
Set pfolder = ns.Folders(1) 'Personal Folders
For f = 1 To pfolder.Folders.Count
If Trim(UCase(pfolder.Folders(f))) = "DELETED ITEMS" Then
set RecycleBin = pfolder.Folders(f)
End If
Next f
'

However, in the sync routine (which appears to correctly access the RecycleBin object) when I use the .move method on the given contact, for some reason the contact is moved to the DRAFTS folder and not the "Deleted Items" folder.

I'm using Redemption for the ContactItem reference, but I dont think this is affecting things as I've tried the same thing with a regular Outlook.ContactItem object and I get the same result.

Is there something special I have to do to move contacts to the "Deleted Items" folder, or do I need to do something completely different? Alternatively, is there some parameter that can be parsed to the .delete method, which instructs Outlook to move the contact to the "Deleted Items" folder, rather than wipe it from the system?

2. I would like to make the user-defined custom folder an address book reference automatically. In Outlook 2002 there are the MapiFolder.ShowAsOutlookAB and MapiFolder.AddressBookName properties, which I'm sure will work fine, but what about Outlook 2000?

I know this value can be manually set, (by right-clicking the contact folder, selecting the "Properties" menu option, clicking the "Outlook Address Book" tab and putting a check-mark in the "Show as address book" check-box) but what I really need to do, is configure this automatically.

Any and all constructive help, suggestions and ideas gratefully received.

Thanks and Regards

Hitch

Saving Items (selected Items) In List Box To A Text File
I need help in coding the following:

1. Saving (or exporting) the items displayed in List Box to a text file.

2. I have a long list of data to be displayed. When I use this List box all of my data does not fit into the width. I was wondering if there is similar other way where I can do horizontal as well as vertical scrolling. I tried text box and its of no help i guess.

Get Items / Select Items From MSAccess Form Controls
Hello,

I am supposed to automation one application which is developed in MSAccess Form. None of the automation tools support AccessFormControls.

What i did was, i get into VB, tried to do that using Win32API.
i am able to active the window, and get the child windows. But there is one sub form in the form itself. And the controls are populatd on the form. And it will be dynamic.

I am not able to enumerate the controls in it.

Can anybody help me on this?

How To Delete More Than One File Using Internet Control From A FTP Site.( Like Deltree Or Delete *.*
How to delete more than one file using internet control from a FTP site.( like deltree or delete *.*)

How To Derive Items From Items Automatically?
Hi all,

I have a table ITEM (Item_ID, Item_Name, Value), where Value is field that holds real numbers. I have the following business rule: An item is derived from one or more items. For instance, suppose I have the following items:

Item_ID````Item_Name````Value
1``````````X `````````` 10
2``````````Y ```````````20
3``````````Z ```````````5

According to the business rule, we may have the following: X = Y+Z. So, how can represent that in a database? Can i create a unary M:N relation, where an item derives/is derived by one or more items?

Thnx in advance.

Menu Bar Items Ands Sub Items In Vb
Hi,

Can we change the menu bar items fonts and sizes. if not in vb, any api calls can change it or any site thay I can read about. thanks for any help in advance.

DELETE PROBLEM - Cannot DELETE After ADDing New Record Or UPDATING ?
Have a small problem here...very minor but a pain nonetheless.

Is anyone aware of any issues that would cause this problem:

If I open my form, browse through my records, and select a record to delete, and press Delete, it deletes no problem.

I can add a record, and it Inserts Into a table. If I press delete directly after, it will not delete. No error, no delete either.
or
I can update a record successfully. If I press delete directly after this, it will not delete either. Again no error, no delete either.

If I unload the form, and then reload the form again (Exit the form and re-open), I can delete the record fine.

Does anyone know what would be causing this issue?

PS - Its nothing to do with Locking/Enabling buttons etc. I checked that already. The delete button is fully enabled and unlocked ready for use.

Delete ListBox Item When Hit Delete From Keyboard
i want to delete an item that is selected in a listBOx when the delete button of the keyboard is hit. In order to do that i need to be able to first select an item in a listBox, however my click function doesn't seem to respond because there is a conflict with the right-click action. This is the response i had got from codeguru previously:

http://www.codeguru.com/forum/showth...7&goto=newpost

so how shud i solve that and also how can i select multiple entries in the listBox through the shift down arrow

DELETE PROBLEM - Can Delete 1 Record From 2 Tables, But No More After That :(
Hi there,
Think I may have some sort of update problem here.

I have a Delete button which when pressed, will delete the current record in CUSTOMER table, and also any corresponding records in TASK table.

When I press delete once, it deletes the current record in both recordsets.

But when I press delete again to delete the next record it says
"Cannot delete record (in Customer) as a related record is required in TASK".

Does this mean that one of the recordsets are not being updated and if so how do I fix this?

Here is my code so far:
Code:
Private Sub cmdDelete_Click()


  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseServer 'originally was adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:TestSystem.mdb;"


  Dim X As Integer 'Check to make sure update was correctly selected, or if mistake
X = MsgBox("Delete current record?", vbYesNo, "Confirm changes")
If (X = 6) Then

Dim taskRs As Recordset
Set taskRs = New Recordset

Dim sqltask As String


sqltask = ("DELETE FROM TASK WHERE TaskID='" & txtTaskID & "'")

taskRs.Open sqltask, db, adOpenStatic, adLockOptimistic

With taskRs
.Delete
.MoveNext
If .EOF Then .MoveLast
End With


  End With


  Else
    customerRS.CancelUpdate

End If

End Sub

Thanks for any help

Edited by - VBKid04 on 3/11/2004 6:30:28 AM

Loop The Loop: Adding List Item And Sub-items Assigned To Items.
Hello there,

below are the codes i've written to record all the items (which are qnsID) in list box (List1) into qnsdata_table.

Code:
Private Sub Command6_Click()
Dim x As Integer
Dim y As Integer

x = List1.ListCount
y = 0

rst.Open "SELECT * from qnsdata_table", cn, adOpenDynamic, adLockOptimistic

Do While Not y = x
rst1.Open "SELECT qnsdataID from autonumber", cn, adOpenDynamic, adLockOptimistic
rst.AddNew
rst!qnsDataID = "qd" & Right("000000" & CStr(CInt(rst1!qnsDataID) + 1), 6)
rst!qnsID = Me.List1.ItemData(y)
rst.Update
rst1.Close
rst1.Open "UPDATE autonumber SET qnsdataID = qnsdataID +1", cn, adOpenDynamic, adLockOptimistic
y = y + 1
Loop

rst.Close
End Sub

The problem is that for each item (qnsID) there are several assigned (ansID) and i need them to be recorded along with the qnsID, into qnsdata_table.
______________________________
| qnsdataID | qnsID | ansID |
-----------------------------------
| qd0001 | qns0002 | ans0012 |
| qd0002 | qns0002 | ans0016 |
| qd0003 | qns0002 | ans0001 |
------------------------------------

In this case, should i have another Do While Loop within the current Loop, to find out how many 'ansID' there are which are assigned to each 'qnsID'.

I've tried

Code:
rst2.Open "SELECT Count(ansID) AS ansID_count FROM ans_table where....(conditions)

Me.Text2 = rst2!ansID_count '(ive no idea where to store the count) value)

a = Me.Text2 '(shift value into variable a)
b = 0
and here goes another loop, but it didn't work.

Need some advice and comments from you guys =)

Thanks a million.

Astrov

DELETE PROBLEM - Can Delete 1 Record, But No More After That :(
Hi there,
Think I may have some sort of update problem here.

I have a Delete button which when pressed, will delete the current record in CUSTOMER table, and also any corresponding records in TASK table.

When I press delete once, it deletes the current record in both recordsets.

But when I press delete again to delete the next record it says
"Cannot delete record (in Customer) as a related record is required in TASK".

Does this mean that one of the recordsets are not being updated and if so how do I fix this?

Here is my code so far:

Code:
Private Sub cmdDelete_Click()

Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseServer 'originally was adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:TestSystem.mdb;"

Dim X As Integer 'Check to make sure update was correctly selected, or if mistake
X = MsgBox("Delete current record?", vbYesNo, "Confirm changes")
If (X = 6) Then

Dim taskRs As Recordset
Set taskRs = New Recordset

Dim sqltask As String

sqltask = ("DELETE FROM TASK WHERE TaskID='" & txtTaskID & "'")

taskRs.Open sqltask, db, adOpenStatic, adLockOptimistic

With taskRs
.Delete
.MoveNext
If .EOF Then .MoveLast
End With

End With

Else
customerRS.CancelUpdate

End If

End Sub
Thanks for any help

How To Sent Listbox Items To Other Items?
I would like to know, how I can sent the listbox items from one listbox ("LIST1") to another listbox ("LIST2") and clear the selected items from list1?

Add More Items To A Listbox And Keep The Old Items
I have a value in a listbox. But I wanna add more items into the listbox and keep the old items. The new items should be added to the right side of the old values on the same row separated with VbTab.

To Delete Or Not Delete That Worksheet
That is the question I wish wasn't asked... So is there any way to delete a worksheet programmatically without getting the dialog wish asks you whether or not you wish to delete the sheet. I appreciate any help I can get.

Menu Items..how To Work The Items Within The Menu!!
Lets say i had a menu that said "FILE" for the menu label and the objects within are "Greetings" "Credits"

Or whatever.. something to where you can function the items in the menu.

How To Do Items
I have been working on an RPG engine for quite some time and have come to a problem from a design stand point: I don't know how to do my items. I have a user defined var type for each PC (player charector) and was originaly going to just have the item names be in a giant string, seperated by a comma, and an other for the quantity. But now that my experiance with this thing called windows (rather then DOS) has gone up, I think there MUST be a better way to it then that. I don't want to use a matrix, because that would make it realy hard to remove an item from the middle of the list.

Should I use a listbox (as a variable) or a collection of some sort, or is this wrong also?

Thanks

# Of Items In .txt
Hello group, How can check how many recods from .txt file i am getting ?
Is there a way to insert everything into an Access table in text format ?

Code:
Private Sub Command4_Click()
On Error Resume Next

Dim fs As New Scripting.FileSystemObject
Dim ts As Scripting.TextStream
Dim gOut As Outlook.Application
Dim mOut As Outlook.MailItem
Dim strLine As String
Dim aRecord

If fs.FileExists("C:Hrsqd.txt") Then
MsgBox "Exists"
Set ts = fs.OpenTextFile("C:Hrsqd.txt", ForReading)
Do Until ts.AtEndOfStream
strLine = ts.ReadLine
aRecord = Split(strLine, ",")
Loop
Else
MsgBox "Doesn't Exist"

End If
End Sub
Edit by 00100b:
Please use either the [vb] and [/vb] or [code] and [/code] tags when posting code snippets.
Thank you

Add Items
How can i add items to a TreeView?

Vb6 Help (two Items)
I need help on two items:
One item is I'm using a webcam .OCX and the image is in a picture box the webcam is showing but the problems is how can i make the program scan the highest pixel Primarily from a laser pointer From the test of it the laser show's the highest pixel and i need help on making the fourm to find the highest pixel

Another Question i have is how can i control the mouse cursor In the fourm i'm not sure if this can help you out but might well as add it

webcam plug in => VB6 Program start => Webcam Image turns on (video show's up) => Program scan for highest Pixel => PRogram makes the mouse move.

Don't worry about the click i'm not going to use that

Any help would be appreciated
Thanks

-Tech3312-

<3