En este grupo En todos

Foro de Lenguaje basic



visual basic 6.0

yudalfi
Monagas, Venezuela
Escrito por Yudalfi Rivera
el 21/07/2005
Soy estudiante de ing. Sistema necesito saber todo sobre visual basic ya que necesito hacer mi tesis de grado basado en este lenguaje de programacion... Quisiera que me ofrecieran toda la ayuda posible
Don Manuel Diaz
Santiago, Chile
Escrito por Don Manuel Diaz
el 02/08/2005
    Estimado:
    Cualquier cosa que necesites abordar de visual basic, me gustaria que los conversaramos, tengo muchas aplicaciones en vb con base de datos etc..
Reynaldo Ynfantes
Educación - computación e informática ...
Escrito por Reynaldo Ynfantes
el 18/08/2005

Como puedo hacer un sistema en visual basic si me podria ayudar en desarrollar un sistema,


Alex
Perú, Perú
Escrito por Alex
el 18/08/2005
Claro podemos ayurdarte en tu sistema pero tienes que especificar sobre que sistema deseas
Escrito por Mayte
el 22/05/2006
Nesito validar mis datos para que el programa no se desborde cuando no tenga los datos necesarios en un campo estoy haviendo un sistema para un video centro con bases de datos en acces en visual basic
Felipe
Antioquia, Colombia
Escrito por Felipe
el 22/05/2006

Mi nombre es felipe estoy en primer semestre de mecatronica en la EIA necesito ayuda sobre las matrices y todo su desarrollo por favor si alguien tiene ejemplos me servirian de mucha ayuda.

Tengo un trabajo para el final del semestre si alguien desea verlo y ayudarme en algo.

 Muchas Gracias



Ficheros adjuntos:
practica II ESCUELA DE INGENIERIA DE ANTIOQUIA
Escrito por Alma Posadas Gonzalez
el 25/05/2006
Hola necesito que alguien me ayude a elaborar un sistema de una tienda de abarrotes en visual basic 6. 0, no tengo idea de como hacerlo, ni que tablas o base de datos y formularios tengo que hacer, porfavor si alguien tiene la idea de como envienme un email a mi correo:almapos18_d@hotmail. Com se lo agradecere mucho, y que dios me los bendiga. lo anecesito aantes del 3 de junio del 2006. Es para que me pongan calificacion
Eduardo
Hidalgo, México
Escrito por Eduardo
el 25/05/2006

Que tal a todos los usuarios de VB, me gustaria saber como creo la ayuda un sistema que estoy realizando para mi titulacion, si alguien me puede ayudar se lo agradecere bastante, saludos a todos

Escrito por Sergio
el 29/05/2006

Muy buenas "programis".

Conozco bien el lenguaje c++ y tambien lago de java, pero me gustaria

Poder aprender basic.

Si no sois mala gente, podias mandarme a mi correo algun manual buenecillo, os lo agradeceria.

Mi direccion es: s5yn9forever@hotmail. Com

Muchas gracias.

Escrito por Karina
el 31/05/2006
Hola quisiera saber como direcciono el scanner desde vb y como progrmamarlo para que directamente me guarde una imagen
Felipe
Santiago, Chile
Escrito por Felipe
el 01/06/2006

Hola tengo que hacer una aplicación con imagenes y me gustaría saber si vb 6. 0 tiene capacidad para modificar imagenes en tiempo de ejecuccion.

Por ejemplo me da lo mismo que me muestre la imagen pero necesito tomar parte de la foto, cortarla y guardarla en una carpeta. ¿Es eso programable en vb?

Si alguien me puede ayudar muchas gracias

Lincoln Dedalo
Perú, Perú
Escrito por Lincoln Dedalo
el 02/06/2006
Holas les agredeceria que me dijeran como validar mi text box para que me acepte solo numeros o solo letras. Gracias espero su respuesta
Escrito por Yuri Lizama
el 03/06/2006

EDITOR DE TEXTO TIPO NOTEPAD POR Y.L.

 

