Teoria de la programacion

Empezar desde lo basico esto es de donde empieza la programacion, se los recomiendo esta muy bueno:

http://www.aprender-informatica.com/teoria-de-la-programacion/cursos-de-informatica-teoria-de-la-programacion-introduccion.php

les dejo el link por que se mira mas bonito ahi

curso vb6 con practicas y videos

Bueno yo se que visual basic 6 ya esta pasado ahora es vb.net pero da igual para los que quieran checar este cursillo que esta completo...
tiene:
manuales
videos
practicas
hay ustedes lo realizan asi aprenden mas

aca les dejo los links:

1 bimestre: http://www.educailo.com/mcc/course/view.php?id=2
2 bimestre: http://www.educailo.com/mcc/course/view.php?id=3

Aprender] a usar WebBrowser (Básico) by hackmin

Bueno amigos de M-H hoy aprenderemos a usar el componente WebBrowser, la verdad que es bastante fácil...


Antes que nada tendremos que poner el complemento Microsoft Internet Controls

Por si alguien no sabe ponerlo..





Luego pon así el form como muestra la imagen, 4 comandos y un texto




y ya por ultimo ponemos el webrowser en nuestro form

Código:

Private Sub cmdgo_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub
Private Sub cmdback_Click()
WebBrowser1.GoBack
End Sub
Private Sub Cmdforward_Click()
WebBrowser1.GoForward
End Sub
Private Sub cmdrefresh_Click()
WebBrowser1.Refresh
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate ("http://www.google.com")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = (WebBrowser1.LocationURL)
Form1.Caption = (WebBrowser1.LocationName)

Bueno el código es muy fácil creo que con un traductor de google (si no sabes ingles) te dice para que sirve xP

Ej: navigate = navegar

Bueno chic@s cualquier duda ponerla que hare todo lo posible por ayudar


Saludos

Web con 36 Skins para VB6

Les dejo esta web con 36 skins para Viseal Basic para que le agreguen un mejor estilo a sus programas.

Código:

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/207-listado-de-36-skins-para-vb.htm

saludos

[Tutorial] Aprender a usar if by hackmin

Bueno vamos a aprender a usar If... empecemos

Abrimos vb6 y presionamos EXE estándar...

Bien entonces vamos hacer un proyecto y a medidas que vamos avanzando explicare cada linea..

El proyecto sera que vamos a poner un texto que al presionarlo muestre el precio dentro de un label(bastante básico pero bastante fácil de comprender y eso es lo que cuenta)...


Bueno colocamos un textBox y borramos el contenido dentro que esta en la propiedad text

colocamos 3 labels y los colocamos abajo del todo y quitamos su propiedad caption y ponemos los siguientes:

Caption label1: Balón (Atención cuidado con las mañusculas ponedlo todo igual que yo)
Caption Label2: Raqueta
Caption Label3: Ordenador

Ahora colocamos un commandButton al lado del textBox y modificamos solo la propiedad caption poniendo:
Mostrar Precios

Luego abajo de Mostrar precios ponéis otro label y en la propiedad caption de dicho label la quitáis y no pongáis nada..

Bien, ahora llego la parte del código, para ello damos doble clic a Mostrar precios (CommandButton)
y escribimos lo siguiente:

Código:

Private Sub Command1_Click()
If Text1.Text = "Balón" Then
Label4.Caption = "Balón"
End If
If Text1.Text = "Raqueta" Then
Label4.Caption = "Raqueta"
End If
If Text1.Text = "Ordenador" Then
Label4.Caption = Ordenador
End If
End Sub

Bien ahora modifiquemos los 3 labels de abajo..osea los 3 labels con los caption = Balon,Raqueta y ordenador

Bueno empezamos con Balón: Damos doble clic a Balón

Código:

Private Sub Label1_Click()
Text1.Text = "Balón"
End Sub

Ahora con Raqueta:

Código:

Private Sub Label2_Click()
Text1.Text = "Raqueta"
End Sub

Ahora con Ordenador:

Private Sub Label3_Click()
Text1.Text = "Ordenador"
End Sub

Bien ahora amos hacer correr la aplicación dandole a tecla f5
denle clic a Balón o raqueta o ordenador y veréis que pasa y luego denle a Mostrar precio...

Como veis funciona correctamente.

vamos a explicar los códigos..

Private Sub Command1_Click

Aquí le estamos diciendo que al hacer click en command1 haga lo siguiente osea todo el código que viene a continuación... osea el objeto separado con _ del evento que en este caso es click

Código:

If Text1.Text = "Balón" Then

Bueno aquí si lo traducimos seria asín: Si Text1.text = "Balon" Entonces... (y ahora continuamos con el siguiente trozo)

Código:

Label4.Caption = "Balón"

Entonces atendiendo a la explicación anterior seria: If text1.text = "Balon" Entonces label4.caption = "Balon" entonces estamos diciendo que si text1.text tiene como text Balón pues se muestra en el label4.caption el nombre de Balón


Atención: Hay una cosa que no e puesto en el código y es ELSE esto sirve para cuando la condición sea falsa pues lo que haría si fuese Falsa..

y ya lo demás ya lo debéis de entender si no es asín decirmelo que lo pongo no hay problema..

Saludos y espero que os halla gustado en el próximo tema hablaremos de Select Case :D

[Aprender] Usar DateAdd,CDate y DateDiff by hackmin

Bueno explico esto para la gente que lo quiera aprender. ;-)

bueno primero antes que nada que es DateAdd?

DateAdd --> DateAdd(intervalo, número, fecha)

El argumento intervalo puede tener los siguientes valores:

Código:

Valor  Descripción
yyyy  * * * * Año
q  * * * * Trimestre
m  * * * * *Mes
y  * * * Día del año
d  * * * Día
w  * * * Día de la semana
ww  * * * Semana del año
h  * * * Hora
n  * * * Minuto
s  * * * Segundo

Código:

El argumento numero es asi:
Constante Valor Descripción
vbUseSystem 0 Usa valores de API de idioma nacional (NLS).
vbSunday 1 domingo (valor predeterminado)
vbMonday 2 lunes
vbTuesday 3 martes
vbWednesday 4 miércoles
vbThursday 5 jueves
vbFriday 6 viernes
vbSaturday 7 sábado

y esto es una pequeña información para que lo entendais mejor:

Observaciones

Puede utilizar la función DateAdd para sumar un intervalo de tiempo especificado a una fecha o restárselo. Por ejemplo, puede utilizar DateAdd para calcular una fecha de 30 días a partir de hoy o una hora de 45 minutos desde ahora. Para agregar días a fecha, puede utilizar el Día del Año ("y"), Día ("d") o Día de la semana ("w").

La función DateAdd no devolverá una fecha que no sea válida. El siguiente ejemplo suma un mes al 31 de enero:

