Counting clicks in a listbox....

vipbus7

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

Killer42

Quote:

Originally Posted by vipbus7

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.

Expand|Select|Wrap|Line Numbers

 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.

Counting clicks in a listbox....

re: Counting clicks in a listbox....

re: Counting clicks in a listbox....

re: Counting clicks in a listbox....

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about