Foro de elhacker.net

Hola mi pregunta es  :huh: :huh:

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

(http://i.imm.io/17WJy.png)

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

(http://i.imm.io/17WJU.png)


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

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...

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

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

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

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.
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.

slaudos!

No.. no es lo que esperaba :/

creo que es algo complicado de explicarte, me resigno

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

(http://i.imm.io/17XQS.png)

(http://i.imm.io/17XQV.png)

(http://i.imm.io/17XQW.png)