PREGUNTAS CONTESTADAS - Visual Basic

 Hay un total de 3030 Preguntas.<<  >> 

    Pregunta:  207 - CARGAR GRAFICOS .DXF O .DWG DE AUTOCAD
Autor:  Juan
Quisiera saber si en Visual Basic existen controles para cargar gráficos en formato .dxf o .dwg, fomatos utilizados por autocad.
Gracias por su ayuda
  Respuesta:  InCaSaS
La primera Version que yo he utilizado (para 16 bits) es el Visual-Cadd 1.2 de la Casa Numera.
Creo que eso lo lleva ahora Visual Components (no estoy seguro), www.visualcomp.com.
Esto funciona a las mil maravillas, ya que yo tengo hechas varias aplicaciones que permiten el manejo de este tipo de ficheros. Desconozco si existen versiones de 32 Bits, ahora, te puedo garantizar que los susodichos controlillos valen una pasta.
A un nivel mas particular, te puedo dar alguna orientacion. Si puedes, echa un ojo a mi URL y comentame a ver que te parece. http://www.geocities.com/BourbonStreet/Delta/3637/index.html
Para cualquier consulta, contacta conmigo. Salu2

    Pregunta:  208 - CONTROLAR EL VOLUMEN
Autor:  Ramon
¿Como se puede controlar el volumen en la versión 4.0 del Visual Basic con el control MCI?
  Respuesta:  Héctor de Aragón Mollá
Existe un control llamado MCIwndx.ocx el cual mantiene una propiedad que es volumen, parámetro que acepta valores entre 0 y 1000.

Si lo necesitas, házmelo saber y te lo remito a tu dirección e-mail.
Saludos.

    Pregunta:  214 - NOMBRE DE USUARIO EN UNA RED NT
Autor:  José
Estoy trabajando dentro de una red Windows NT con clientes Windows 95. Acabo de realizar mi primer programita en Visua Basic, y para redondearlo, necesitaria poder recuperar el nombre del usuario que se ha conectado a NT desde el cliente que está ejecutando el programa. Supongo que se podrá hacer con alguna de esas funciones raras que leen del Registro de Windows 95, pero no tengo ni idea de como.
Doy las gracias de antemano
  Respuesta:  Gerardo A. Mendoza
Hola:
Apenas estoy haciendo mis "pininos" en VB, pero en el sitio de EL GUILLE podrás encontrar algo relacionado con tu duda, ya que también es una de las que tengo, en la sección de API encontraras un ejemplo de saber el nombre del usaurio. Espero que te sirva.http://guille.costasol.net/indice_cf.htm
  Respuesta:  Paco Rentería
Te mando el código completo de una librería que hice en vb4, solo es necesario llamar GetUsuario para que te regrese el string conteniendo el nombre de usuario. Este código funciona en redes windows, obtiene el nombre del usuario logeado en la terminal. El código es para win32, para pasarlo a win16 solo es necesario cambiar las cabeceras de las funciones API a sus equivalentes en win16.
Attribute VB_Name = "Redes"
´Este módulo contiene todo el código y declaraciones utilizadas para la identificación y registro del usuario en el sistema Por omisión, se supone que el login del usuario al sistema es el mismo que del usuario a la red.
Option Explicit
´Determina la longitud máxima del login de Windows
Private Const MAX_USERNAME_LENGTH As Long = 20

Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function StrZToStr(ByVal StrZ As String) As String
On Error GoTo StringError
StrZToStr = Left$(StrZ, InStr(StrZ, vbNullChar) - 1)
Exit Function
StringError:
StrZToStr = ""
End Function

Function GetUsuario() As String
Dim m_UserName As String ´Para obtener el nombre del usuario
´Obtengo el nombre del usuario logeado en Windows
m_UserName = String$(20 + 1, vbNullChar)
GetUserName m_UserName, Len(m_UserName)
GetUsuario = StrZToStr(m_UserName)

End Function
  Respuesta:  Dani
1 sola linea sin mas, Environ("USERNAME") te da el nombre del usuario que tiene establecida una sesión en Windows NT. EJ. Debug.Print Environ("USERNAME") o Usuario = Environ("USERNAME")

    Pregunta:  216 - CONECTAR CON EL CORREO ELECTRONICO
Autor:  Oscar
Soy un programador novato en Visual Basic 4.0 y debo de conectarme con el correo electronico de Microsoft (exchange) o con Lotus ccMail. Pero no se como hacerlo, os agradeceria que me contestaseis por favor
  Respuesta:  Daniel Arriola
Te dejo el código:
solo que tienes que tener referenciado tú programa a la librería de Microsoft Outlook

