Cambiar valores a los controles desde un Listbox

[SγиtαxEяяoя]

Hola mi pregunta es 

Desde un ListBox puedo cambiar los valores de un Timer..
me explico



En un Timer tengo este codigo...

Private Sub Timer1_Tick (Bla... Bla...)
Tick1 += 1
        If Tick1 = 5 Then 'Estos son los tiempos en que cambia de una tecla a otra
            SendKeys.Send("1")
        End If
        If Tick1 = 15 Then 'Estos son los tiempos en que cambia de una tecla a otra
            SendKeys.Send("2")
        End If
        If Tick1 = 25 Then 'Estos son los tiempos en que cambia de una tecla a otra
            SendKeys.Send("3")
        End If

Entonces mi pregunta es... si a los Item's del listbox les proporciono algo asi como esto




No se si me explico bien lo que trato de hacer y si no se puede no hay problema

[Eleкtro]

Pues yo no lo entiendo, porque lo que defines como propiedades no son propiedades, la pregunta es bastante confusa,
de todas formas te hice un ejemplo:

Básicamente debes comprobar el índice del item que está seleccionado en el listbox, hay un evento que maneja eso, y ahí ya haces lo que desees...

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Dim Items() As String = {"Time 1", "Time 2", "Time 3"}
   Dim WithEvents ListaTime1 As New ListBox, ListaTime2 As New ListBox

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       For Each item In Items : ListaTime1.Items.Add(item) : ListaTime2.Items.Add(item) : Next
       Me.Controls.Add(ListaTime1) : Me.Controls.Add(ListaTime2)
       ListaTime1.Dock = DockStyle.Left : ListaTime2.Dock = DockStyle.Right
        Me.Size = New Point(280, 100)
   End Sub

   Private Sub Listas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles _
                                                                             ListaTime1.SelectedIndexChanged, _
                                                                             ListaTime2.SelectedIndexChanged
       Select Case sender.SelectedIndex
           Case 0 : MsgBox(sender.SelectedItem)
           Case 1 : MsgBox(sender.SelectedItem)
           Case 2 : MsgBox(sender.SelectedItem)
           Case Else
       End Select

   End Sub

End Class

Salu2

[SγиtαxEяяoя]

mira gracias por el ejemplo lo voy a intentar...

a lo que me refiero basicamente es esto...

Crear un ListBox y cada item de dicha lista tenga un tiempo (Tick) ya definido

caso tal que si al seleccionar el item del listbox se lo proporcione al timer

no se si me estoy explicando bien

[Eleкtro]

1. Crea una variable numérica de tipo Long que contiendrá ms (por poner un ejemplo)

Código [Seleccionar] Expandir

Dim ms as int64 = 0

2. En el select case del ejemplo aumentas o disminuyes el valor de la variable como quieras, cada "case" es para cada uno de los items.

Código [Seleccionar] Expandir

Case 0 : ms +=5
Case 1 : ms +=10
Case 2 : ms +=15
Esa es la parte donde más cuidado has de tener.

3. Por último modificas el intervalo del timer por los ms que contiene la variable que contiene la variable que hemos creado.

Código [Seleccionar] Expandir

timer1.interval = ms

slaudos!

[SγиtαxEяяoя]

No.. no es lo que esperaba :/

creo que es algo complicado de explicarte, me resigno

[XresH]

No.. no es lo que esperaba :/

creo que es algo complicado de explicarte, me resigno

Te juro que no logro comprenderlo aún =/

Al parecer no es cosa solo mia, el ejemplo de Electro está bien, se me ocurrió otras cosas pero seguimos en la misma che, a ver si logramos ayudarte no hay que resignarse xD

Para mi si algo queres hacer programando, podes, si tu imaginación lo quiere 

Saludos.

[SγиtαxEяяoя]

Bueno.. ya tengo una idea mas clara de lo que quiero lograr