Mensajes

Replace()

Lee un Tutorial Basico de Basic6

Código (vb) [Seleccionar] Expandir


SelStart = posicioninicial
SelLength = longitud
SelColor = color


Vectores, Arregles o Matriz.

Dim/Public/Private/Static Variable() as tipodatos

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico6.htm

P.D.: Recuerda llevar un control de los indices o despues se te hara pesado el recordar el significadado sobre los indices solo si te es nesesario.

Dulces Lunas!¡.

Hacerlo por etapas:

1ra etapa configuracion (Los campos fuera de tu recuadro rojo)
2da etapa despliegue de campos para insertar los materiales
 En esta etapa, que se tenga un registro visual en la parte superior o inferior.
 Solo contando con los campos en tu caso serian: Codigo, Descripcion, etc
 Para añadir solo bastando con dar enter en el ultimo campo o en un boton, vasiar los campos y volver al campo codigo.
3ra etapa Visualizacion contextual de los datos ingresados (para verificar los datos ingresados y poder corregirlos, de esta forma se evitan errores de dedo).
4ta etapa guardar o procesar los datos (no se si guardas los datos pero bueno no esta demás decirlo).

Seria una forma de ahorrar espacio, se veria Vistoso, Ordenado y el Diseño va por tu cuenta.

P.D.: con etapas puedes tomar como ejemplo los instaladores de programas que se le da siguiente bla bla bla siguiente bla bla bla finalizar, etc.

Dulces Lunas!¡.

mira es

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
DoEvents: Sleep 1200
Text1.Text = "hola!"
DoEvents: Sleep 1233
Text1.Text = "jeje"
DoEvents: Sleep 1212
Text1.Text = "ÑÑÑ"
End Sub


Sleep()
Do while

Código (vb) [Seleccionar] Expandir


shell "cmd /c ipconfig /all > " & app.Path  & "'\datosred.txt",vbHide


o sea
yo lo que quiero saber es xq en uno se usa la funcion call y en el otro se lo hace de otra forma?
se puede hacer de cualquier forma?

es sencillo call esta hecho para procesos que por ende no devuelven valores de ningun tipo en vb6 pero las funciones si las devuelven y al llamarlas estas pueden devolver un valor , aunque ambas en este caso son funciones la de grabar no devuelve dato alguno por ello se puso call pero al leer la funcion devuelve un valor segun el caso sea en esas dos funciones

leerini <-- devuelve un valor
grabarini <. no devuelve pero igual puede ser llamada que leerini pero no se guardaria el valor leeido en ningun lugar se perderia.

Código (vb) [Seleccionar] Expandir


public function mensaje() as string
   mensaje="hola"
end function

private sub form_load()
   msgbox mensaje ' te dira Hola
   call mensaje ' se perdera lo que devuelve dicha funcion xS
   mensaje ' se perdera lo que devuelve dicha funcion xS
end sub


P.D.: hay que ver mejor el codigo por ejemplo este



Dulces Lunas

alguien q me oriente com funciona FindWindowLike

SALUDOA

Esta pagina te orientara mas de lo nesesario, y si no entiendes nada de ingles usa un traductor como por ejemplo el de google:

http://allapi.mentalis.org/apilist/

igual esta:

http://support.microsoft.com/kb/147659

y por si fuera porco aun que sea revisa la MSDN de la pagina de microsoft

[ListboxEx de Leandro Ascierto]

Para el ordenado puedes usar Bubble Sort:

Este codigo es sacado del ListboxEx de Leandro Ascierto, te lo pongo por su sencilles (Es Relentisimo con muchos datos a ordenar pero se comprende bien).

Código (vb) [Seleccionar] Expandir


Public Enum EnuListOrder
   AcendetOrder = 0
   DecendentOrder = 1
End Enum

Public Sub Sorted(Order As EnuListOrder)
    Dim Itm as string
   Dim J As Long
   Dim i As Long

   If Order = AcendetOrder Then
       For J = 0 To mCount - 2
           For i = 0 To mCount - 2
               If Item(i) > Item(i + 1) Then
                   Itm = Item(i + 1)
                   Item(i + 1) = Item(i)
                   Item(i) = Itm
               End If
           Next i
       Next J
   Else
       For J = 0 To mCount - 2
           For i = 0 To mCount - 2
               If Item(i) < Item(i + 1) Then
                   Itm = Item(i + 1)
                   Item(i + 1) = Item(i)
                   Item(i) = Itm
               End If
           Next i
       Next J
   End If

End Sub


Dulces Lunas!¡.