Error with command button

Visual Basic Programming

Dev Shed Forums Sponsor:

Dell PowerEdge Servers

January 8th, 2003, 06:51 PM

Z BO

Contributing User

Join Date: Jan 2002

Posts: 44

Time spent in forums: 5 h 21 m 14 sec
Reputation Power: 7

Error with command button

I have 2 command buttons 1 that add's to a list that goes like:

Code:

 Private Sub Command1_Click()
lstwindows4.AddItem Text1.Text
Text1.Text = ""
End Sub

Which works fine and does what i want - but I have another command button which when clicked should delete an entry from the list if selected:

Code:

 Private Sub Command2_Click()

ty = lstwindows4.ListCount
For ber = 0 To ty - 1
lstwindows4.ListIndex = ber
If lstwindows4.Text = Text2.Text Then
lstwindows4.RemoveItem ber
Text2.Text = ""
Exit Sub
End If
Next ber
Text2.Text = ""
End Sub

it does not seem to delete from the list?

any help is appreciated

January 8th, 2003, 09:30 PM

Onslaught

/(bb|[^b]{2})/

Join Date: Nov 2001

Location: Somewhere in the great unknown

Posts: 4,827

Time spent in forums: 1 Day 22 h 57 m 29 sec
Reputation Power: 88

Try something like this:

Code:

    cnt = lstListName.ListCount
    For cntr = 0 To lstListName.ListCount - 1
        If txtTextField = lstListName.List(cntr) Then
            lstListName.RemoveItem cntr
            txtTextField = vbNullString
            Exit Sub
        End If
    Next

This will effectively remove an entry from a listbox where it matches the text field value.

__________________
Joe

How To Ask FAQ | How To Be A Hacker | Hacker Mindset | A FreeBSD Diary

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Error with command button

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Accelerating Trading Partner Performance
One in five. That's how many partner transactions have at least one error. That is an amazing statistic, particularly given the extraordinary leaps in innovation across the global supply chain during the past two decades. Download this white paper to learn more.

Competing on Analytics
This Tech Analysis is designed to help identify characteristics shared by analytics competitors, and includes information about 32 organizations that have made a commitment to quantitative, fact-based analysis.

Cost Effective Scaling with Virtualization and Coyote Point Systems
An overview of the industry trend toward virtualization, how server consolidation has increased the importance of application uptime and the steps being taken to integrate load balancing technology with virtualized servers.

Five Checkpoints to Implementing IP Telephony
Implementation planning for IP PBX software and IP telephony has become vital as businesses replace discontinued legacy PBX phone systems. This informative whitepaper outlines five "checkpoints" for any implementation plan that will help make IP communications a successful proposition.

Hosted Email Security: Staying Ahead of New Threats
In the last two years, email has become a fierce battleground between the nefarious forces of spam and malware, and the heroes of messaging protection. The spam volumes increased alarmingly every month, bringing clever new forms of phishing and virus propagation attacks.

More Free IT White Papers!