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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 [20] 21
191  Foros Generales / Sugerencias y dudas sobre el Foro / Encuestas en: 8 Septiembre 2005, 12:09 pm
Como se pueden hacer encuestas en el foro
192  Programación / Programación Visual Basic / Expulsar cd en: 8 Septiembre 2005, 12:08 pm
Bueno pues eso que como expulso la bandeja del cd. Lo mismo que si tu le das en mi pc con el boton derecho al cd te pone expulsar y se abre el lector, como puedo hacer eso
193  Programación / Programación Visual Basic / Re: Explicacion en: 4 Septiembre 2005, 17:36 pm
Option Explicit
Public Brojo, Bverde, Bazul As Integer
Public Frojo, Fverde, Fazul As Integer


Private Sub cmdSalir_Click()
   End
End Sub

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


Private Sub hsbColor_Change(Index As Integer)
   If optColor(0).Value = True Then
      lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
      Dim i As Integer
      For i = 0 To 2
         txtColor(i).Text = hsbColor(i).Value
      Next i
   Else
      lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
      For i = 0 To 2
         txtColor(i).Text = hsbColor(i).Value
      Next i
   End If
End Sub

Private Sub optColor_Click(Index As Integer)
   If Index = 0 Then  'Se pasa a cambiar el fondo
      Frojo = hsbColor(0).Value
      Fverde = hsbColor(1).Value
      Fazul = hsbColor(2).Value
      hsbColor(0).Value = Brojo
      hsbColor(1).Value = Bverde
      hsbColor(2).Value = Bazul
   Else               'Se pasa a cambiar el texto
      Brojo = hsbColor(0).Value
      Bverde = hsbColor(1).Value
      Bazul = hsbColor(2).Value
      hsbColor(0).Value = Frojo
      hsbColor(1).Value = Fverde
      hsbColor(2).Value = Fazul
    End If
End Sub


alguien me puede decir para que son los fragmentos subrayados, e que el programa tambien funciona perfectamente sin ellos.

PD: No he usado la funcion code, porque con ella no puedo subrayar
194  Programación / Programación Visual Basic / Formularios en: 4 Septiembre 2005, 10:53 am
si tengo un programa con varios formularios como puedo elegir cual debe ser el primero en mostrarse
195  Programación / Programación Visual Basic / Division en: 4 Septiembre 2005, 08:25 am
Como puedo hacer que visual basic haga una division y me muestre el resto en un label (lo de la division se como hacerlo, pero lo del label no)
196  Programación / Programación Visual Basic / Formularios en: 3 Septiembre 2005, 23:17 pm
Hola lo que queria saber es como puedo llamar a un formulario desde otro, es decir, yo tengo un programa con varios formularios, he creado un menu archivo con tres opciones, una cierra el programa y las las otras dos deben llamar a otro formulario, llamado por ejemplo frmAñadir y frmBuscar, como puedo conseguir que desde el for mulario en que estoy a traves del menu archivo como he dicho , llamar a esos formularios
197  Programación / Programación Visual Basic / Re: Explicacion en: 2 Septiembre 2005, 09:51 am
no, si la calculadora ya la he hecho, y el curso ese es el que yo tengo. Pero como hay no explica crei que no venia
198  Programación / Programación Visual Basic / Explicacion en: 1 Septiembre 2005, 19:59 pm
Hola, estoy haciendo un curso de visual basic 6.0 y tengo un problema, hay que hacer un programa, qeu es el siguiente:

Que cambia el color del fonfo y del texto.
y esto es lo que da el curso (es la solucion, para que veamos como funciona). Estos son los objetos:

y Este el codigo:
Option Explicit
Public Brojo, Bverde, Bazul As Integer
Public Frojo, Fverde, Fazul As Integer
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
Brojo = 0
Bverde = 0
Bazul = 0
Frojo = 255
Fverde = 255
Fazul = 255
lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)
lblCuadro.ForeColor = RGB(Frojo, Fverde, Fazul)
End Sub
Private Sub hsbColor_Change(Index As Integer)
If optColor(0).Value = True Then
lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _
hsbColor(2).Value)
Dim i As Integer
For i = 0 To 2
txtColor(i).Text = hsbColor(i).Value
Next i
Else
lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, _
hsbColor(2).Value)
For i = 0 To 2
txtColor(i).Text = hsbColor(i).Value
Next i
End If
End Sub
Private Sub optColor_Click(Index As Integer)
If Index = 0 Then ’Se pasa a cambiar el fondo
Frojo = hsbColor(0).Value
Fverde = hsbColor(1).Value
Fazul = hsbColor(2).Value
hsbColor(0).Value = Brojo
hsbColor(1).Value = Bverde
hsbColor(2).Value = Bazul
Else ’Se pasa a cambiar el texto
Brojo = hsbColor(0).Value
Bverde = hsbColor(1).Value
Bazul = hsbColor(2).Value
hsbColor(0).Value = Frojo
hsbColor(1).Value = Fverde
hsbColor(2).Value = Fazul
End If
End Sub.


Por favor que alguien me explique paso a paso que hace cada linea, es que en el curso no lo pone, y me esforzado en comprenderlo, pero no lo entiendo, ya he resuelto otros ejercicios, por favor ayudarme a seguir.
199  Programación / Programación Visual Basic / Visual Basic 6.0 o .Net en: 31 Agosto 2005, 20:07 pm
Beuno pues eso en que se diferencian y cual de los dos es mejor
200  Programación / Ingeniería Inversa / Descompilador en: 13 Agosto 2005, 20:57 pm
Alguien sabe algun descompilador de Visual basic 6.0 Pero quiero uno que me muestre el código en Visual Basic, no en ensamblador.
Páginas: 1 ... 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 [20] 21
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines