' ////////////////////////////////////////////////////////////////
' // *Autor: Elemental Code (Milton.Candelero@gmail.com)        //
' // *El codigo se puede cambiar todo lo que quiera siempre y   //
' // cuando se respete la autoria.                              //
' // *Funcion: Hace que el texto cambie cada 150ms y cree un    //
' // efecto de "Ondulacion"                                     //
' ////////////////////////////////////////////////////////////////
 
Option Explicit
Dim TextoA As String
Dim TextoB As String
Public Function Cargar_Texto_Con_Onditas(Texto As String, Cantidad As Integer, Relojito As Timer)
    Relojito.Enabled = False
    Dim ia As Integer
    Dim ib As Integer
    Dim OnditaA As String
    Dim OnditaB As String
 
    For ia = 0 To Cantidad
        OnditaA = OnditaA & ".·"
    Next
    For ib = 0 To Cantidad
        OnditaB = OnditaB & "·."
    Next
    TextoA = OnditaA & Texto & OnditaB
    TextoB = OnditaB & Texto & OnditaA
 
    Relojito.Interval = 150
    Relojito.Enabled = True
End Function
 
Public Function Timer_Texto_Con_Onditas(salida As Label)
    If salida.Caption = TextoA Then
        salida.Caption = TextoB
    Else
        salida.Caption = TextoA
    End If
End Function
 

---

NOTA IMPORTANTE:
El texto ".·" y "·." deben ser reemplazados por ".·" y "·." respectivamente ya que el foro me elimino esos caracteres especiales.


--> Que Hace?
Agrega a un texto unos puntos en movimiento que le dan un efecto de ondeado similar al que se aprecia en "Cactus Metamorph"

---

--> Como se Usa?
En un formulario poner una label (Preferentemente con Autosize = True) y un Timer (se pueden poner otros controles pero lo basico es eso.)

En el evento load se llama a la siguiente funcion:
Donde:
"Texto" sera la palabra a la cual se le agregara "onditas"
"Cantidad" sera la cantidad de "Onditas"
"Relojito" Sera el nombre del control del Timer que se utilizara.

En el evento on timer (el mismo timer que se especifico en "Relojito") se llama a la siguiente funcion:
Donde:
"Salida" es la Label o etiqueta adonde aparecera el resultado.

---

Es muy dificil mostrarselos en un ejemplo ya que la onda es que cambia.


Es la primera "Funcion" que hago y por eso esta Horrible

advance-VB

Siempre me da dolor de cabeza 

No soy tan Pro 

Me veo en la obligacion de decir...

Kirby!!!!!.



PD: Mi "Logo" esta basado en Kirby

enserio?
Tnes el link a mano?

Estaria bueno verlo.

Ya resolvi mi problema aunque no pude usar un Drivebox use un ComboBox

 
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
 
Private Sub lista()
    Dim NumDisco As Integer
    Dim letradisco As String
 
    For NumDisco = 0 To 25
        letradisco = Chr(NumDisco + 65) & ":\"
        Letrasola = UCase(Chr(NumDisco + 65))
        Label1.Caption = Letrasola
 
        senal = GetDriveType(letradisco)
 
 
        If senal = 2 Then
           Combo1.AddItem letradisco
        End If
    Next
End Sub
 

Si quieren cambiar el tipo de unidad que se muestra es asi:

If senal = 2 Then

1 y 2 =No Instalado
2 = Extraible
3 = Fijo (Disco Duro)
4 = Remoto
5 = CD o DVD
6 = RAMDISK


Codigo Adaptado desde :

---

wiiii que felicidad, Puedo ser Util

Open Rec For Output As #1: Close: SetAttr Rec, vbHidden: SetAttr Rec, vbReadOnly

eso asi solamente dejaria el archivo como Read Only y no como oculto.

para que ande es asi:

SetAttr Rec, vbHidden OR vbReadOnly OR vbSystem

(lo de sistem lo agregue yo porque tambien le añade un poco de seguridad.

Saludos

el problema es imageshack.
a muchos no le anda.

Proba con Tinypic.com

y la que tenes que poner es el enlace directo a la imagen
(el que termina con .jpg)

me costo entender como andaba asi que voy a explicarlo otra vez. 

Si en la caja de texto escribo


y llamo a la funcion como

MsgBox Text_Between_Words(Text1.Text, "Codigo", "Esto")

me responde:


Esta bueno pero si lo hiciste vos porque esta en ingles el mensaje de error :S...

Ademas. Para que sirve??

Muy bueno para aprender como usar el instr que no sabia que existia y para practicar pero no entendi del todo para que sirve 

Toda la onda

para estas vacaciones de invierno tngo que ir a buenos aires por razones de salud (de mi hermanita no mias) y estaba por comprarme esta notebook

http://www.eagleinformatica.com.ar/product_info.php?cPath=42&products_id=454&osCsid=78db56c9a61bc87d492b9f069321c1ed

No me parece muy cara pero ustedes siempre saben mas que yo

diganme si es caro, barato si hay mejores peores, muestren su envidia, etc.

---

Pregunte en otros lados y me dijeron que era un choreo y que en dell conseguia lo mismo a mitad de precio asi que me fije y no hay mucha diferencia :S

http://i45.tinypic.com/ye5vs.jpg

---

Muchas gracias por su atencion y si esto no se puede hacer pido perdon