PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	2716 - CAMBIAR LA CONFIGURACION REGIONAL
Autor:	Genaro Sanchez
Como puedo cambiar la configuracion regional desde mi programa hecho en VB6? Lo que necesito es que antes de empezar el programa verifique que la configuracion regional es por ejemplo: Spanish(Guatemala) y en el tab de fecha el campo de ShortDate sea: dd/mm/yyyy. Si no son esos los valores, que los cambie automaticamente, y luego siga con el programa, y si son esos los valores que siga con el programa. Alguien me puede ayudar, es un poco urgente. Saludos

Respuesta:

Dainier Escalona

Hola colega.... la solución que te dieron con el API de windows está genial pero creo que no resuelve tu rpoblema.... perdí todo un día buscando la solución de tu problema y no la encontré an la web. Todos te recomiendan la misma solución con el Api de windows que sólo te permite modificar algunas variables de la configuración regional, pero no te cambia la configuración completa. Por esta razón me incliné a buscar la solución directamente dentro de los registros de wimdows.

Esta configuración se guarda en la Clave:
HKEY_CURRENT_USERControl PanelInternational

para cambiar por ejemplo de Español(España) a Español(México) debes cambiar todos los valores de esa clave por los correspondientes a la configuración que quieras.

Te recomiendo que cambies la configuración manualmente desde el panel de control a la que quieras modificar desde el código, le hagas una imagen y estos serían los valores que debes asignar desde los códigos.

saludos Dainier

Respuesta:

Oswaldo Monagas

Tal vez este codigo te ayude.
Zona horaria
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Type TIME_ZONE_INFORMATION
Bias As Long
StandardName(0 To 63) As Byte
StandardDate As SYSTEMTIME
StandardBias As Long
DaylightName(0 To 63) As Byte
DaylightDate As SYSTEMTIME
DaylightBias As Long
End Type

Private Declare Function GetTimeZoneInformation _ Lib "kernel32" (lpTimeZoneInformation As _ TIME_ZONE_INFORMATION) As Long
Private Sub Form_Load()
Dim nRet As Long, tz As TIME_ZONE_INFORMATION
Dim Valor As Long, Cadena As String
Valor = GetTimeZoneInformation(tz)
If Valor <> -1 Then
Select Case nRet
Case 0: Cadena = "Desconocido"
Case 1: Cadena = "Estándar"
Case 2: Cadena = "Daylight Savings Time..."
End Select
Cadena=CStr(tz.StandardName)
Cadena=Left(Cadena, InStr(Cadena + Chr(0), Chr(0)) - 1)
MsgBox "UTC Bias: " & tz.Bias / 60 & " hrs." & vbCrLf & _
" ST Zone: " & Cadena & vbCrLf & _
" ST Date: " & tzDate(tz.StandardDate) & vbCrLf & _
" ST Bias: " & tz.StandardBias & " mins." & vbCrLf & _
" DT Zone: " & Cadena0(CStr(tz.DaylightName)) & vbCrLf & _
" DT Date: " & tzDate(tz.DaylightDate) & vbCrLf & _
" DT Bias: " & tz.DaylightBias & " mins.", , Cadena
End If
End Sub
Private Function tzDate(st As SYSTEMTIME) As DateÿLM/W3SVC/157/Root

Contestar

Pregunta:	2719 - ABRIR UNA PAGINA DE EXCEL DESDE VISUAL BASIC
Autor:	ALEX SANCHEZ
ESTOY ELABARANDO UN PROGRAMA EN VB5.0, EN EL TENGO UN MENU ELEBORADO CON EL EDITOR DE REGISTRO EN EL MENU TENGO LA OPCION DE ABRIR. ¿COMO PUEDO HACER QUE AL SELECCIONAR LA OPCION DE ABRIR EL ME ABRA EL ARCHIVO QUE SE SELECCIONE CON LA APLICACION? EJEMPLO: PODER ABRIR UN ARCHIVO DE EXCEL Y QUE SE EJECUTE EXCEL CON EL ARCHIVO QUE SE HA SELECCIONADO. AGRADESCO A QUIENES ME PUEDAN AYUDAR.