Hola los que saben o al menos intentan programar en Visual Basic(para Uds va este tutorial, porque yo empecé así, en 0). En esta ocasión les explicaré como crear un editor de texto simple, para no hacer esto aburrido vamos a los hechos, Solo lean bien el contenido ya que ahí explico para es cada cosa, Bien a Trabajar:

 

 

Primero creamos un Formulario, póngale el nombre que deseen en este caso lo llamare EditorY en el ponemos un TextBox(en sus propiedades ponle multiLine = True y ScrollBars = 3 - Both), y un Menú con sus respectivos Submenus de esta forma:

 

Caption = &Nuevo

Name = mnuNew

------------------------

 

Caption = &Abrir

Name = mnuOpen

------------------------

Caption = &Guardar

Name = mnuSave

------------------------

Caption = Guar&dar Como...

Name = mnuSaveAs

------------------------

Caption = Imprimir

Name = mnuPrint

------------------------

 

Caption = &Salir

Name = mnuExit

------------------------

Caption = &Copiar

Name = mnuCopy

------------------------

Caption = C&ortar

Name = mnuCut

------------------------

Caption = Pegar

Name = mnuPaste

------------------------

Caption = Seleccionar Todo

Name = mnuSelectAll

------------------------

Caption = Eliminar

Name = mnuDelete

------------------------

Caption = Fuente

Name = mnuFont

 

Y me olvida un componente vayan al menú Proyecto->Componentes y seleccionen Microsoft Common Dialog control 6. 0 (SP3) y en Proyecto-> Referencias seleccionamos Microsoft Word 9. 0 Object Library

 

Ahora que si quieres crear tu propio CommonDilog te explico al final de explicar como se hace un editor de texto parecido a notepad.

 

 

Aclaro que pueden poner el nombre que quieran al menu y sus submenus pero asegúrense de colocar cada codigo en su respectivos menus. Estos nombres son los que yo estoy utilizando para este ejm.

Ahora vamos al formulario EditorY

 

Codigo en el EditorY:

 

Option Explicit

 

Private Modificado As Boolean ‘verifica si el texto se modifica o no como verdadero o falso

 

‘FUNCION PUBLICA PARA PASAR EL CONTENIDO DE UN TEXTBOX WORD

Public Sub AbrirWord_Click ()

        'Pasar el contenido del TextBox a Microsoft Word, para ello decimos que el documento de la aplicación de word contendra lo escrito en nuestro textBox

            Dim MSWord As New Word. Application

            Dim Documento As Word. Document

            Dim Parrafo As Paragraph

 

 

            Set Documento = MSWord.Documents.Add

            Set Parrafo = Documento.Paragraphs.Add

 

            Parrafo.Range.InsertAfter Text1. Text

 

            MSWord. Visible = True

End Sub

 

Private Sub Form_Load ()

Dim i As Long , tamFic As Long

 

'Llamamos a Crear Asociacion pasandole la ruta de nuestro Exe, _

luego la extención a registrar, una descripción , y el último es el _

path opcional para asociar la extención con un icono, que debe estar _

en una dll o será un icono personalizado en este ejm. “Miicono. Ico” y la extensión “. Yal”.

 

CrearAsociacion App. Path & "\" & App. EXEName, "yal", "Mi Documento Yal", "\iconos\miicono. Ico" ‘App. Path (es la ruta del. Exe ejm. C:\Mi exe) y(&) \ y(&) App. EXEName (es el nombre del. Exe ejm. EditorY. Exe) lo que nos quedaria la ruta C:\Mi exe\EditorY. Exe, tan facil como eso (para los que recien se inician en la programación de VB6).

 

'Ahora recibimos el valor de la linea de comandos, si es distinta de un a cadena vacia osea a nada entonces

'Leemos el archivo con el método FreeFile del TextBox, pasandole la ruta, al Command$ es la ruta del documento que contenga la extensión. Yal o cualquier extensión que quieran registrar.

