Visual Basic

Puneet Bhatnagar wrote:

DesiredTask: I want to add both these strings to 0th Index of cboProject and at the same point of time hide the text followed by "," i.e hide India.

Public Class TheData
   'Public for simplicity but should be properties
   Public firstString As String
   Public secondString As Sting
   
   Public Overrides Function ToString() As String
      return firstString
   End Function
End Class

Dim d As TheData = new TheData()
d.firstString = "Puneet"
d.secondString = "India"
me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Dim d As TheData = New TheData()
   Me.cboProject.BeginUpdate()
   d.firstString = "Duke"
   d.secondString = "USA"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Alice"
   d.secondString = "England"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Bob"
   d.secondString = "Australia"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Duncan"
   d.secondString = "Scotland"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   d = New TheData()
   d.firstString = "Puneet"
   d.secondString = "India"
   Me.cboProject.Items.Insert(0, d)  ' or me.cboProject.Items.Add(d)

   Me.cboProject.EndUpdate()
End Sub

Private Sub CboProject_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboProject.SelectedIndexChanged
   GetProjectID()
End Sub

Public Sub GetProjectID()
   Dim d1 As TheData = New TheData()
   d1 = CType(Me.cboProject.SelectedItem, TheData)
   RichTextBox1.Text = d1.secondString
   RichTextBox1.Text = RichTextBox1.Text & "   " & d1.firstString
End Sub

jayacc wrote:

subject: visual basic