NewDate = DateAdd("m", 1, "31-ene-95")
En este caso, DateAdd devuelve 28-feb-95, no 31-feb-95. Si fecha es 31-ene-96, devuelve 29-feb-96 porque 1996 es un año bisiesto.

Si la fecha calculada fuera anterior al año 100, se produciría un error.

Si el número no es un valor Long, se redondea al número entero más cercano antes de evaluarse.

Bueno el CData --> bueno para que lo entiendas es por ejemplo

Código:

MiFecha *= "19 de Octubre de 1962" * ' Define una fecha.
MiFechaCorta = CDate(MiFecha ) * * * *' Convierte en tipo de datos Date.
MiHora = "4:35:47 PM" * * * * * * *' Define una hora.
MiHoraCorta = CDate(MiHora) * * * *' Convierte en tipo de datos Date.

DateDiff --> Esto seria así

Código:

DateDiff(intervalo, fecha1, fecha2[,primerdíadelasemana[,primerasemanadelaño]])

 y bueno los argumentos de arriba te sirven...


Bueno espero a ver aclarado mucho y ahora para terminar este tutorial pues voy a poner un ejercicio para tener mas base...

Colocar un control TextBox llamado Text1
un control Command llamado Command1.
En el Text1 escribir una fecha:

Código:

Option Explicit *
Private Sub Form_Load() *
 * *Text1 = " Escriba una fecha para calcular el númerode días de un mes " *
End Sub *
 *
 *
Private Sub Command1_Click() *
 *
Dim Fecha_1 As Date *
Dim Fecha_2 As Date *
 *
 * *Fecha_1 = CDate(Text1) *
 * *Fecha_2 = DateAdd("m", 1, Fecha_1) *
 * * *
 * *' Muestra los días *
 * *MsgBox " Este mes tiene : " & Format$(DateDiff("d", Fecha_1, Fecha_2)) *
 *
End Sub *

Saludos :beach:

[Aprender] como poner varios idiomas a tu proyecto by hackmin

Bueno amigos/as si queréis poner tu proyecto con idioma diferente es muy fácil lo explico a continuación.

Código:


<?xml version="1.0"?>

<lenguajes languaje="tuLenguaje">

  <NombreDelForm>

    <label>

      <NombreDelObjeto property='caption' backcolor='FF2287'>Tu texto</NombreDelObjeto>

    </label>

  </NombreDelForm>

</lenguajes>

<lenguajes languaje="Lenguaje2">

  <NombreDelForm>

    <textbox>

      <NombreDelObjeto property='text' backcolor='FF22BB' index='2'>Tu texto</NombreDelObjeto>

    </textbox>

  </NombreDelForm>

</lenguajes>



Eso es para la gente ordenada jejej solo le teneis que ir poniendo mas lenguajes y modiicarlo a vuestro gusto.

luego hay otra forma y es la forma mas "habitual" de hacerlo


crea un nuevo proyecto y pon 2 labels y un comando..

bueno el label1 tendrá como caption = Hasta luego
y el label2 tendrá como caption = hola

y ahora darle doble clic al comando..

y ahora pon esto:

Código: 

label1.caption = "Hello"
label2.caption = "bye"

Si lo quieres en aleman pues pon otro comando pero para alemán y así

la propiedad caption cambia lo que tiene dentro en el label1 y lo cambia a "Hello"
y lo mismo pasa el label2

¿que pasa con este método?
Pues que se ve desordenado pero eso con paciencia se resuelve..

Saludos

[VB6 ]T ransparent Form Example(TRansparencia en vb6)

[VB6 ]T ransparent Form Example

Coder:┌∩┐(◣_◢)┌∩┐



Lo primero es lo primero agregue un módulo al proyecto y luego pegan el siguiente codigo

Citar

    Option Explicit

    Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
    Private Declare Function UpdateLayeredWindow Lib "user32" (ByVal hWnd As Long, ByVal hdcDst As Long, pptDst As Any, psize As Any, ByVal hdcSrc As Long, pptSrc As Any, crKey As Long, ByVal pblend As Long, ByVal dwFlags As Long) As Long
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

    Private Const GWL_EXSTYLE = (-20)
    Private Const LWA_COLORKEY = &H1
    Private Const LWA_ALPHA = &H2
    Private Const ULW_COLORKEY = &H1
    Private Const ULW_ALPHA = &H2
    Private Const ULW_OPAQUE = &H4
    Private Const WS_EX_LAYERED = &H80000

    Public Function isTransparent(ByVal hWnd As Long) As Boolean
    On Error Resume Next
    Dim Msg As Long
    Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
    If (Msg And WS_EX_LAYERED) = WS_EX_LAYERED Then
      isTransparent = True
    Else
      isTransparent = False
    End If
    If Err Then
      isTransparent = False
    End If
    End Function

    Public Function MakeTransparent(ByVal hWnd As Long, Perc As Integer) As Long
    Dim Msg As Long
    On Error Resume Next
    If Perc < 0 Or Perc > 255 Then
      MakeTransparent = 1
    Else
      Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
      Msg = Msg Or WS_EX_LAYERED
      SetWindowLong hWnd, GWL_EXSTYLE, Msg
      SetLayeredWindowAttributes hWnd, 0, Perc, LWA_ALPHA
      MakeTransparent = 0
    End If
    If Err Then
      MakeTransparent = 2
    End If
    End Function

    Public Function MakeOpaque(ByVal hWnd As Long) As Long
    Dim Msg As Long
    On Error Resume Next
    Msg = GetWindowLong(hWnd, GWL_EXSTYLE)
    Msg = Msg And Not WS_EX_LAYERED
    SetWindowLong hWnd, GWL_EXSTYLE, Msg
    SetLayeredWindowAttributes hWnd, 0, 0, LWA_ALPHA
    MakeOpaque = 0
    If Err Then
      MakeOpaque = 2
    End If
    End Function

A continuación, agregue un formulario y llama al modulo con el siguiente codigo agregandolo en su proyecto

Citar

    Code:
    Private Sub Form_Load()
    MakeTransparent Me.hWnd, 100
    End Sub

pueden cambiar el valor de transparencia desde 0 hasta 255 y que funciona para todos los otros controles, etc añadido en el formulario y formularios saludos..

Fuente: http://www.anonimosx.net/index.php/topic,1245.0.html

[tutorial] Las variables parte1 by hackmin

Bueno amigos aquí explicaremos lo que son las variables


los tipos de datos podían ser numéricos o de caracteres. Pero dentro de los numéricos, tenemos cuatro tipos básicos: enteros, enteros largos, simples y dobles. Cada uno de ellos tienen unas capacidades determinadas, además de ocupar más memoria o menos, (ahora lo veremos), lo más importante es que los números enteros y entero largo sólo admiten números enteros (de ahí sus nombres), es decir que no admiten decimales. Sin embargo los otros dos si admiten decimales.
Estas capacidades puedes encontrarlas en el manual del basic o en la ayuda, lo que a mi me interesa que sepas es cómo poder indicarle al Visual Basic que reserve ese espacio de memoria para un tipo determinado. Ya te he dicho que el espacio que ocupa en memoria es diferente para cada uno de estos tipos

