PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	1356 - COMO DETERMINA LA ANCHURA Y ALTURA DE UNA PANTALLA
Autor:	Xavi
Como puedo saber la altura y anchura de la pantalla donde se instala mi programa. Gracias de antemano.

Respuesta:	Jorge Espartero
x=Screen.Width - te da el ancho de la pantalla x=Screen.Height - te da el alto de la pantalla me.height - te da el alto del formulario me.width - te da el ancho del formulario Para centar en la pantalla poner. me.top=screen.height/2 - (me.height/2) me.left=screen.width/2 - (me.width/2) Saludos

Respuesta:	Pepe Palote
Si quieres usar API Declare Function GetSystemMetrics Lib "user32"_ (By val nIndex as long) as long Dim resX&, resy& resx=GetSystemMetrics(0) resy=GetSystemMetrics(1)

Respuesta:	Xavi
Una manera muy sencilla de determinar la anchura y altura, es... width screen resX=.width/.twipsPerPixelX resY=.width/.twipsPerPixelY End Width Este texto lo he sacado de PCWord Espero que te sirva.

Contestar

Pregunta:	1358 - COMO MANTENGO ACTUALIZADA UNA BASE CON CRISTAL REPORT
Autor:	Alejandro Mora Cuervo
Tengo un programa hecho en Visual Basic 5.0 y tengo una base de datos pero cuando coloco un control cristal report y lo asosio a la base siempre me sale desactualizado. que debo hacer para que los cambios que haga en la base me aparescan cuando veo el informe con cristal report gracias

Respuesta:	Iván Dario Calderón Caceres
Saludos Alejandro a mi me pasaba lo mismo hace algún tiempo hasta que encontre una opción en Crystal que dice guardar datos con el reporte se encuentra en el menu archivos por defecto aparece marcada solo hay quitarle el chulito y el reporte se actualizara cada vez que hagas cambios en la base de datos hasta luego y suerte...

Respuesta:	Gerardo Librera
ANTES DE MOSTRAR EL REPORTE (CRYSTALREPORT1.REPORT) DEBES COLOCAR ESTO CrystalReport1.DiscardSavedData = True SI LO PONES EN FALSE NO TE ACTUALIZA EL REPORTE CON LA BASE DE DATOS.

Respuesta:	Vicente Uceda Alvarez
Tienes que activar "Verify on Every Print" (en el menú "Database")

Contestar

Pregunta:	1365 - SABER LA TARJETA DE SONIDO
Autor:	Daniel Micol
Me gustaría hacer que en un ComboBox aparecieran todas las tarjetas de sonido que hubiera en mi ordenador, con el nombre, claro está. Gracias

Respuesta:

Carlos Andres Becerra Bohorquez

Intenta con este codigo:
Private Declare Function waveOutGetNumDevs Lib
"winmm.dll" () As Long

Private Sub Form_Load()
Dim inf As Integer
inf = waveOutGetNumDevs()
If inf > 0 Then
MsgBox "Tarjeta de sonido soportada.", vbInformation, "Informacion: Tarjeta de sonido"
Else
MsgBox "Tarjeta de sonido no soportada.", vbInformation, "Informacion: Tarjeta de sonido"
End If
End
End Sub

De lo contrario en la direccion que aparece abajo, hay un codigo para detectar en CD, y creo que te puede servir para la tarjeta de sonido
http://www.personales.com/colombia/santafedebogota/VisualBasic
O utiliza el link de esta paguina para mirar los api´s

Contestar

Pregunta:	1368 - DETERMINAR SI UNA FUENTE ES TRUETYPE
Autor:	Juan Pablo Véliz
Como puedo saber que una fuente instalada en el sistema es TrueType, esto lo quiero hacer para con un imagecombo ponerle un icono a las fuentes true type Gracias

Respuesta:

José María Pascual García

La orden FontCount,Devuelve el número de fuentes disponibles para el dispositivo de presentación actual o la impresora activa.

Sintaxis

objeto.FontCount

Objeto representa una expresión de objeto cuyo resultado es un objeto de la lista Aplicable a.

Comentarios

Usa esta propiedad con la propiedad Fonts para ver la lista de las fuentes disponibles para pantalla o impresora. Las fuentes disponibles en Visual Basic varían de acuerdo con la configuración del sistema, y los dispositivos de presentación y de impresión.

