Visual Basic

Steven St. John wrote:

I understand that using a collection would be a bad idea because of boxing/unboxing issues, but I was given to believe List(Of T) does not suffer this penalty.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
        ' place code here to check if a new record has been added to the database<br />
End Sub

Private Sub cmdUpdate_Click()<br />
  On Error GoTo UpdateErr<br />
<br />
   Dim db As Database<br />
   Set db = OpenDatabase("c:\microsoft visual studio\vb98\openaccts.mdb")<br />
     <br />
   Dim rs As Recordset<br />
   Set rs = db.OpenRecordset("prices", dbOpenDynaset)<br />
     <br />
'Edit record and show new prices.<br />
<br />
       rs.Edit<br />
      <br />
       rs.Fields("1b") = txtFields(0)<br />
       rs.Fields("2b") = txtFields(1)<br />
       rs.Fields("2r") = txtFields(2)<br />
       rs.Fields("3a") = txtFields(3)<br />
       rs.Fields("3s") = txtFields(4)<br />
       rs.Fields("as") = txtFields(5)<br />
       rs.Fields("br") = txtFields(6)<br />
       rs.Fields("bs") = txtFields(7)<br />
       rs.Fields("fd") = txtFields(8)<br />
       rs.Fields("ms") = txtFields(9)<br />
       rs.Fields("os") = txtFields(10)<br />
       rs.Fields("ts") = txtFields(11)<br />
       rs.Fields("tu") = txtFields(12)<br />
       rs.Fields("ws") = txtFields(13)<br />
      <br />
       rs.Update<br />
     <br />
'Change prices on PRODUCT form.<br />
<br />
       frmprdm!txt1b.text = rs.Fields("1b")<br />
       frmprdm!txt2b.text = rs.Fields("2b")<br />
       frmprdm!txt3a.text = rs.Fields("3a")<br />
       frmprdm!txt3u.text = rs.Fields("3s")<br />
       frmprdm!txtas.text = rs.Fields("as")<br />
       frmprdm!txtbr.text = rs.Fields("br")<br />
       frmprdm!txtbs.text = rs.Fields("bs")<br />
       frmprdm!txtfd.text = rs.Fields("fd")<br />
       frmprdm!txtms.text = rs.Fields("ms")<br />
       frmprdm!txtou.text = rs.Fields("os")<br />
       frmprdm!txtts.text = rs.Fields("ts")<br />
       frmprdm!txttu.text = rs.Fields("tu")<br />
       frmprdm!txtws.text = rs.Fields("ws")<br />
     <br />
  Exit Sub<br />
UpdateErr:<br />
  MsgBox Err.Description<br />
End Sub

Dim answers() As String = { "Bleu", "Red", "Black" }

For I As Integer = 0 To answers.Length - 1
 ListBox1.Items.Add((I + 1).ToString() + ". " + answers(I))
Next

Dim I As Integer
Dim answers(2) As String
    
answers(0) = "Bleu"
answers(1) = "Red"
answers(2) = "Black"
    
For I = 0 To UBound(answers)
 List1.AddItem CStr(I + 1) + ". " + answers(I)
Next I

Private data As String() = {"One", "Two", "Three", "Four"}

Public Sub New()
	InitializeComponent()
	addhandler listBox1.format, addressof listBox1_Format
	listBox1.DataSource = data
End Sub

Private Sub listBox1_Format(sender As Object, e As ListControlConvertEventArgs)
	Dim list As IList = DirectCast(DirectCast(sender, ListBox).DataSource, IList)
	Dim idx As Int32 = list.IndexOf(e.ListItem)
        ' format as "1. One",  "2. Two" etc
	e.Value = String.Format("{0}. {1}", idx + 1, e.ListItem)
End Sub

listBox1.Format += New ListControlConvertEventHandler(listBox1_Format)

addhandler listbox1.format, addressof listbox1_format