elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 ... 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 [132] 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147
1311  Programación / Programación Visual Basic / Aquí mi primera aplicación, medianamente seria ^^ en: 10 Noviembre 2006, 21:46 pm
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
1312  Programación / Programación Visual Basic / Re: Eliminar Texto Seleccionado De Un ListBox en: 10 Noviembre 2006, 21:33 pm
Al final he podido solucionarlo de esta manera:

Código:
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
1313  Programación / Programación Visual Basic / Eliminar Texto Seleccionado De Un ListBox en: 10 Noviembre 2006, 19:58 pm
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
1314  Media / Multimedia / Re: problema nero vision en: 10 Noviembre 2006, 15:06 pm
Nada, me he reinstalado los codecs y sigo igual...

Código:
01001101 01100001 01101100 01100100 01101001 01110100 01101111 01110011 00100000 01100001 01101100 01100101 01101101 01100001 01101110 01100101 01110011....

que podrá ser?
1315  Media / Multimedia / Re: problema nero vision en: 10 Noviembre 2006, 14:50 pm
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
1316  Media / Multimedia / problema nero vision en: 10 Noviembre 2006, 08:11 am
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
1317  Programación / Programación Visual Basic / Re: Barritas de colores RGB para cambiar el color del nombre y fondo de un label en: 9 Noviembre 2006, 22:48 pm
Venga, alfin descubrí, con muchas vueltas sacarlo yo solo ^^.

Aquí todo el código:

Código:
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

1318  Programación / Programación Visual Basic / Re: Barritas de colores RGB para cambiar el color del nombre y fondo de un label en: 9 Noviembre 2006, 21:32 pm
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
1319  Programación / Programación Visual Basic / Re: Dos dudas. TextBox en: 9 Noviembre 2006, 15:29 pm
Bueno, esta ya es la ultima respuesta que posteo en este post, lo siento, is te han parecido tonterias o preguntas n00b
1320  Programación / Programación Visual Basic / Re: Dos dudas. TextBox en: 9 Noviembre 2006, 07:53 am
Si, funciona a la perfect., mejor no me complico más, que para una simple calculadora ^^.
Páginas: 1 ... 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 [132] 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines