Counting clicks in a listbox....

[vipbus7]

Have a counter in place, however, it isn't correctly counting clicks in a listbox...help....

[Killer42]

Have a counter in place, however, it isn't correctly counting clicks in a listbox...help....

I think you need to provide us more details about the situation. For instance, what version of VB are you using? And what have you done so far, which isn't working?

One possible problem is variable "scope" (check your VB doco). If you create a variable in the Click event procedure, for example, then it only exists until you exit from that procedure. Next time you execute the procedure, it will be created from scratch again, and won't have the value you left there before.

That's just one possibility, of course. Without knowing more about what you're doing, I can't say whether it actually is the problem.

[vipbus7]

I am using VB 5....here is the code I have in place so far...counter isn't showing correct number of times someone has selected something in the ListBox via a msgbox...the number does change, however, it is never correct.

Option Explicit On
Option Strict On
Imports System.Data
Public Class Form1
    Dim dt As New DataTable()   'First step in filling data table with data from database.
    Dim dt1 As New DataTable()
    Dim counter As Integer = 0
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e _
        As System.EventArgs) Handles Button2.Click
        MsgBox(counter & " cities were looked at.", 0, "City Count")
        End
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e _
    As System.EventArgs) Handles Me.Load
        'Open a connection to the database
        Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=LOSSPROPERTIES.MDB"
        Dim sqlStr As String = "SELECT * FROM Properties"
        Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)
        dataAdapter.Fill(dt)
        dataAdapter.Dispose()
        ListBox2.DataSource = dt
        ListBox2.DisplayMember = "property"
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub
    Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
       'Load data from the Countries table into second data table
        Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=LOSSPROPERTIES.MDB"
        Dim sqlStr As String = "SELECT * FROM Counties"
        Dim dataAdapter As New OleDb.OleDbDataAdapter(sqlStr, connStr)
        dataAdapter.Fill(dt1)
        dataAdapter.Dispose()
        TextBox1.Text = CStr(dt.Rows(ListBox2.SelectedIndex)("sales"))
        TextBox1.Text = TextBox1.Text
        TextBox1.Text = FormatNumber(TextBox1.Text, 2)
        For i As Integer = 0 To dt.Rows.Count - 1
            Do While CStr(dt1.Rows(counter)("County")) <> _
            CStr(dt.Rows(ListBox2.SelectedIndex)("county"))
                counter = counter + 1
            Loop
            TextBox2.Text = CStr(dt1.Rows(counter)("sales"))
            TextBox2.Text = TextBox2.Text
            TextBox2.Text = FormatNumber(TextBox2.Text, 2)
            Dim popPercent As Double
            Dim devPop, ctyPop As Double
            devPop = CDbl(TextBox1.Text)
            ctyPop = CDbl(TextBox2.Text)
            popPercent = CDbl(devPop / ctyPop)
            TextBox3.Text = ("The percentage of the population of " & _
                                CStr(dt.Rows(ListBox2.SelectedIndex)("properties")) & " to the population of " & _
                                CStr(dt.Rows(ListBox2.SelectedIndex)("county")) & " is: " & FormatPercent(popPercent))
        Next
    End Sub
End Class

[Killer42]

I can guarantee you, that is not VB5 code. Presumably you must mean VB 2005.

Anyway, I'll have a look through it as soon as I have a chance.