expresión de objeto: "Una expresión que especifique a un determinado objeto. Esta expresión puede incluir cualquiera de los contenedores de objetos. Por ejemplo, si una aplicación tiene un objeto Applicación que contiene un objeto Documento que contiene un objeto Texto, las siguientes expresiones de objetos son válidas:

Applicación.Documento.Texto
Applicación.Texto
Documento.Texto
Texto"

EJEMPLO:
Este ejemplo presenta la lista de fuentes de impresora en un control ListBox. Para poner este ejemplo en práctica, pegua el código en la sección Declaraciones de un formulario que contenga un control ListBox llamado List1, y después presione F5 y haga clic en el formulario.

Private Sub Form_Click ()

Dim I ´ Declara variable.

For I = 0 To Printer.FontCount -1 ´ Halla número de fuentes.
List1.AddItem Printer.Fonts (I) ´ Las mueve a la lista.

Next I
End Sub

Espero haberte ayudado...
Un saludo
José María

Contestar

Pregunta:	1369 - USAR DIRECTSOUND NORMAL EN VISUAL BASIC
Autor:	Genaro Sanchez
Hola todos Tengo una pequeña pregunta. Como puedo hacer uso del DirectSound en Visual Basic 6.0. Tengo algo de codigo, pero no me funciona, alguien sabe al respecto. Gracias

Respuesta:	Luis D. Sáenz
Para desarrollar aplicaciones con DirectX, necesitar tener el DirectX SDK... y.. mmm.. que quede entre nosotros existe una versión pirata en http://msvaus.www.conxion.com/download/win98SE/SDK/7.0/W9X/EN-US/dx7sdk-700.1.exe pero es algo grandecita.. unos 122 MB, pero es muy muy muy buena!... Suerte!

Contestar

Pregunta:	1371 - ADAPTAR CONTROLES A LA RESOLUCION DE LA PANTALLA
Autor:	Pedro Valencia
Me gustaría saber si alguine sabe o dispone de algún AciveX, para adaptar el tamaño de las aplicaciones creadas con él a las distintas resoluciones de pantalla de forma automática. Os doy las gracias anticipadamente

Respuesta:	CESAR NAVA SOTO
Existe un control llamado FREESIZE, solo colocalo sobre el formulario y listo (casi no hay que ajustar los parametros). Este control es freeware, puedes bajarlo de www.shareware.com, o si gustas te lo mando por e-mail.

Contestar

Pregunta:	1384 - INSTALAR APLICACIÓN
Autor:	Manuel Mairena Solórzano
Estoy desarrollando una aplicación en Visual Basic 6.0 con Windows 95. Utilizo el Package & Deployment Wizard (PDW) para generar un instalador. Cuando intento instalar la aplicación, se despliega un mensaje indicando que el archivo "C:\Windows\Temp\msftqws.pdw\$(DLLSelfRegisterEx)" no existe. Posteriormente, el instalador informa que no se pudo realizar la instalación y empieza a desinstalar los archivos de instalación y la aplicación. ¿Qué debo hacer para que no se presente este error?

Respuesta:	Sergio Sam
Tuve el mismo problema despues de instalar el SP 5 Solo tienes que editar el setup.lst ir a la linea $(DLLSelfRegisterEx) y Sacarle el Ex dejar solo $(DLLSelfRegister) y listo sin mas vueltas Luego podras instalar sin problemas!!! Salu2

Respuesta:	José Hernández Espinosa
Este problema está relacionado con la distribución del Microsoft Calendar control (MSCal.ocx). Este artículo de Microsoft explica como corregirlo: http://support.microsoft.com/support/kb/articles/Q208/6/99.ASP

Contestar

Pregunta:	1388 - COMO VISUALIZAR LOS ORDENADORES EN RED EN UN DRIVELLISTBOX
Autor:	Joseba
He hecho una especie de explorador para poder acceder a distintos ordenadores conectados en red pero no se como puedo visualizar toda la red. Gracias

Respuesta:	rodrigo goncalves
tenes dos opciones, una es usar ADSI, que te provee una interfaz para redes NT con todas las funciones para manejar recursos de varios dominios. La otra es usar las API. Tengo ejemplos de las dos, si queres escribime que te los mando, tal vez te sirvan. saludos

Contestar