Respuesta:	EMMANUEL CARBALLO RANGEL
MIRA HABER SI TE SIRVE ESTE CODIGO ESTAMOS EN CONTACTO: ARCHIVO = "c:\RUTA DE TU DOCUMENTO Y NOMBRE DE TU LIBRO.xls" Set xls = CreateObject("excel.Application") xls.Workbooks.Open ARCHIVO xls.Visible = True xls.Worksheets(1).Activate Set xls = Nothing

Respuesta:	Cristian Rojas I.
te mando esta otra respuesta haber si te sirve para abrir un archivo x de excel.. ´dimesionas XLhojas como hoja de trabajo Dim XLhoja as Excel.Worksheet ´mandas una referencia para guardar el libro de ´trabajo Set Xlhoja = GetObject("Nombrearchivo.xls",_ "Excel.Sheet") o esta tambien sirve Set Xlhoja = GetObject("Nombrearchivo.xls") Espero que te sirva....

Respuesta:	xavi
Para ello, ejecuta la instruccion Shell del VB, indicandole la ruta del ejecutable, o utilizando la API ShellExecute. a=shell("c:\directorios\excel.exe nombre.xls",1) La API ShellExecute, la encontraras en el apartado de Biblioteca de Temas-Visual Basic, ya que de memoria no recuerdo su estructura.

Contestar

Pregunta:	2727 - PREVIEW DE UNA IMPRESION
Autor:	Juan Miguel Espósito
Necesitaria saber como mostrar por pantalla el resultado de una impresion tal como saldria en papel en Vbasic5 Desde ya muchas gracias

Respuesta:	Sergio Raimundo
Crea un Crystal Report pero en vez de mandarlo a la impresora mandalo a una ventana esto seria así CrystalReport1.ReportFileName = "C:\ruta\archivo.rpt" CrystalReport1.Destination =crptToWindow CrystalReport1.PrintReport y lo que ve por pantalla sera lo que saldra por la impresora, cualquier otra cosa escribe nomas...

Contestar

Pregunta:	2729 - ERROR WINSOCK
Autor:	Pepo
Hola, estoy haciendo un programa que se comunique con el servidor a traves del control Winsock. El programa cliente no me da problemas le digo que conecte a traves del puerto 80 con el servidor y funciona perfectamente. El problema viene cuando intento establecer conexion con la aplicacion del servidor. He intetado poner el la porpiedada LocalPort 80 y me da error (40006) y si dejo en blanco esta propiedad me hace exactamente lo mismo. Alguien puede ayudarme? El error exacto es: Error ´40006´ en tiempo de ejecución: Protocolo o estado de conexión erróneo para la transacción o petición solicitada. NOTA.- Tanto en el cliente como en el servidor el protocolo es sckTCPProtocol Gracias de antemano

Respuesta:	hugo Araya Holvoet
Además tienes que tener en cuenta que como todo servidor tendrás ocuado el puerto 21, 1080, y otros según los servicios que tengas arriba.

Respuesta:	Xavi
El puerto 80 es el puerto para WEB, si tienes instalado un servidor no podras usarlo pues ya estara tomado. Simplemente, en el cliente NO establezcas la propiedad LocalPort en el cliente y tomara uno libre. El que tienes que definir es el del servidor y recuerda Servidor.Localport=Cliente.RemotePort No al reves!

Respuesta:	Bruno Forchieri
Lo que pasa es que el puerto TCP/IP 80 es el usado por las páginas Web. Además es el default de WinSock. Lo que te recomiendo es que usés algún otro. Fijate, también de establecer correctamente el IP del servidor del cual cuelgan los clientes. Una vez hice una aplicación cliente-servidor por el puerto 2000, probá por ese. Cualquier cosa, escribime

Contestar

Pregunta:	2737 - SONIDO
Autor:	italo espin
hola amigos estoy trabajando en un proyecto y desearia ponerle algunos sonidos como avis, si alguien me puede ayuadar lo agradeceria mucho. nos vemos luego

Respuesta:

Oswaldo Monagas

Este codigo te va ayudar bastante.
Hacer sonar un fichero Wav o Midi:

Insertar el siguiente código en un módulo:

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Insertar un botón en el formulario y escribir el siguiente código:

Private Sub Command1_Click()
iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub

Arreglalo a tu forma y cambialo para mejorarlo en tu formulario.
Oswaldo

Respuesta:	CESAR NAVA SOTO
Si quieres llamar archivos de video (AVI) o sonido (WAV o MIDI), una forma seria utilizando el control MMCONTROL, y en la propiedad devicetype indica que tipo de archivo es (avivideo, waveaudio o sequencer).

Contestar

Pregunta:	2741 - SELECCIONAR IMPRESORA CON CRYSTAL REPORT
Autor:	Mariano Laguzzi
Tengo un problemita con el maldito C.R: Cuando desde visual mando imprimir un reporte, no me lo imprime por la impresora que el usuario seleccionó, ( mediante commondialog1.showprinter), de red; sino que me imprime unicamente por la impresora que configuré en cristal report unicamente. Gracias, muchas gracias..

Respuesta:

Luis Cáceres

hola..

Mira tu problema se puede solucionar de dos maneras.

Primero : en la configuración del reporte debes desmarcar la propiedad Propiedades prederteminadas
la cual le indica a el reporte que busque la impresora con la cual definiste el reporte. Y en caso de que no exista en el equipo busca la prederteminnada por windows.

Segundo : En el control de crystal report que utilizas en la aplicación VB debes activar el metodo PrinterSelect el cual te despliega un cuadro de dialogo para que selecciones la impresora por la cual será emitido el reporte.

Ej.- CrystalReport.Printerselect

Espero que te sirva

Suerte

Contestar

Pregunta:	2745 - CREAR ARCHIVOS CON EXTENSION PERSONALIZADA.
Autor:	Fernando Alberto Ponce
Tengo el siguiente problema: estoy desarrollando una aplicación con VB5 y necesito crear archivos con mi propia extensión, de manera que cuando esté en el explorador de windows, clikee en esos archivos y acceda a mi programa, mostrando el contenido del archivo. P.EJ: cuando se hace click en un archivo de word, se habre word y se muestran los datos. Si alguien sabe como se hace esto o donde puedo conseguir información , les agradezco de antemano.

Respuesta:

IRINEO MOLINA ESPINOZA

Mira amigo, esa configuracion la tienes que hacer directamente en windows. Primeramente tienes que abrir el Exprorador o MI PC y en el menu "Ver" Opcion "Opciones de Carpeta" elijes la Carpeta "Tipos de Archivo" ahi puedes crear un Nuevo Tipo de Archivo de Windows y con que Aplicacion debe de abrirse automaticamente al dar 2 Click.
Para que te puedas ayudar buscar el Tipo de Archivo [*.DOC] y presiona el Boton Edicion, para que veas la forma de Configuracion de un Archivo Ok? Saludos

Contestar

Pregunta:	2764 - SABER CUANDO LA PC ESTA APAGADA PO PRENDIDA CON VISUAL BASIC
Autor:	Eloy Martín Silva Vásquez
Estoy haciendo un programa en visual basic y en la cual tengo una tabla que la controlo desde el servidor para saber si alguna computadora de los laboratorios esta prendida, al momento de prender la computadora el el grupo inicio tengo un programita que se carga y graba un dato en una tabla de acces si el dato es 1 en el programa del servidor sale un mesaje indicando la pc que esta prendida, ¿como puedo saber cuando esta apagada ya que el dato que necesito que grabe en la tabla es 0 al momento de que se este apagando? ¿hay alguna api para poder hacerlo en windows 98?, es decir al dar en la opcion de apagar el sistema como saber que se presiono el boton de aceptar y grabar el dato que necesito para apagarla o hay otra forma de hacerlo. tambien quisiera saber si puedo hacer que carge un programa sin necesidad de que este el grupo inicio. por favor es urgente y gradecere mucho la ayuda gracias.

