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)
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.
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.
timer1.interval = ms
slaudos!
No.. no es lo que esperaba :/
creo que es algo complicado de explicarte, me resigno
Cita de: SyntaxError404 en 1 Junio 2013, 22:07 PM
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 :xD
Saludos.
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)