´Inicio del programa
Dim Correo As New Outlook.Application
Dim Mensaje As Outlook.MailItem
Set Mensaje = Correo.CreateItem(olMailItem)
With Mensaje ´lleno mensaje
.To = "Aquien(es) se les envia el mensaje"
.Subject = "Asunto del mensaje"
.Body = "Cuerpo del mensaje
.Attachments.Add "poner ruta y archivo
a adjuntar
.Importance = olImportanceHigh
.Send
End With
Set Mensaje = Nothing ´Limpia mensaje
Set Correo = Nothing ´cierra sesión de Correo
´Fin del programa
  Respuesta:  Mª Carmen Fdez.
No se si es esto lo que necesitas saber, pero este código lanza la bandeja de entrada a ver si te gusta:
Dim ret As Long
ret = Shell("start " & "C:\WINDOWS\EXPLORER.EXE /root,C:\WINDOWS\net.msg")
si no te gusta cambia la ruta por esta otra y se te ejecutara el mail de Explorer
C:\WINDOWS\Internet Mail.{89292102-4755-11cf-9DC2-00AA006C2B84}")
Suerte.
  Respuesta:  Obelix
Has de utilizar los objetos MAPISession y MAPIMessage, esto implica un problema por la conexión entre VB5 y el sistema de mensajeria de Windows (El Exchange). Para solucionar este problema hay que actualizar dicho sistema de mensajería por una versión que no de conflictos, encontrándose esta en el WEB de microsoft.
Este error ya estaba reportado en su KB.

Un saludo.

    Pregunta:  222 - PROTOCOLOS EN VB 5.0
Autor:  Jorge
Me gustaria saber como lo puedo hacer para usar los protocolos de una red de win95 en Visual Basic, ya que quiero enviar o recibir información.
Gracias de antemano
  Respuesta:  Diego Manuel Bejar
En VB5 tienes controles específicos para redes TCP y UDP (control WinSocket) y para puertos de comunicaciones (comm32).

    Pregunta:  230 - MANIPULAR LOS PROTOCOLOS
Autor:  Jaime
Como hago para manipular los protocolos de red, ya se IPX o Netbios o TCP/IP, con algun lenguaje como Visual Basic o Delphi?O como hago para que con Visual Basic o Delphi, un dispositivo colocado en el puerto serial, se vea como una unidad de red? o como una unidad tal como hace la unidad ZIP?
  Respuesta:  Diego Manuel Bejar
Mas bien parece que tu problema es de configuracion. No hay que hacer nada con VB para que se reconozca una unidad zip, sólo tiene que estar bien configurada en el sistema operativo. De la misma manera que puedes acceder a cualquier unidad de red (o dispositivo compartido de la misma) mediante su dirección UNC. Por ejemplo \\programador\zip donde "programador" es el nombre de la máquina y zip el nombre que se le ha dado al dispositivo compartido. Para compartir una unidad ya sabes que sólo hay que ponerse encima de ella en el explorador, darle a botón derecho, compartir, y darle un nombre.

    Pregunta:  236 - APAGAR EL COMPUTADOR CON VISUAL BASIC
Autor:  Caon
Me gustaria saber si hay alguna forma de apagar el computador a traves de Visual Basic, sin hacer eso de Inicio=>apagar el sistema=>...
  Respuesta:  anonimo
Apagar el ordenador:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long

Public Sub ApagarPc()
Dim lResp as integer
lResp = ExitWindowsEx(1, 0&)
End Sub
NOTAS: el valor pasado a la funcion API puede tener los siguientes 3 valores:
0 = Reinicia Windows con nuevo usuario
1 = Apaga el equipo
2 = Reinicia el sistema
  Respuesta:  Gabriel Arenovich
El código es el siguiente:

A nivel de módulo las siguientes declaraciones:

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Yo he creado un formulario con cuatro botones, el código es el siguiente:
Private Sub cmdLogOff_Click()
´Arranca con otro usuario reiniciando los programas del menu de inicio
ret = ExitWindowsEx(EWX_LOGOFF, 0)
End Sub

Private Sub cmdReboot_Click()
´Reinicia el ordenador
ret = ExitWindowsEx(EWX_REBOOT, 0)
End Sub

Private Sub cmdRestart_Click()
´Cambia el usuario sin reiniciar programas
ret = ExitWindowsEx(EWX_FORCE, 0)
End Sub

Private Sub cmdShutDown_Click()
´Apaga el ordenador
ret = ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

Nota: Este código lo único que hace es apagar o reiniciar el ordenado, sería conveniente antes de hacer esto crear una función que cierre todas las aplicaciones abiertas, ya que esto no se hace por si solo, y por ejemplo yo he hecho pruebas y como tengo el Explorer 4.0 con el Active Desktop cada vez que reinicio o apago el ordenado al volver me dice que hay que restaurar el Escritorio.
Si alguien más tiene cualquier duda o consulta que me manden un email e intentaré ayudar.

    Pregunta:  239 - AVISO AL FINALIZAR LA IMPRESIÓN
