• Viernes 29 de Marzo de 2024, 00:27

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - ferhn

Páginas: [1]
1
DirectX / DirectX
« en: Viernes 8 de Agosto de 2008, 19:54 »
Donde puedo descargar el sdk para DirectX7 o superior

2
Software / Correr programa..?
« en: Viernes 8 de Agosto de 2008, 19:48 »
Solo queria saber si hay alguna manera de correr visual basic 6.0 en ubuntu... e oido q se puede pero no se como...

3
Visual Basic para principiantes / Mostrar Errores en Formulario de Ocx
« en: Viernes 8 de Agosto de 2008, 18:32 »
Un Ejemplo en un formulario tengo dos label una llamada lblmsj y otra llamada lblError ademas en el formulario tengo una OCX que contine un texto llamado txtNum, como haga para que cada vez que mofique txtNum me muestre ese valor en lblmsj y que cuando en txtNum ingrese cualquier dato que no sea numerrico lblError.Caption me muestre "El valor debe ser numerico"......????   :(

4
Visual Basic para principiantes / Pregunta....
« en: Viernes 8 de Agosto de 2008, 18:23 »
En un formulario tengo un txt llamado txtAA y quiero q al ingresar cualquier numero me lo muestre tambien en otro txt llamando txtA que esta dentro de una OCX q hice dentro del mismo formulario  tengo lo siguiente:
Código: Text
  1.  
  2. 'En el Formulario
  3. Private Sub txtAA_Change()
  4.     ucFormula1.A = Me.txtAF.Text   'Para llamar a la ocx llamada ucFormula1
  5. End Sub
  6.  
  7. 'En la OCX
  8. Dim iA as String
  9. Public Property Get A() As String
  10.     A = Val(iA)
  11. End Property
  12.  
  13. Public Property Let A(ByVal vA As String)
  14.     If IsNumeric(vA) Then
  15.         If Val(vA) >= 0 And Val(vA) < 1000 Then
  16.             iA = vA
  17.         Else
  18.             iA = 1
  19.         End If
  20.     Else
  21.         iA = 1
  22.     End If
  23. End Property
  24.  
  25.  

Cuando modifico txtAA no me lo muestra en txtA, pero si modifico txtA si lo muestra en txtAA y debe ser en ambos lados igual otro problema que tengo es q dentro de txtAA debe ser un numero entre 0 y 1000 ahi estoy bien pero en txtA q esta en la Ocx debe ser entre 1 y 799 en la ocx tengo lo siguiente:
Código: Text
  1.  
  2. Private Sub txtA_Change()
  3.     If txtA.Text >= 0 And txtA.Text <= 799 Then
  4.         iA = txtA.Text
  5.     Else
  6.         txtA.Text = Val(txtA.Text)
  7.     End If
  8. End Sub
  9.  
  10.  

No se cual es el problema, les agradeceria si ayudan a saber en que me estoy equivocando.....  :wacko:

5
Visual Basic para principiantes / Shalom Help
« en: Martes 22 de Julio de 2008, 07:48 »
Hola que tal estoy creando un programa el cual tiene ayuda este ayuda la hice en el "Shalon Help" pero no se como hacer para llamarla desde visual basic al presionar f1, si pueden dar alguna idea se los agradeceria mucho.... :huh:

6
Visual Basic para principiantes / List
« en: Martes 17 de Junio de 2008, 08:27 »
Hola no se como hacer para que....
Al presionar doble click en un numero de la lista, debera llamar a un procedimiento determinado "Restar" de un clase llamada "Enlace", enviando como parametro el numero al q se le dio click...  Hasta el momento tengo lo siguiente

Código: Text
  1.  
  2. Private Sub lisNumeros_DblClick()
  3.    
  4.     Call Enlace.Restar(Me.lisNumeros.List(listNumeros.ListIndex))   '--&#62; Aqui creo q tengo el error
  5.        
  6.     'Aqui debe quitar de la lista el numero seleccionado
  7.     '   .List es un arreglo que contiene todos los numeros agregados a lisNumeros
  8.     '   .LisIndex indica la posicion (o indice) que esta seleccionada
  9.  
  10. End Sub
  11.  
  12.  
  13.  

Esto es una pequeña parte de un programa no se q esta mal aca xq no me sale, si tienen alguna sugerencia les agradeceri mucho... Gracias

7
Visual Basic para principiantes / No Tengo Claro...
« en: Jueves 12 de Junio de 2008, 18:00 »
Hola estoy trabajando con un formulario y una clase para hacer un reloj el codigo del formulario me lo dan y a partir de el hago la clase pero esta parte del formulario no la entiendo muy bien, me gustaria q me ayudaran de antemano les agradezco..

Código: Text
  1.  
  2. Private Sub txtHora_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
  3.     Call Seleccionar(txtHora(Index))
  4. End Sub
  5.  
  6. Private Sub txtHora_Click(Index As Integer)
  7.     Call Seleccionar(txtHora(Index))
  8. End Sub
  9.  
  10. Private Sub txtHora_GotFocus(Index As Integer)
  11.     Call Seleccionar(txtHora(Index))
  12. End Sub
  13.  
  14. Private Sub txtJornada_Click()
  15.     Call Seleccionar(txtJornada)
  16. End Sub
  17.  
  18. Private Sub txtJornada_GotFocus()
  19.     Call Seleccionar(txtJornada)
  20. End Sub
  21.  
  22. Private Sub txtJornada_KeyUp(KeyCode As Integer, Shift As Integer)
  23.     Call Seleccionar(txtJornada)
  24. End Sub
  25.  
  26. Private Sub Seleccionar(Texto As TextBox)
  27.     With Texto
  28.         .SelStart = 0
  29.         .SelLength = Len(.Text)
  30.     End With
  31. End Sub
  32.  
  33.  

Gracias

8
Visual Basic para principiantes / Que Hace Esto,,?
« en: Viernes 6 de Junio de 2008, 21:53 »
Hola soy nuevo programando y no entiendo completamnete q hacen estos if:

If InStr(1, txtHora(Index), ".") > 0 Then
            KeyAscii = 0
 End If
               
If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
End If

Páginas: [1]