Tipo entero, Espacio ocupado 2 bytes tipo de declaración Integer,ejemplo:Dim Numero as integer

Tipo:Entero,Espacio ocupado 4 bytes tipo de declaración Long,ejemplo:Dim numero as Long

Tipo:Simple,Espacio ocupado 4 Bytes , tipo de declaración Single,ejemplo: Dim numero as single

tipo:Doble, Espacio ocupado 8 bytes,tipo de declaración: Double,Ejemplo: Dim numero As double

En el caso de las variables que van a guardar nombres (cadenas de caracteres), se deben declarar como String y el espacio que ocupa será 4 bytes más un byte por cada caracter que tenga, en el caso de VB de 32 bits realmente ocupará 2 bytes por cada caracter que tenga.
La longitud máxima de una variable del tipo String será de aproximadamente 32.000 caracteres y la forma de declararla será:
Dim Cadena As String
Una vez declarada podemos asignarle la cantidad de caracteres que queramos (sin pasarnos) y cuantas veces queramos.
Hay que tener en cuenta que en cualquier variable sólo se queda el último valor asignado.. bien mirad esto para que lo entendáis:

Código:

Dim Número As Integer
Número = 5
Print Número
Número = 12
Print Número

En este ejemplo, el último valor almacenado en Número es el 12. El 5 que tenía en un principio se perdió.
Pero, ¿que tengo que hacer para sumarle una cantidad al valor almacenado en una variable?
Es decir, ¿cómo incrementar el valor de una variable numérica?
La respuesta la tienes en cómo se manejan las expresiones y las asignaciones a las variables.Al asignar a una variable una expresión, primero se calcula la expresión y una vez obtenido el resultado, se asigna a la variable. otro ejemplo

Código:

Dim N As Integer
Dim M As Integer
N = 10
M = N * 3
Print M

El resultado de este programa sería 30, que es lo que resulta de multiplicar 10 por 3
y el ejercicio anterior se podría simplificar poniendo:

Código:

N = N * 3
Print N

También obtendríamos 30.Ya que cuando el Basic calcula la expresión de la derecha del signo igual, N vale 10, una vez obtenido el resultado del cálculo lo asigna a la variable de la izquierda del signo de asignación, sin importarle lo más mínimo de que variables es y como en este caso hemos usado la misma, pues se queda el último valor, perdiéndose el que originalmente estaba "guardado". Esto es útil cuando necesitamos "contar" de forma secuencial, para así incrementar el valor de una variable.

Ahora vamos a ver como podemos manejar las cadenas de caracteres es decir las variables de tipo String.
Con estas variables ocurre lo mismo que con las numéricas, pero la única operación que podemos realizar es la suma.Realmente una suma en una cadena de caracteres es "pegar" dos cadenas en una sola.
Por ejemplo si hacemos esto: N = 3 + 2. El valor obtenido es 5 y eso es lo que se guarda en N.
Sin embargo con los strings hacer esto: Cadena = "A" + "B", se guardará "AB", es decir se unirán las dos cadenas en una sola. Para este tipo de operación se recomienda usar mejor el signo &. Que entre otras cosas le indica al Visual Basic que lo que pretendemos hacer es unir dos cadenas, no sumarlas.
Aunque "teóricamente" no se pueden sumar cadenas, sólo con-catenarlas, veremos cómo podemos llegar a producir "problemillas" de entendimiento entre el VB y nuestras "mentes poderosas". jejeje

Como te he comentado al principio el tipo de datos Variant acepta de todo, números, nombres, etc.
Si no le indicamos de forma correcta al VB cual es nuestra intención, podemos confundirle y hacer que el resultado de algo que nosotros dábamos "por hecho", al final se convierte en un pequeño caos para nuestras pobres mentes.
Vamos a verlo con un par de ejemplos, en estos casos: (al no indicarle de que tipo son las variables, el Basic entiende que nuestra intención es usar el tipo Variant)

Código:

Dim Num1
Dim Num2
Num1 = 5
Num2 = 3
Num1 = Num1 + Num2
Print Num1

¿Que imprimirá? Pruébalo y saldrás de duda. Bueno, imprimirá un 8.
Ahora veamos este otro ejemplo:

Código:

Dim Num1
Dim Num2
Num1 = "5"
Num2 = "3"
Num1 = Num1 + Num2
Print Num1

Fíjate que lo que varía es sólo las comillas. El resultado en este caso es 53, es decir ha unido las dos cadenas.
Ahora quita las comillas del 5, para dejarlo así:

Código:

Dim Num1
Dim Num2
Num1 = 5
Num2 = "3"
Num1 = Num1 + Num2
Print Num1

que!!! ¿Que ha pasado? Pues que ha impreso un 8, es decir ha "pasado" de que el tres sea una cadena de caracteres y lo ha tomado por un número...
En esta ocasión, sólo vamos a cambiar la línea de la asignación para dejarla de esta forma

Código:

Num1 = Num1 & Num2

El resultado será 53. Porque le hemos indicado que una las dos cadenas, por tanto al encontrase con esta "operación" ha considerado al número 5 como una cadena, en lugar de un número.
Cambia ahora la asignación del Num2, para que sea: Num2 = 3
Vuelve a mostrar 53, el signo & tiene unos poderes enormes... y a pesar de ser dos números la única operación que puede realizar es la concatenación de cadenas, por tanto el tipo Variant se convierte por arte de magia en cadena.
Pero fíjate si es "fuerte" el poder de convicción que tiene este operador, que aunque cambiemos el tipo de las variables, sigue "convenciendo" al basic que tipo de operación debe hacer. Esto no debería ocurrir así, pero ocurre.

Código:

Dim Num1 As Integer
Dim Num2 As Integer
Num1 = 5
Num2 = 3
Num1 = Num1 & Num2
Print Num1

Sigue mostrando 53, aunque en este caso debería producir un error, ya que un Integer no es una cadena.
Así que "cuidadín" con las operaciones que realizamos. Ya que si añades esta línea:

Código:

Print Num1 * 2

Verás que realmente Num1 tiene guardado un número y el resultado será: 106
Bueno eso fue todo ya pondré la segunda parte

Saludos

Aprende visual basic desde 0 parte2 by hackmin

2.0 Introduccion

