Mensajes

[Descarga Aquí]

Descarga Aquí[/b][/size]

Bueno, la pongo para que la veais, y me digais que tengo mal y a ser posible como solucionarlo para una nueva versión.

Ya se que no es gran cosa, pero como he dicho es mi primera aplicación seria.

Contiene:

Calculadora
Mediadora (para hacer la media, no sabia que nombre ponerle ^^)
Por ciento (para calcular el por ciento de algo)
Grados (para ver los grados de las escalas Centigrados, Fahrenheit y Kelvin)

Proximamente, pondré más cosas y mejores.

El color predominante de la aplicación es el verde-negro y un poco de blanco (por lo botones).

Desde ya os puedo decir algo que tengo mal y es que la barra de los grados la tengo invertida y no se como cambiarlo.

Bueno gracias

Al final he podido solucionarlo de esta manera:

Código [Seleccionar] Expandir

Private Sub cmd3_Click()
Dim i As Integer
For i = 0 To Lista.ListCount - 1
    If Lista.Selected(i) = True Then
        Lista.RemoveItem (i)
        Exit For
    End If
Next i
End Sub


Bueno gracias

[xDie, estubo a punto de solucionarme la duda]

Que conste que ya he buscado (por eliminar listbox) y de los tres posts que salieron, xDie, estubo a punto de solucionarme la duda, pero al final, no lo resolvieron.

Bueno, solamente es eso, me gustaria poder eliminar desde un commandbutton el elemento seleccionado de un listbox.

Gracias

Nada, me he reinstalado los codecs y sigo igual...

Código [Seleccionar] Expandir

01001101 01100001 01101100 01100100 01101001 01110100 01101111 01110011 00100000 01100001 01101100 01100101 01101101 01100001 01101110 01100101 01110011....

que podrá ser?

Es un avi, en DivX, normal y corriente, de casi 700 MB (como una pelicula mas o menos normal) y que más... pues pone que es un clip de video.

Lo que mas me ha extrañado y j0d1d0 es que no me dice, error por esto..., sino, me da una afirmación.

Bueno, aquí pongo la foto:



Bueno, voy a probar reinstalando todos los codecs, auque no tengo mucha esperanza.

A la pregunta de que si se me puede ver y oir bien, respondo que sí, y perfectamente.

Gracias, Saludos

No me deja añadir peliculas, no se porque, porque si meto un vidoe de 2 min y medio, a la hora de meterlo antes de grabar, si que me deja, pero peliculas no.

¿Por que puede ser?

Gracias

Venga, alfin descubrí, con muchas vueltas sacarlo yo solo ^^.

Aquí todo el código:

Código [Seleccionar] Expandir

Option Explicit
Public Brojo, Bverde, Bazul As Integer
Public Frojo, Fverde, Fazul As Integer

Private Sub Salir_Click()
   End
End Sub

Private Sub Form_Load()
   Brojo = 0
   Bverde = 0
   Bazul = 0
   Frojo = 255
   Fverde = 255
   Fazul = 255
   Label1.BackColor = RGB(Brojo, Bverde, Bazul)
   Label1.ForeColor = RGB(Frojo, Fverde, Fazul)
End Sub

Private Sub Barra1_Change(Index As Integer)
   If OptColor(0).Value = True Then
      Label1.BackColor = RGB(Barra1(0).Value, Barra1(1).Value, Barra1(2).Value)
      Dim i As Integer
      For i = 0 To 2
         Text(i).Text = Barra1(i).Value
      Next i
   Else
      Label1.ForeColor = RGB(Barra1(0).Value, Barra1(1).Value, Barra1(2).Value)
      For i = 0 To 2
         Text(i).Text = Barra1(i).Value
      Next i
   End If
End Sub

Private Sub OptColor_Click(Index As Integer)
   If Index = 0 Then
      Frojo = Barra1(0).Value
      Fverde = Barra1(1).Value
      Fazul = Barra1(2).Value
      Barra1(0).Value = Brojo
      Barra1(1).Value = Bverde
      Barra1(2).Value = Bazul
   Else
      Brojo = Barra1(0).Value
      Bverde = Barra1(1).Value
      Bazul = Barra1(2).Value
      Barra1(0).Value = Frojo
      Barra1(1).Value = Fverde
      Barra1(2).Value = Fazul
    End If
End Sub



Si, en parte tenia eso el problema, que no ponia bien el nombre de los objetos, pero no por un descuido mio, si no por que tenia que crear una matriz de nosequé, para poder poner el mismo nombre a varias cosas, ya me entienden.

Ahora me falla una cosa, que no se que quiere decir,

Cuando le doy a iniciar, para ver el proyecto que he creado, me dice:

Error de compilación, procedimiento Sub o Función, no definido.

Y se me pone en amarillo esto:

Private Sub OptColor_Click(Index As Integer)

¿Que me puede fallar?

Gracias, saludos

Bueno, esta ya es la ultima respuesta que posteo en este post, lo siento, is te han parecido tonterias o preguntas n00b

Si, funciona a la perfect., mejor no me complico más, que para una simple calculadora ^^.