Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - Ironhorse

#61
Otra opcion es pasarle como parametro al ejecutable la cantidad de instancias que se van llamando:


Private Instancias As Long

Private Sub Form_Load()
  Instancias = Val(Command)
  Instancias = Instancias + 1
  If Instancias < 2 Then
   Shell (App.Path & "\" & App.EXEName & " " & Instancias)
  End If
End Sub



Saludos
#62
O si no podrias usar el control MaskEdBox con esta mascara:
###.###.###.###

saludos
#63
Programación Visual Basic / Re: cronometro
22 Marzo 2006, 19:34 PM
No es necesario complicarse tanto con la conversion de horas, ya que se pueden hacer operaciones matematicas con variables de tipo DATE ya que se manejan internamente como reales.
Tendrias que definir 2 variables, una para la hora y otra para el intervalo que le restas:


Dim Hora, Intervalo as Date

Private Sub Form_Load()
  Hora = Timevalue("2:59:59")
  Intervalo = Timevalue("00:00:01")
End sub

Private Sub Timer1_Timer()
  Hora = Hora - Intervalo
  Label1 = Format(Hora, "HH:mm:ss")
End Sub


Saludos
#64
No se si funciona en VB 5 pero la funcion para dar formato a una variable es format, seria asi:


salida =  Format (numero, "#.00")


Tiene una utilidad enorme, para fechas, numeros, etc.

saludos
#65
Con que motor estas trabajando? porque los caracteres comodin para el LIKE en la mayoria de los motores de BD son % y _ (el '%' es como '*' y el '_' es como '?'), por lo menos en los que he trabajado: Oracle, SQL Server, MySql, Informix

Saludos
#66
Con un array, ahi va el ejemplo:


Dim Cadena, Num() As String
Dim i As Long
  Cadena = "010511"
  ReDim Num(Len(Cadena) / 2)  'Redimensiono el array con la        cantidad de elementos que voy a guardar
  For i = 1 To Len(Cadena) Step 2
    Num((i - 1) / 2) = Mid(Cadena, i, 2)
  Next i


Saludos
#67
En principio si tenes 12 checkbox vas a tener que usar dos digitos para todos los numeros, ej 01, 05, 11. La funcion Len te devuelve la longitud de la cadena. 
Por ejemplo si cadena tiene "010511", la variable num va a tomar los valores 01, 05 y 11.


For i=1 to len(cadena) step 2
  num = mid(cadena, i,2)
Next i


#68
Programación Visual Basic / Re: Obtener Path
23 Febrero 2006, 18:49 PM
Citar
tiene que haber otra forma, xq tiene que ser algo agil.

No creo, fijate que cuando buscas un archivo desde el explorador de windows, lo hace recorriendo todo el disco.
Creo que hay una funcion para indexar el contenido del disco rigido pero nunca la probé.

#69
Programación Visual Basic / Re: Obtener Path
22 Febrero 2006, 23:52 PM
No creo que haya otra forma que recorriendo el arbol de directorios.

Saludos
#70
Programación Visual Basic / Re: Row
22 Febrero 2006, 21:00 PM
Supongo que estas hablando de un control grid, no? Si es asi tenes dos propiedades: grid.rows te da la cantidad de filas y grid.cols la cantidad de columnas.