2.1 -Decoracion (visual) de exe
2.2 -Movimiento (codigo de fuente) de exe
2.3 -Protector de pantalla
2.4 -ocx, Dlls y apis
2.5 -Repasando Conceptos
2.6 -Control de Errores
2.7 -Trabajando con bases de Datos
2.7.1 -¿Que es una base de datos?
2.7.2 -Asistente de diseño de bases de datos
2.7.3 -Codigo de programacion para agregar registros
2.7.4 -como eliminar registros en la base de datos
2.7.5 -como buscar registros
2.7.6 -codigo para buscar registros
2.8 -Planificacion de un programa

Introducción:
Este tomo es basicamente para saber que son varias cosas para cuando lo nombran saber que es.
En este tomo hablaremos de la decoracion y el movimiento en un exe, para unir todo y crear un protector de pantalla. Les enseñaremos de que sirven los ocx y dlls, y como agregar mas componentes de los que hay.
Les enseñaremos que son el componente WinSock y el commondialog.
Ademas como agregar los menues comunes de Windows como inicio, archivo, formato, ayuda, insertar, etc.

Decoracion
En este tema les enseñare las tacticas para crear un formulario mas lindo a la vista.

Primero hay que saber que casi todos los componentes pueden cambiar de color con su propiedad Backcolor que se usa de la siguiente manera:

Código:

Form1.backcolor = codigo de color

El codigo de color es el codigo que usa vb para mostrar un color
Como por ejemplo &H8000000F ( gris ) y se usaria asi *:

Código:

Form1.backcolor = &H8000000F

Esto cambiaria el color al formulario.
Algunos codigos de color son estos:

&H8000000F (gris)
&H0&        (negro)
&HFFFFFF    (blanco)
&HFF&       (rojo)
&H80FF&     (naranja)
&HFFFF&     (amarillo)
&HFF00&     (verde)
&HFFFF00    (celeste)
&HFF0000    (azul)
&HFF00FF    (violeta)
&H4080&     (marron)

Tambien se puede hacer los labels y otros componentes, transparentes. Esto se hace asín:

label1.backstyle = Transparent

Y opaco:
Código:

Label1.backstyle = Opaque

Pero la letra siempre se ve.

Otra cosa que se le puede hacer a un label es cambiarle el borde:

Lo pondria con linea:
Código:

Label1.borderstyle = 1-Fixed single

Y sin linea de borde:
código:

Label1.borderstyle = 0-None

Ahora pongan un label y prueben los distintos cambios:

Cuando pasas el mouse por arriba de un label o un picture puedes hacer que le sucedan cambios de esta forma:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.backcolor = &H8000000F
End Sub

Private Sub Form_MouseMove --> al mover el mouse por el form

Label1.backcolor = &H8000000F --> cambiar de color el label1

Código:

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.backcolor = &HFF00&     
End Sub

Private Sub label1_MouseMove --> al pasar el mouse por ensima del label

Label1.backcolor = &HFF00& --> cambiar el color del label1

Esto hari *a que al tener el mouse en el formulario el label sea gris y al pasarlo por encima del label se cambiari *a a gris

F5 para ejecutar.

Ahora lo que hagan con el mouse move es su problema y depende de ustedes hacer una buena aplicacion.

Salu2

Movimiento:

En este tema enseñare como hacer movimiento de objetos en un formularios en vb6.0 llegaremos a mover hasta el formulario por la pantalla.

Hay que saber para empezar que los objetos tienen una propiedad que dice la columna y la fila en que esta en la pantalla o formulario.

La propiedad de columna se llama TOP y la de filas se llama LEFT.

Top + 100 haria que el objeto baya hacia abajo
\/
Top - 100 hari*a que el objeto baya hacia arriba
/\
Left + 100 haria que el objeto baya hacia la izquierda
<
Left - 100 hari*a que el objeto baya hacia la derecha
>

Y se usa de esta manera

Código:

Label1.top = label1.top + 100

Label1.top = a si mismo + 100

Direccion
\/
\/

Código:

Label1.top = label1.top - 100

Label1.top = a si mismo - 100

Direccion
/\
/\

Código:

Label1.left = label1.left + 100

Label1.left = a si mismo + 100

Direccion
<<<<

Código:

Label1.left = label1.left - 100

Label1.left = a si mismo - 100

Direccion
>>>>

Y el formulario si nos ponemos a pensar es algo fa¡cil, en vez de poner label1 ponemos form

Código:

form.left = label1.left - 100

form.left = a si mismo - 100

Direccion:
>>>>

Esto puede ir de la mano con un timer

Salu2
Protector de Pantalla:
Bueno mucha gente se pregunta
¿como se hacen los protectores de pantalla?

Pues con un lenguaje de programacion, en este caso vb6.0
En este tema cortito les enseñare como transformar nuestra aplicacion en un protector de pantalla.
Es fa¡cil todo se basa con cambiarle el formato a nuestra aplicacion al generar el exe.
Al ponerle el nombre por ejemplo:

Miprotector

Le tienen que agregar .SCR

Miprotector.scr

Y lo generan como otra aplicacion. Luego lo instalan como cualquier protector de pantalla.

Salu2 

Info general dlls, OCX, y apis :

Bueno con esto nos dedicaremos directamente a explicar que son estas cosas, como usarlas podrian encontrarlo por todos lados (en el momento que lo neseciten) ahora les enseño que es cada cosa y para que sirve.

DLL: las dll para el que no sabe son partes pequeñas de los programas, pueden ser desde el codigo de un mensaje hasta el codigo de un motor de busqueda de un antivirus.
Estos sirven para que no se haga tan pesado un programa, es dividirlo en partes y luego ejecutarlas desde el nucleo del programa (lo que muestra primero o lo que se mantiene siempre en funcionamiento)
Una dll puede ser llamada en cualquier momento del programa y es de uso obligatorio en programas con mucho peso. Ademas de las dll para separar codigos y ordenarlos existen los modulos que son como dll pero estos se encuentran dentro del programa y son mas que nada para organizar el codigo.

OCX: Estos son como dll (se encuentran fuera del programa) la unica diferencia es que no contienen codigo de fuente, son controles como botones mejorados o como el richtextbox (un elemento tipo textbox) estos se llaman usualmente en el principio del programa o en casos al iniciar un formulario.
La malloriÂ*a de los ocx son externos (que quiere decir esto? Pues que lo crean terceros) , estos ocx se pueden descargar desde internet y luego agregar al formulario como un componente. El problema es que a estos hay que registrarlos. ¿como es esto? Facil copias el ocx a
Código:
c:/Windows/sistem/
y luego abres el bloc de notas y escribes lo siguiente
Código:
REGSbr32 c:\windows\system\nombre del ocx.OCX
Y luego lo guardan como .bat y lo ejecutan, si todo salio bien, un mensaje dira seguro que deceas ingresar el registro y le damos a si y luego nos dira registro ingresado con exito.