Autor:  Angel
Programo en Visual Basic 5 y i pregunta es sobre impresión. ¿Qué tengo que hacer para que cada vez que la impresora termine uno de los trabajos que le he enviado, el programa me de un aviso?
Me han comentado el utilizar el api con las funciones EnumJobs, Getjobs y Setjobs pero no lo tengo muy claro el como hacerlo.
Os agradecería cualquier orientación al respecto
  Respuesta:  José Luis Castro Ramírez
Te envío ésta parte de código, la variable Statusrpt te almacena el status del control de crystal, dependiendo del estado en que se encuentre es el mensage que envía, espero solucione tu problema.
Statusrpt = MDImnuFideaca.CrtFidaca.Status
MDImnuFideaca.CrtFidaca.WindowState = 2
MDImnuFideaca.CrtFidaca.Destination = 0 'Pantalla
'Ruta de la Base de Datos y el Reporte
MDImnuFideaca.CrtFidaca.DataFiles(0) = "C:\Fideaca\AccessBDFideaca\Fidaca.mdb"
MDImnuFideaca.CrtFidaca.ReportFileName = "C:\Fideaca\Reportes\Recibo.rpt"
Screen.MousePointer = 11
MDImnuFideaca.CrtFidaca.Action = 1
Screen.MousePointer = 0
If Statusrpt = 0 Then MsgBox "El Informe no se ha impreso, o no se ha terminado de imprimir", vbInformation
If Statusrpt = 3 Then MsgBox "El Informe se Termino de Imprimir", vbInformation
If Statusrpt = 5 Then MsgBox "EL Usuario Cancelo el Informe", vbInformation
  Respuesta:  Julio
hola mi nombre es julio la forma de saber cuando termina tu impresion es de la sigte forma si lo haces con crystal report que es lo que manejo y creo que cualquier otra forma:
recuerda que la version de CR de VB5.0 no maneja ventanas como VB4.0
(donde cierre= al nombre del archivo en CR)
cierre.WindowTitle = "Informe Realizado"
cierre.WindowBorderStyle = crptFixedSingle
cierre.WindowWidth = 480
cierre.WindowState = 0
cierre.PrintFileType = (tipo de archivo a imprimir)
cierre.PrintFileName = (Nombre del Archivo a Imprimir)
(existen dos formas de imprimir)
(1)x = cierre.PrintReport
(2)cierre.action=1
MsgBox " Se Generó el Archivo" + " " + Trim(res) + " " + "con Exito"
al terminar de realizar todos estos pasos se supone que CR a generado el archivo de impresion y solo basta con un MSGBOX al final para que avise.

    Pregunta:  246 - HAY EQUIVALENTE A FINDWINDOWS EN VISUAL BASIC 4
Autor:  Andres
Amigos programadores, la pregunta es si en la versión 4.0 de Visual Basic existen un comando similar a FindWindow de Visual Basic 3.0, el cual permitia detectar si cierta aplicación estaba ejecutandose o no, ya que actualmente estoy haciendo una DDE desde un programa mio en VB enlazandola con la aplicación MATLAB y resulta que cada vez que voy a mandar parametros hacia MATLAB me abre una nueva ventan de MATLAB, lo cual es muy molesto.
de antemano, muchas gracias por la ayuda que Uds tengan a bien prestarme
  Respuesta:  Gabriel Arenovich
Existe una función de la API llamada también FindWindow y que devuelve el handle de la ventana que le digamos, y si no exite devuelve NULL. Pruebalo.
  Respuesta:  InCaSaS
La Respuesta de gabriel es buena para devolver el Handle y trabajar con el.

Si trabajas con 32, y realizas un CreateObject, puedes interactuar con el si no existe.
Si ya esta creado, con GetObject trabajas con el objeto ya creado y abierto en el sistema. Si lo ha abierto alguien que no haya sido tu aplicacion, puedes realizar la llamada a la APIO FindWindow, pero MUY IMPORTANTE, por su clase, para luego realizar una especie de registro en las directivas del sistema.
Para mas informacion, ponte en contacto conmigo
Si puedes, echa un ojo a mi URL:http://www.geocities.com/BourbonStreet/Delta/3637/index.html

    Pregunta:  252 - EJECUCION DE MACROS ACCESS EN VB5
Autor:  Pedro
¿Como puedo ejecutar una macro que está en una base de dato ACCESS 2 desde VB5?. Gracias
  Respuesta:  Rodrigo Treviño
puedes utilizar en VB GetObjet, CreateObjet
Set Mimacro = GetObject("c:\mibase.mdb")
mimacro.DoCmd.RunMacro "nombremacro"
te recomiendo que veas la ayuda de Access para DoCmd y en VB GetObjet
te dara mas ejemplos y te ayudara mas, ya que no te puedo exponer todo el procedimiento completo

Saludos y espero haber podido ayudarte

|<  <<  1 2 3 4 5 6 7 8 9 10 11  >>  >|