Guest User

Untitled

a guest
Jul 16th, 2018
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.15 KB | None | 0 0
  1. Public Class Form1
  2.     Dim test1(2) As test
  3.     Dim objtest As New ComboBox
  4.  
  5.     Private Sub ListView1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListView1.DoubleClick
  6.         Dim test As Integer = Integer.Parse(ListView1.SelectedItems(0).Text)
  7.         If test1(ListView1.FocusedItem.Index).id = test Then
  8.             With test1(ListView1.FocusedItem.Index)
  9.                 MessageBox.Show(.id & " " & .name)
  10.             End With
  11.         End If
  12.     End Sub
  13.  
  14.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  15.         'populate control
  16.         Dim random As New Random
  17.         Dim num(2) As String
  18.         Dim name() As String = {"bill", "joe", "Steve"}
  19.         Dim c As Integer
  20.         Dim itm As ListViewItem
  21.         c = 0
  22.         Do
  23.             num(0) = random.Next(0, 5)
  24.             num(1) = random.Next(0, 5)
  25.             num(2) = random.Next(0, 5)
  26.             itm = New ListViewItem(num)
  27.             ListView1.Items.Add(itm)
  28.             test1(c) = New test() With {.id = num(0), .name = name(c)}
  29.             c += 1
  30.         Loop Until c = 3
  31.     End Sub
  32. End Class
Add Comment
Please, Sign In to add comment