API: la API de Windows es como una dll pero que viene con Windows, ejemplo podriÂ*amos decir que el msgbox es una api , todas las pc (que tengan Windows) tienen estos componentes otro ejemplo es el beep de Windows

Repasando conceptos:

¿Que es un procedimiento?

un procedimiento es un conjunto de instrucciones que se ejecutan en cierto orden para lograr un objetivo. Los procedimientos constan de un principio y un fin.
Para determinar el principio y el fin de un procedimiento se utilizan palabras clave o reservadas. Estas palabras, al igual que otras instrucciones, deben cumplir con cierto formato, denominado sintaxis. La sintaxis para iniciar y finalizar un procedimiento es:

Código:

SUB nombre-del-procedimiento

 Instruccion a ejecutar

End Sub

Por lo general la instruccion Sub se encuentra precedida por la palabra reservada Private. Esta palabra indica el alcance que tendra el procedimiento. Las palbras mas utilizadas son las siguientes:

Private: significa que el procedimiento solo puede ser utilizado en el modulo de programacion donde se esta creando (osea que si pongo private en el formulario 1 no puede llamarse desde el formulario 2)

Public: al contrario de private, significa que el procedimiento puede ser utilizado en cualquier parte del programa, el procedimiento public llamado alex que fue creado en el formulario 1 se lo puede llamar desde el formulario 2.

La sintaxis es

Private Sub nombre-del-procedimiento

Public sub nombre-del-procedimiento

¿que es una propiedad?

dentro de un procedimiento, por lo general, se hace referencia a los objetos contenidos por el formulario. Un objeto es un control insertado en el formulario y cada objeto posee sus propiedades.
Una propiedad es un valor o caracteristica perteneciente a un objeto de VB por ejemplo un control label el cual tiene la propiedad caption para cambiarle el texto.

sintaxis:

código:

objeto.propiedad = valor

¿Que es un evento?

un evento es una accion que se ejecuta para modificar un objeto de vb sintaxis

Código:
objeto.evento valor

¿que es una variable?

cuando se nesecita guardar datos se utiliza las variables, que guardan informacion para luego ser usada, cada variable tiene su tipo (como ya vimos) integer, string etc.

sintaxis de declaracion:

Código:

Dim nombre-de-mi-variable as tipo

y el uso es :

nombre-de-mi-variable = informacion a agregar

¿que es una funcion?

una funcion es una instruccion que realiza cierto procedimiento y devuelve un valor. Por lo general este valor se guarda en una variable para luego ser utilizado en otra parte del procedimiento.
¿que es un control de error?

un control de error es una instruccion que sirve para que cuando el programa detecta un error en un procedimiento realiza la accion que se avisa en el control de error.

¿como avisar que es lo que quiero que ocurra cuando ocurre un error?

pues para esto existe una linea de comando que se pone al principio del code, llamada Rutina de errores.

sintaxis

Código:

On Error GoTo marcador

en error ir a marcador.

entonces tenemos un code que dice

Código:

private sub command1_click ()
on error goto alex --> linea que dice que si encuentra 

un error se dirija a donde diga alex

mi code 

exit sub --> si todo anda bien y no hay errores, termina el code 

con esta instruccion evitando lo que sigue
alex:    --> si encuentra un error, 

salta el codigo que siga despues del error y se dirige aca, 

entonces salta el exit sub y no termina el code ni manda error 
mi code cuando hay error  ---> cuando esta en alex se continua con el code
end sub --> finalmente esta terminado todo el code del boton command 1

simple, cuando se aprieta el command1 entonces hace nuestro code, pero esperando a encontrar un error, si no lo encuentra sigue con el code.

un ejemplo seria

private sub command1_click ()
on error goto rutina_de_error

alex = text1.text
msgbox "hola " & alex & "bienvenido" 

exit sub
rutina_de_error:

msgbox "ocurrio un error y el programa debe cerrarse"
end 

end sub

esto tiene un error, porque no declaramos la variable alex entonces si la rutina de error no estubiera apareceria un error tipico de vb: "error line 59" o algo parecido, y queda feo para un programa de alto nivel, entonces al estar la rutina de error manda el mensaje "ocurrio un error y el programa debe cerrarse" y luego se cierra, si le sacaramos el end no se cerraria y el codigo sigue, lo que sirve como gran ventaja.

este control de errores es importante y nos puede ayudar de mucho

Trabajando con bases de datos:

en este capitulo nos centraremos en el uso de bases de datos, utilizando Microsoft acces 97. es imprecindible que las bases de datos se guarden en formato de acces 97 de lo contrario no funciona muy bien.

una base de datos es una tabla de informacion otrdenada en columnas y filas.
í‚¿quien nunca hiso una tabla?

----------- |columna |
fila | |
----------- | |

una base de datos se organiza como una tabla, tal cual el excel nada mas que puede servir para almacenar informacion y luego usarla en un programa, como un programa para administrar planillas medicas.

ejemplo

Cliente numero de DNI cantidad de enfermedades

jorge 48.395.461 15
juan 39.154.684 35
bety 34.198.745 12


eso seri*a un formulario de bases de datos de una planilla.
entonces creari*amos un programa con tres textbox que ingrese los datos a la base y balla agregando nuevas personas,
nombre: textbox
num de DNI: textbox
Cant de enf: textbox 

Asistente de diseño de bases de datos:


VB tiene un asistente que posee la posibilidad de crearle un formulario que utilize una base de datos, con este asistente es mucho mas facil crear formularios para utilizar bases de datos.

1. cargamos el asistente para luego usarlo, nos dirigimos al menu complementos, luego elegimos la opcion administrador de complementos, seleccionamos el VB6 DATA FORM WIZARD y le damos a la casilla cargado/descargado, por ultimo le damos a aceptar y estara cargado el asistente.

2. nos dirigimos al menu complementos y veremos que esta el complemento asistente para formularios de datos, abajo de todo. le damos click y se habrira una ventana donde iremos completando los datos, de esta forma es mas facil y rapido crear los formularios.
2.7.3 Codigo de programacion para agregar registros
RecordSet:
Un recordset es un objeto que representa la parte de la base de datos que se esta utilizando el el programa. Por lo tanto, cuando se nesecite realizar agregar, borrar, buscar, etc. se nesecitara hacer referencia al Recordset del objeto Data que se esta utilizando. Por Ejemplo:

Data1.recordset

Un registro es conciderado como agregado cuando por lo menos uno de los campos posee un valor, si agregamos un registro que no tiene ningun campo con por lo menos un dato, no queda registrado

La carga de informacion de un registro es conciderado registrado cuando se hace click en el boton siguiente del objeto Data.

Supongamos que tenemos el formulario hecho con el asistente, entonces le damos click al boton agregar, para que nos muestre el codigo de fuente de ese boton.

La unica instruccion que hay es

Código:

DatPrimaryRS.AddNew

DatPrimaryRS es el objeto Data nombrado DatPrimaryRS, usando el metodo AddNew se visualizaran los campos vacios para que el usuario comience a ingresar un dato

escriba la instruccion TxtFilds(0).SetFocus, esto hace que al apretar el boton, quede seleccionado para escribir el texto en el objeto txtFilds(0), este objeto tiene una matriz de controles, por eso se agrega el (0) para indicar el primer objeto con ese nombre.

ACLARACION:

el AddNew crea un registro vaci*o y espera a que el usuario ingrese datos que con otra instruccion o apretando el boton siguiente, esto se guarda.
si no hay datos no se guarda.



luego modificamos los formularios a nuestro gusto para que quede el diseño que queremos. Como eliminar registros en una base de datos:

Para borrar registros de una base de datos, se debe crear un procedimiento que utilice al objeto Record set junto con el metodo Delete, este metodo permite eliminar el registro que se esta visualizando.

Atencion: cuando se borra un registro no puede ser recuperado, entonces se pierde.

Supongamos que ya tenemos un formulario creado por el asistente.

Haga clic sobre el boton eliminar, este abrira el codigo de fuente de este boton.

como dijimos que si se borra no hay buelta a tras crearemos un mensaje que nos pregunte si estamos seguros de eliminar el registro.

en el code aparece with datPrimaryRS.recordset que es para borrar el registro.
justo arriva de esta linea de code agregaremos una nueva, (la del mensaje)

que diga asi:
Código:

mensaje= msgbox "¿esta seguro de eliminar el registro?" ,

 vbYesNo, "eliminacion de registros"

entonces en la variable mensaje (no hace falta declararla), nos dara la respuesta de lo que apreta el usuario.

ahora ponemos una estructura de desicion, el IF (vease estructuras de desicion)

Código:

If mensaje= vbYes Then

si la respuesta del mensaje es que si quiere eliminar el mensaje entonces:

y ahi ponemos la linea que ya estaba, la linea para borrar:

Código:

with datPrimaryRS.recordset
y terminamos la instruccion con el End If


tenemos algo asi:

Código:

Private Sub cmdDelete_Click ()

Mensaje = MsgBox "¿esta seguro de eliminar el registro?", vbYesNo, "borrar"

If Mensaje =  vbYes then 

With datPrimaryRS.Recordset

.Delete
.MoveNext

If .EOF Then .MoveLast

End With

End If

End Sub

esto hace los siguiente:

Con el metodo .Delete borra el registro
Con el metodo .MoveNext avanza al proximo (una vez que borra el registro)

Código:

If .EOF Then .MoveLast

si End Of File (fin del archivo) entonces mover al principio

End With termina la estructura de desicion With

Exactamente:

apretamos el boton
aparece un mensaje que nos pregunta "¿esta seguro que decea eliminar el registro?"
si apretamos no, entonces se cierra y no pasa nada,
si apretamos Si
el programa borra este registro
avansa al siguiente, si es el ultimo avansa al primero.


PD: Mañana sigo saludos
 

Aprende visual basic desde 0 by hackmin

1.0- VB6 INTRO BASICA
1.1- Empezando con lo basico (visual) de exe
1.2- Empezando con lo basico (codigo de fuente) de exe
1.3- Aprendiendo un poco sobre las variables
1.4- relacionar las variables con objetos (codigo) de exe
1.5- Estructuras de decicion (codigo) de exe
1.6- mejorando nuestro primer programa con estructura (codigo de fuente) de exe
1.7- Msgbox, inputbox, suma, resta , multiplicacion y division entre variables, primer ejersicio (codigo de fuente) de exe
1.8- Como guardar y compilar proyectos (Visual) de exe

para la intro se las hago cortita, porque se que no les gusta leer mucho, por lo tanto intentare ser lo mas corto
posible...

Visual Basic 6.0 es una herramienta editor y compiladora del Lenguage Basic, pero con partes
de edicion visual, lo mas facil... Visual Basic 6.0 parte del grupo visual studios (microsoft)

1.1 Empezando con lo basico (visual)

pues bien, como esto es para no conocedores vamos desde 0000

muy bien, abramos vb6... al principio, de entrada, nos aparecera una ventana titulada nuevo proyecto:
en esta ventana tenemos para elegir, muchas opciones, exe estandar es lo que todos usan.
yo explico todo.

EXE estandar: genera un formulario para hacer una aplicacian comun

EXE active X: esto es una aplicacian, pero especial para controles active x (maneja multimedia)
esta opcion no se usa mucho, con el concepto basico nos alcanza

dll active x: esto es una parte pequeña de un programa, usada para ahorrar espacio en la memoria,
esta opcion nos sirve para hacer pedazos de programas, y de que sirve, pos nos sirve para que cuando
se carga el programa, no tenga que cargar todo el code, sino una parte, y a medida que se valla
nesecitando, se "ejecutan" por decirlo asiÂ* estos pedasitos.

control active x: esto se utiliza para crear componentes, los componentes son ejemplo los botones.

los asistentes: ya se sabe, son opciones que te facilitan ayuda para crear formularios
que no las usaremos, si no este tuto seriÂ*a en vano

y las siguientes opciones, no se nesecitan y no tengo idea de para que sirven XD

ahora empezemos con un EXE (aplicacion comun)
asique denlen click a exe estandar.

ahora, les aparece un formulario, este sera nuestro ambiente de desarrollo de programa

a la izquierda veremos un menu, este nos muestra los componentes, botones, etiquetas, etc

muy bien, cada 1 cumple una funcion.

el cuadradito con un dibujito adentro es un Picture Box (donde se ponen imagenes)

la "A" es para crear una etiqueta denominada label, en esta se escribe algo para que se vea al
ejecutar el programa.

al lado de la "A" tenemos un cuadro de texto (textbox) este es un cuadro donde el usuario podra introducir informacion.

abajo hay un command button (boton) este es el que se aprieta y hace algo.

al lado hay un frame esto es como una ventana dentro del formulario.

abajo de esto hay un check box, en este se tilda con un V y este es para
encuestas o cosas por el estilo.

al lado hay otro que es casi igual se llama Option button, la unica diferencia es que estos pones tres, y solo uno
puede estar tildado, al tildar cualquiera de los tres, los otros se destildan, y
el checkbox no.

abajo del option button hay un list box, este puedes hacer una lista, y que el usuario
vala apretando sobre cada uno de los items y se seleccionen, ideal para base de datos.
(pronto se vera base de datos).

al lado hay otra cosa muy parecida al list box, el combo box. Este no se usa mucho, sirve en el caso de hacer un explorador
como MI PC. abajo hay 2 barras, como la de los buscadores, estas son obias para que funcionan, se las dejo a su vista.