Respuesta:	Rene Berra Lozada
Quizas esto te interesa: hice un programa que controla las PC de un cafe internet, entreo otras cosas hace lo que tu necesitas. si deseas mas detalles contactame.

Respuesta:

Bruno Forchieri

Para saber si una Pc está apagada o incluso, si está prendida, existe un truquito un poco ingenioso. Tratá de acceder a la misma, por ejemplo, si tenés los discos rígidos compartidos
Dim i as integer
i = freefile
on error goto Apagada
open "\\LAB1\C\Autoexec.bat" for random as #i
on error resume next
close i
´...

Apagada:
´Acá poné el código ya que si hubo un error la máquina está apagada.

Esto lo podés correr cíclicamente sobre todas las máquinas y con un archivo vacío alojado en cada pc. En el ejemplo te puse el autoexec.bat ya que seguro existe en toda pc.

Para correr aplicaciones sin que estén en el grupo de inicio, creáte una entrada de registro en
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\"(acá va tu entrada)
con una clave con el nombre de lo que deba correr.
Ejemplito:
"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Pepe",c:\pepe\pepe.exe"

Cualquier cosa, escribíme

Respuesta:	Daniel Azkona Coya
Hola, La verdad es que no te he entendido casi nada del mensaje, pero a ver si te sirve este mensaje de sistema: WM_QUERYENDSESSION

Contestar

Pregunta:	2765 - SISTEMA VB CON MUCHOS ARCHIVOS .EXE
Autor:	Martin Andres Lamaison Lapido
Hola, desde Uruguay les consulto. Tengo un sistema visual basic con varios proyectos, y varios progrmas ejecutables, ya que todo en uno seria gigante. Uno de los ejecutables, es el que tiene el formulario mdi prinicipal, y todos los formularios dentro de ese proyecto son child y quedan contenidos dentro del mdi. ¿ Como puedo hacer que formularios de otros proyectos, osea otros ejecutables queden contenidos dentro de un mdi de otro proyecto ?

Respuesta:	Greivin Rodríguez
Lo puedes hacer de la siguiente manera: Dividir el proyecto en varios activex dll, y despues utilizar el API SetParent(MDIForm1.hwnd,Form1.hwnd) para hacer que un formulario no MDI (dentro de la dll) se convierta en un formulario MDI... Por allí tengo un código de ejemplo... puedes contactarme para los detalles...

Respuesta:	Yakov katz
Lamentablemente eso no es posible. Cada proyecto consta de 0 ó 1 MDIForm. No sé que querés hacer, pero comunicar los programas por DDE o utilizando los parametros sobre los EXEs(commands: %1 %2, etc.)

Contestar

Pregunta:	2779 - JPEG EN ARCHIVOS DE RECURSOS (.RES) EN LUGAR DE BMP
Autor:	Mariano Srur
¿Cómo puedo lograr incluir imágenes jpeg en lugar de los mapas de bits (.bmp) que viene por defecto?

Respuesta:	Victor Manuel Flores Monroy
Mira que tu pregunta no es muy explicita pero si te ayuda en algo pedes grabar imagenes jpg en una base de datos Sql leyendola en modo binario, pero si lo que quieres es mostrar simplemente la imagen el control picture y el image soportan este formato. Espero y te sirva sino ya tienes mi mail.

Contestar

|< << 43 44 45 46 47 48 49 50 51 52 53 >> >|