If Command$ <> "" Then

    i = FreeFile ‘Utilizamos el freeFile para abrir el Texto cuando hagamos doble click en el documento. Yal

    Open Command$ For Input As I ‘abrimos la ruta del Command$ en donde sea que este en Mis documento en C:\ o en donde este.

    tamFic = LOF(i) ‘le decimos que el textbox abra el documento con la ruta command& utilizando el FreeFile

    Text1. Text = Input$(tamFic, i)

    Close i ‘cerramos i

    Caption = Command$ & " – Mi Editor" ‘colocamos l nombre del documento en el caption del Formulario

    Modificado = False ‘le decimos al textBox que no se modifique cuando abrimos el documento

    CommonDialog. FileName = Command$ ‘le decimos al commonDialog que la ruta del archivo es igual a la ruta de Command$, esto para que cuando modifiques el documento lo siga guardando en el mismo y no se abra guardar como un documento que no existe.

Else

VerNuevoDoc 'Llamada a la operacion de nuevo documento en caso se abra el. Exe sin utilizar un domento de extensión. Yal, para que entiendan abrir EditorY. Exe de forma normal y se coloque en el caption del formulario “Mi Documento 1 – Mi Editor”

End If

End Sub

 

Private Sub Form_Unload ( Cancel As Integer) ‘Esta parte indica que al cerrar el formulario se preguntara si desea guardar los cambios si es que el texto se ha modificado o no

     mnuExit_Click ‘ Para ello nos vamos al menú salir donde se encuentra el código de salida

End Sub

 

Public Sub imprimeLineas(Texto As Object , Linea As Integer )

‘Funcion para imprimir el texto del editor

    On Error GoTo NoImprimir ‘el On Error nos sirve para enviar cualquier error que suceda al ejecutar el comando a una determinada función en este caso NoImprimir (puede ser cualquier nombre que deseen pero recuerden poner ese nombre al final de declarar toda la función en nuestro ejm NoImprimir:) <- no es una carita feliz es el fin de la función, NoImprimir:

    Dim i As Long

    Dim Bloque As String

    'Numero de caracteres = NumC

    'Numero de Bloques = NumB

    Dim NumC, NumB As Integer

    NumC = Len (Texto. Text)   ‘Numero de caracteres igual ala longitud del texto

    If NumC > Linea Then

        NumB = NumC \ Linea

        For i = 0 To NumB ‘ Para no complicarnos decimos que imprimimos de 0 lineas hasta las lineas que exista para todo esto utilizamos un bucle, estudien bien cada codigo puesto aquí

             Texto. SelStart = (Linea * i)

            Texto. SelLength = Linea

            Bloque = Texto. SelText

            Printer. Print Bloque

        Next i

    Else

        Printer. Print Texto. Text

    End If

    Printer. EndDoc

NoImprimir: ‘No imprime si sucede algun error

End Sub

 

Private Sub mnuAbrir_Click ()

    On Error GoTo NoAbrir ‘el On Error nos sirve para enviar cualquier error que suceda al ejecutar el comando a una determinada función en este caso NoAbrir (puede ser cualquier nombre que deseen pero recuerden poner ese nombre al final de declarar toda la función en nuestro ejm NoAbrir: y le podemos poner un mensaje el que queramos como lo veremos abajo)

 

    Dim sFile As String

    Dim i As Long , tamFic As Long

 

    With CommonDialog ‘solo decimos que con(With) realizamos todas las funciones que contiene este componente.

        . DialogTitle = "Abrir Documento... " ‘titulo del commondialod

        . FileName = sFile ‘Nombre del Archivo, decimos que es igual a sFile, este para poder asignar la ruta al textBox

        'Filter indicadores y atributos del control common dialog

        . Filter = "Mi Documento YAL (*. Yal; *. Txt)|*. Yal; *. Txt|Todos los archivos(*. *)|*. *"

        . ShowOpen ‘abrimos el commonDialog

        If Len (. FileName) Then ‘ este punto ya lo explicamos en el Form_Load()

            sFile =. FileName

            i = FreeFile

            Open sFile For Input As i

            tamFic = LOF(i)

            Text1. Text = Input$(tamFic, i)

            Close i

        End If

            If Len (. FileName) = 0 Then ‘ en este punto decimos que si no hay ningun archivo el caption del formulario es igual al mismo nombre osea “Mi documento 1 o sea el numero de documento en que estemos o sea el nombre del ducumento que tengamos abierto en ese momento, esto es para evitar errores cuando pulsemos cancelar y no escojamos ningun documento y no se coloque ningun nombre en el caption del Formulario”

                Caption = Caption

                Else ‘si abrimos un documento se asignara el nombre(. FileTitle) del documento que abramos

                Caption =. FileTitle & " - Mi Editor"

            End If

    End With

       

    Modificado = False ‘le decimos que el texto no se modifica cuando se abre

Exit Sub

NoAbrir: ‘si hay error al abrir mandamos el contenido a Microsoft word, porque a Microsoft word... Para que sepan como pasar un documento de texto en VB6 a word.

    If MsgBox (“El texto es demasiado grande para abrirlo con Mi Editor... ” &vbCrLf & _ ¿Desea abrirlo con Microsoft Word? ”, vbQuestion + vbYesNo) = vbYes Then ‘Mensaje si hay error en abrir

            AbrirWord ‘llamada a función para abrir word

End Sub

Private Sub mnuCopy_Click ()

    'Copiar Texto

    Clipboard. Clear

    Clipboard. SetText Text1. SelText

    Text1. SetFocus

End Sub

 

Private Sub mnuCut_Click ()

    'Cortar Texto

    Clipboard. SetText Text1. SelText

    Text1. SelText = ""

    Text1. SetFocus

End Sub

 

Private Sub mnuEliminar_Click ()

'Eliminar Texto

    Text1. SelText = ""

End Sub

 

Private Sub mnuExit_Click ()

    If Modificado Then 'verificar si el texto esta Modificado, fijate bien en esto cuando presionamos salir preguntamos si esta modificado y si(If) en el mensaje presionamos Aceptar (vbYes) entonces se presionará guardar.

        If MsgBox("El documento ha sido modificado... " & vbCrLf & _

                     " ¿Desea Guardar el documento antes de salir del editor? ", vbQuestion + vbYesNo) = vbYes Then

                    mnuSave_Click

        End If

    End If

End

End Sub

 

Private Sub mnuFont_Click ()

  CommonDialog. Flags = cdlCFBoth Or cdlCFEffects

  'observar el tipo de fuente que tendra nuestro textBox

  CommonDialog. FontName = "Ms Sans Serif"

  CommonDialog. ShowFont

  If Err <> 32755 Then

   

  Text1. Font = CommonDialog. FontName

  Text1. ForeColor = CommonDialog. Color

  Text1. FontItalic = CommonDialog. FontItalic

  Text1. FontBold = CommonDialog. FontBold

  'Aquí indicamos que la fuente del textbox es igual a la fuente del commonDialog, asi como el color ect,ect,ect...

  'como te dije en un comienzo estudia bien los codigos puestos aquí ya que te los estoy explicando no es solo copiar y ya hay que saber porque va cada cosa por las.... ¡’?@   no te estoy expklicando paso a paso todo... Perdón pero es que me interesa que aprendan

  End If

End Sub

 

Private Sub mnuNew_Click ()

    'Si el texto se ha modificado preguntar si se guarda o no

    If Modificado Then ‘si el texto se ha modificado preguntará si se guarda o no

        If MsgBox("El documento ha sido modificado... " & vbCrLf & _

                    " ¿Desea guardar el documento? ", vbQuestion + vbYesNo) = vbYes Then ‘si sale el mensaje de guardar verificar si se presiona aceptar(vbYes) si es igual a este entonces presionamos mnuSave(Guardar). Si no simplemente se pierde la información y generamos un nuevo documento... Como? Lo veremos en un momento.

                     mnuSave_Click

        End If

    End If

 

        'Abrir Documento en blanco

        Text1. Text = "" 'Pone el texto en blanco, simplemente borra el contenido escrito en el.

        VerNuevoDoc ‘Llama a la funcion que hace que aumente los numeros 1, 2, 3 etc. Recuerda que esto lo hace en el caption de Formulario.

        Modificado = False ‘hace que el TextBox(Text1. Text) se vuelva a no modificado.

        CommonDialog. FileName = "" ‘hace que el commondDialog no contenga ningun documento para que sea guardado como nuevo y no reemplace nuestro documento que habiamos trabajado anteriormente.

End Sub

 

Private Sub mnuPaste_Click ()

    'Pegar Texto

    Text1. SelText = Clipboard. GetText()

    Text1. SetFocus

End Sub

 

Private Sub mnuPrint_Click ()

    'Imprime X lineas, X es 60 en este ejmplo

    imprimeLineas Text1, 60 ‘Llamamos a la funcion imprime lineas

End Sub

 

Private Sub mnuSave_Click()

    Dim sFile As String

    Dim i As Integer

   

        If Len(CommonDialog. FileName) = 0 Then ‘Aquí decimos que si el commonDialog es igual a 0 osea que no contiene ningun achivo se abra el commonDialog con

                mnuSaveAs_Click ‘el menu guardar como...

            Else ‘y si hay un archivo abierto simplemente se omitira abrir guardar como y se guardara lo modificado el documento ya abierto con la funcion commonDialog. FileName

                i = FreeFile

                Open CommonDialog. FileName For Output As i

                Print #i, Text1. Text

                Close i

        End If

 

        mnuSave. Enabled = False ‘colocamos el menu guardar a Enabled = False

        Modificado = False ‘le decimos al editor que como se guardo no hay nada que quede modificado hasta q

Luis F.
Santander, Colombia
Escrito por Luis F.
el 05/06/2006
Ederbmorales
Estado de México, Mé...
Escrito por Ederbmorales
el 06/06/2006
Necesito hacer reportes mensuales y anuales de un determinado individuo en el cual este haya elegido una opcion y dependiendo de esa opcion quiero hacer los reportes
Mighel Campusano
Ancash, Perú
Escrito por Mighel Campusano
el 17/06/2006

Hola a todos, les agradeceria si alguien me pudiera facilitar algun codigo de vb 6. 0 para un sistema de ventas, donde entra facturas , boletas, pedido, proforma, guia de remision, me seria de mucha utilidad cualquier codigo basado en este tema.... Si tuvieran con conexion a una base de datos sql server utilizando clases seria genial....

Agradecido estare a todo lo que me puedan enviar a mi correo mikatamr@hotmail. Com... Bye

Escrito por Fanky
el 17/06/2006
Hola estoy haciendo una apliacion para mi examen. Lo unico de malo es que no he encontrado en la red como insertar una ayuda a mi aplicacion, es mas no tengo ni idea, por fis alguien que sepa como hacerlo o si tiene un proyecto con ayudas me lo mande por fa.
Mary Peña
Barcelona, España
Escrito por Mary Peña
el 19/06/2006

Hola a todos necesito pedirles ayuda con el siguiente asunto estoy creando un programa en visual basic al cual debo colocarle ayuda he estado buscado en la web y encontre hacer una ayuda basado en Html con un programa workshop todo bien hasta aqui pero no se como agregarlo al proyecto de  visual basic necesito ayuda por fa o haber si alguien me da otra idea. Eso seria gracias.

Respuestas al email mary. Pece@gmail. Com

Eternamente agreciada

Escrito por Nabila Mansour
el 20/06/2006

Quisiera saber como se hace una conexión a Base de Datos access 2000 a través ODBC con objeto ADO

¿Podeis falicitarme algún ejemplo?

Espero que me ayuden gracias

Escrito por Jean Carlos
el 21/06/2006
Nesecito ayuda en cristal report y en como crear un programa de yuda de vidual basic mi correo es jeanco01@yahoo. Es