abajo hay como un reloj. Este es el TIMER, bamos a aclarar bien este objeto porque hay muchas dudas.
esto tiene un interval, y hace lo siguiente. Cada X tiempo hace lo que le dijiste.
el tiempo se regula con la propiedad INTERVAL (a continuacion veremos las propiedades)
osea cada 1000 intervalos (equivalentes a 1 segundo) se hace lo que le dijiste.

estos son los objetos primarios. Hay mas que no explique, pero vallamos despacio,
pronto lo explicare.

para insertar uno de estos botones, tienes que hacer click sobre ahy y despues
adentro del formulario haces como si dibujaras un cuadrado con el paint.

bueno, una ves puesto , seleccionemoslo haciendo click sobre el, veran como se selecciona.
ahora vamos al menu ver->ventana de propiedades.
esto nos hara aparecer una ventana nueva.
(a la ventana propiedades, seleccionen la pestaña alfabetica)

explico las propiedades:

los labels ("A") tienen una propiedad nombre, seguramente es la primera
esta indica el nombre que se le asigna al objeto, por ahora no es nescesario cambiarlo
si quieren cambienselo, da lo mismo.

lo siguiente es alignment, si le hacen clic veran que les aparecio un boton con una flechita para abajo. haganle click.
apareceran 3 opciones, esto es porque significa la alineaceon que tiene la letra en el label.

apparance eso no es muy cambiante, lo que hace es cambiarle la forma al label

AutoSize esto es para que si está en true, el label se pone al tamaño de las letras, osea si
haces un label de 10 metros y le escribis 2 letras, no quede semejante espacio, si no que se
ajusta.

Back color: es el color que tiene el fondo

border style: les da vorde o no al label

caption: hay pueden modificar el texto, label1 por algo, y eso aparecera en el label

font: es el formato de la letra.

Fore color: es el color de la letra.

visible: es si esta visible o no.

hice algunos, no todos, si no los mas importantes, algunos se repiten en otros objetos, otros no

en el objeto textbox (al lado de la "A") no existe el label sino que en lugar de llamarse label se llama text

y en el timer hay algo interval, este numero es cambiado por 1000 y cada 1 segundo hara lo que
pida el codgo.

esto es lo visual de esta parte, en el segundo tomo les explicare mas cosas.

salu2

Pack de herramientas msn

Este pack de herramientas para msn contiene las siguientes herramientas:

[+] Flooder by arthusu : Para sacar a contactos del msn

[+] Flood protector by hackbs : este lo que hace es para que no te congelen la cuenta o si esta congelada para descongelarla

[+]chau msn by arhack : este congela la cuenta que quieras siempre y cuando la cuenta este cerrada y el programa abierto, para esto usa el flooder, sacas al contacto y le congelas la cuenta y lo tienes que dejar abierto para que siga funcionando, para desbloquear pues ya sabes xD y lo cierras listo!

Descargar el pack: http://www.megaupload.com/?d=TU5JJEXT

Herramientas totalmente analizadas no traen virus de una ves lo digo xD salu2

Crear instalador con Visual basic 6.0

Hola amigos aca vengo a dejarles un exelente manual de como crear un instalador de algun poryecto creado en visual basic y que deseen instalarlo en otras pc.

Bueno con este manual aprenderan a crearlo es muy sencillo.

El manual esta completamente en español y esta en formato de word y viene con imagenes paso a paso.

aqui les dejo el manual:

http://www.megaupload.com/?d=3MH8YTT0

Si no tienen el visual basic recuerden que lo pueden bajar desde aqui:

http://www.sectorwarez.com.ar/2011/09/visual-basic-60-edicion-empresarial-no.html

Visual basic 6.0 edicion empresarial (no portable)

Lenguaje de programación desarrollado por Alan Cooper para Microsoft. El lenguaje de programación es un dialecto de BASIC, con importantes añadidos. Su primera versión fue presentada en 1991 con la intención de simplificar la programación utilizando un ambiente de desarrollo completamente gráfico que facilitará la creación de interfaces gráficas y en cierta medida también la programación misma.
Desde el 2001 Microsoft ha propuesto abandonar el desarrollo basado en la API Win32 y pasar a trabajar sobre un framework o marco común de librerías independiente de la versión del sistema operativo, NET Framework, a través de Visual Basic .NET (y otros lenguajes como C Sharp) de fácil transición de código entre ellos) que presenta serias incompatibilidades con el código Visual Basic existente.
Microsoft Visual Basic 6.0 es uno de los lenguajes de programación que más entusiasmo despiertan entre los programadores de PC´s, tanto expertos como novatos. En el caso de los programadores expertos por la facilidad con la que desarrollan aplicaciones complejas en poquísimo tiempo (comparado con lo que cuesta programar en Visual C++, por ejemplo). En el caso de los programadores novatos por el hecho de ver de lo que son capaces a los pocos minutos de empezar su aprendizaje.

Descargar: http://www.megaupload.com/?d=BKN15LH4
Link nuevo: http://www.megaupload.com/?d=XNU2RGZ5
tambien lo subi por mediafire pero en 3 partes  :-X
http://www.mediafire.com/?mts8hhhtf576oe5
http://www.mediafire.com/?2t2l6bbxkmrkojp
http://www.mediafire.com/?6o2ff9w551f1uuc

se volvio a caer les traigo nuevo link subido a cuenta premium:
http://www.megaupload.com/?d=8QSBM42E
La clave del Producto es:
112-11111111

Cómo usar el control CoolBar del VB6

En este "artículo" te mostraré cómo usar el control CoolBar para poder tener, entre otras cosas, barras de herramientas al estilo del Explorer y las aplicaciones de Office.

Como ya habrás notado, las barras de herramientas, o ToolBar, tanto del Internet Explorer como el de muchas otras aplicaciones, sobre todo las de Microsoft, te permiten mover y posicionar dichas barras de herramientas de forma "libre", (o casi), esto mismo lo podemos hacer en Visual Basic con el control CoolBar.

Vamos a ver un ejemplo "paso a paso" para poder conseguirlo.
En este ejemplo usaremos dos barras de herramientas, una para operaciones comunes con ficheros: Abrir, Guardar, etc. y otra para las operaciones de edición: Copiar, Pegar, etc.

Para empezar, crea un neuvo proyecto, abre el menú de Proyecto y selecciona la opción Componentes..., te mostrará un diálogo con los controles que podemos insertar. De ese diálogo selecciona estos dos componentes:

-Microsoft Windows Common controls 6.0
-Microsoft Windows Common controls-3 6.0
Nota: Puede que que al final de esos nombres tengas la versión del SP que tengas instalada, en mi caso tengo el Service Pack 4 y me muestra (SP4) después de esos controles.

La primera de esas dos referencias es para los controles ToolBar, TabStrip, ListView, etc.
La segunda es para el control CoolBar.

Añade un control CoolBar al formulario, (haciendo doble click en el icono de la barra de herramientas), selecciona el control recién añadido, (con un simple click ya lo tendrás seleccionado), pulsa F4 para mostrar la ventana de propiedades, (o posicionate en dicha ventana de propiedades, si ya la tuvieras visible), selecciona la propiedad Align e indícale que sea vbAlignTop, para que se posicione automáticamente en la parte superior del formulario.

Añade dos ToolBar, haz doble click dos veces en el icono de la barra de herramientas, de esta forma tendremos dos controles: ToolBar1 y ToolBar2.

Nota: No te preocupes si las dos barras de herramientas están fuera del control CoolBar, más abajo te explico cómo "meterlas" dentro de dicho control.

Añade un control ImageList para insertar las imagenes que usaremos.

Nota: Junto a este texto, se acompaña un fichero ZIP con las imágenes usadas, así como el formulario de prueba.

Las imágenes que he añadido tienen las siguientes claves, con las cuales accederemos a dichas imágenes al añadir los botones a cada una de las barras de herramientas:
Nuevo, Abrir, Guardar, Imprimir, Salir, Copiar, Cortar, Pegar y Deshacer.



Haz lo siguiente para añadir estas imágenes al ImageList:
Selecciona dicho control con el ratón y pulsa el botón secundario, (el derecho), del menú que muestra, selecciona Propiedades y te mostrará la ventana de configuración de las imágenes, (también puedes llegar a este cuadro de diálogo seleccionando Custom... en la ventana de propiedades).
Selecciona la solapa Imágenes, pulsa en el botón Insertar y ve añadiendo las imágenes y escribiendo en Key el nombre que antes he mencionado, ya que esos nombres los usaremos para indicarle en las barras de herramientas que imágenes mostrar en cada uno de los botones.
Al final tendremos algo parecido a esto:



Pulsa en Aceptar (OK).

Ya tenemos las imágenes que usaremos. Vamos a añadir los botones a cada una de las dos barras de herramientas.

Selecciona el control Toolbar1, haz que se muestre el diálogo de configuración, usando cualquiera de los dos métodos explicados anteriormente: Con el botón derecho del ratón/Propiedades o desde la ventana de propiedades, pulsando en el botón Custom...
Te mostrará una serie de listas desplegables, las que nos intereresan ahora mismo son:
ImageList (tendrás que seleccionar ImageList1) y Style (selecciona tbrFlat)



Esta imagen te muestra lo que yo he seleccionado, el resto de valores son por defecto.

Pulsa en la solapa de Botones para añadir los botones de esta barra de herramientas.
En este caso será la destinada al manejo de ficheros (o archivos) y los botones serán:
Nuevo, Abrir, Guardar, Imprimir y Salir.
He añadido un separador entre Guardar e Imprimir y otro entre éste último y Salir.

Cuando añadas los botones, (pulsando en el botón "Insert Button"), tendrás que indicarle el ToolTipText (si quieres) y la imagen que se mostrará, además del valor de Key, (para manipular mejor el botón pulsado):



Para especificar el separador, selecciona el Estilo del botón de la lista Style, el valor será: 3-tbrSeparator.

Una vez añadido los botones, pulsa en Aceptar y a continuación añade los botones a la segunda barra de herramientas:
Cortar, Copiar, Pegar y Deshacer.

Ya tenemos los botones que necesitamos en las barras de herramientas, ahora vamos a ver cómo hacer que dichas barras estén dentro del control CoolBar.

Para poder "incluir" las dos barras de herramientas en el CoolBar, haremos lo siguiente:

Selecciona el control ToolBar1, córtalo, selecciona el control CoolBar y pega el control cortado "dentro" del CoolBar. Haz lo mismo con el ToolBar2. De esta forma conseguimos que esos dos controles sean "hijos" del CoolBar, ahora veremos para qué sirve este "parentezco".

Selecciona el CoolBar (si no estaba ya seleccionado), pulsa en las propiedades para que muestre el cuadro de diálogo de configuración de las "bandas".
En la solapa General no hay que hacer nada, salvo que quieras indicar que la altura es fija, para ello quita la marca de "VariantHeight", (como habrás podido comprobar, estoy usando la versión inglesa del VB, por tanto, es posible que algunas de las opciones que estoy indicando tengan otro nombre en la versión española o castellana).

Pulsa en la solapa "Bands", en la lista desplegable "Child" tendrás los elementos ToolBar1 y ToolBar2.
Para que el ToolBar1 sea el hijo de la banda 1, selecciona esa banda (es la que se muestra al abrir el cuadro de diálogo) e indicale que el ToolBar1 es el "Child" de esa Banda.
Haz lo mismo con la Banda número 2, pero en esta ocasión selecciona ToolBar2.
Para seleccionar cada una de las bandas, (por defecto hay 3), usa los botones de desplazamiento que hay junto al número de banda (el Index).
Si no quieres usar la tercera banda, pulsa en el botón "Remove Band" para borrarla.

¡Y ya está!
Ya tenemos lo que se prentendía.
Pulsa F5 para ejecutar el ejemplo y cuando se muestren las barras de herramientas, (estarán una debajo de la otra), arrástrala a la posición que quieras, en este caso podrán estar las dos juntas o bien una debajo de la otra.

Aquí tienes el resultado de cómo quedarían tanto una debajo de la otra, como una al lado de la segunda:

Para hacer que los botones hagan algo en concreto, tendrás que actuar cómo es habitual con los ToolBars:

'
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "Nuevo"
        ' Nuevo
    Case "Abrir"
        ' Abrir el documento
    Case "Salir"
	Unload Me
    '... etc.
    End Select
    MsgBox "Has pulsado en el botón: " & Button.Key & " del ToolBar1"
End Sub

Si quieres indicar en tiempo de ejecución que esas barras de herramientas son hijas del CoolBar y hacer las asignaciones mediante código, aquí tienes un ejemplo de cómo hacerlo con el ToolBar2. (Se supone que el ToolBar2 no se ha "cortado" y pegado en el control CoolBar)

'
Private Sub Form_Load()
    ' Añadir el ToolBar2 a la colección Child del CoolBar
    '
    ' Primero indicarle que el contenedor es el CoolBar1
    Set Toolbar2.Container = CoolBar1
    ' Asignar este control a la propiedad Child de la banda en cuestión
    Set CoolBar1.Bands(2).Child = Toolbar2
    ' Asignar la posición
    With Toolbar2
        .Align = vbAlignNone
        .Move 150, 0
    End With
End Sub

Espero que te haya sido clara esta explicación y puedas dar looks más profesionales a tus aplicaciones.

Para bajarte el código de ejemplo así como las imágenes usadas, pulsa en este link. (coolbar.zip 5.87 KB)

Nos vemos.
Guillermo

Fuente: http://www.elguille.info/vb/ejemplos/COOLBAR.HTM