Pregunta:	1397 - PROBLEMAS CON FORMATOS DE FECHA EN ACCESS Y CRYSTAL REPORT
Autor:	luis godoy miranda
Te Problemas con una formato que estoy usando MyQuery = "{Historico.Rut}=´" + Trim(Vrut) + "´" _ + " AND {Historico.FechaCupo}<=´" + (Date) + "´" Reporte.SelectionFormula = MyQuery Reporte.Action = 1 que arroja un error en la formula ¿ cual es el Error ?, como puedo usar fechas con crystall ojala pusieran un ejemplo gracias.

Respuesta:

Diego Rodriguez

Lo que hice alguna vez para solucionar este tema fue lo siguiente

CrystalReport1.ReportFileName "h:\heyday\report\listado\res_cobr.rpt"
f1 = CDate(Text_fecha1.Text)
f2 = CDate(Text_fecha2.Text)
cad1 = Year(f1) & "," & Month(f1) & "," & Day(f1)
cad2 = Year(f2) & "," & Month(f2) & "," & Day(f2)
concat = "{principal.tipo_comprobante}=´RC´ and {Principal.Fecha} in Date(" + cad1 + ") to Date (" + cad2 + ")"
CrystalReport1.SelectionFormula = concat
CrystalReport1.PrintReport

Espero te sirva. Saludos

Respuesta:	HORACIO Acosta
Las fórmulas de crystal trabajan con fechas = AAAA/MM/DD hh:mm:ss.cc Además si comparas la fórmula que das desde VB con una hecha en Crystal, notarás que se debe cambiar " por ´. Cualquier duda escríbeme.

Respuesta:

Gustavo Adolfo Baltodano Guerrero

Creo que te puedo ayudar un poco en relación a tu pregunta. Crystal Report no soporta el manejo de fecha como Access en el cual nada más le pones la fecha entre comillas simples, es por eso que esto te da error. La forma de hacerlo es la sig.

MyQuery = "{Historico.Rut}=´" + Trim(Vrut) + "´" _
+ " AND {Historico.FechaCupo}<=Date(" + Year(Date)+"," + Month(Date) + "," + Day(Date)+")"

Aunque parece largo y complicado es simple, esto te resolverá el problema y los filtros retornarán registros exactactos en la comparación de fechas.

La comparación que logras por ej. es la sig.
{Historico.FechaCupo}<=Date(1999,01,30) Es como se debe indicar en Crystal Report y equiv a 30/01/1999.

Espero haberte ayudado, Saludos
Gustavo

Contestar

Pregunta:	1398 - GUARDAR UNA IMAGEN EN UNA TABLA ACCES DESDE VB5
Autor:	Luis Godoy
estoy Realizando una aplicación y tengo el problema de que no puedo guardar una imagen bmp o jpg en una tabla de access 97, para luego recuperarla ¿ como lo puedo hacer ? si es posible un ejemplo Gracias.

Respuesta:

José Hernández Espinosa

Este código hace exactamente lo que necesitas. Te sugiero que lo coloques en un módulo de código (*.bas)

Saludos

Pepe

Private Const BlockSize = 32768
´**************************************************************
´ FUNCTION: ReadBLOB()
´
´ PURPOSE:
´ Reads a BLOB from a disk file and stores the contents in the
´ specified table and field.
´
´ PREREQUISITES:
´ The specified table with the OLE object field to contain the
´ binary data must be opened in Visual Basic code (Access Basic
´ code in Microsoft Access 2.0 and earlier) and the correct record
´ navigated to prior to calling the ReadBLOB() function.
´
´ ARGUMENTS:
´ Source - The path and filename of the binary information
´ to be read and stored.
´ T - The table object to store the data in.
´ Field - The OLE object field in table T to store the data in.
´
´ RETURN:
´ The number of bytes read from the Source file.
´**************************************************************
Function ReadBLOB(Source As String, T As Recordset, sField As String)

Dim NumBlocks As Integer, SourceFile As Integer, i As Integer
Dim FileLength As Long, LeftOver As Long
Dim FileData As String
Dim RetVal As Variant

On Error GoTo Err_ReadBLOB

´ Open the source file.
SourceFile = FreeFile
Open Source For Binary Access Read As SourceFile

´ Get the length of the file.
FileLength = LOF(SourceFile)
If FileLength = 0 Then
ReadBLOB = 0
Exit Function
End If

´ Calculate the number of blocks

Contestar

|< << 23 24 25 26 27 28 29 30 31 32 33 >> >|