PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	34210 - PROBLEMAS CON FECHAS CON ORACLE
Autor:	exis lagos
Estoy desarrollando una aplicación con Visual Basic 5 y Oracle 8. El problema se produce cuando guardo una fecha esta se graba cambiando el día por el año (digito 13/05/2002 y me graba 02/05/2013), en otros casos cambia al grabar el día por el mes (digito 12/05/2002 y se graba 05/12/2002). Esto pasa sólo en algunos Pcs donde está la aplicación, no en todos (ya revicé la configuración regional y la fecha de setup y no pasa nada). Agradecería las posibles pistas para solucionar este problema. De antemano Gracias

Respuesta:	MARCO SANTIS AZUA
Amigo: No mencionas si usas un formato para ingresar la fecha, si no lo haces deberias ingresarla de la siguiente manera: TO_DATE('29/04/2003', 'dd/mm/yyyy')

Contestar

Pregunta:	34249 - ¿COMO CREO UN PERMISO DESDE VISUAL EN WINDOWS NT?
Autor:	Luis Rincón
Necesito Terminar un programa que otorga permiso o clave de acceso a los estudiantes de una sala de informatica. se usa NT. Necesito saber como creo un permiso de usuario atravez de visual basic en windows NT. les Agradeceria mucho su ayuda?

Respuesta:

FRANCISCO ZORRILLA

para crear un simple programita de acceso a una o varias maquinas primero: crear una base de datos centralizada o un servidor de base de datos en red o por internet con las demas maquinas
luego crea en la base de datos una tabla que tenga campos(usuario, contraseña, perfil, roll, o ulgun otro campo de interes), luego desde visual basic has un formulario donde preguntes por un usuario y una contraseña el la base de datos centralizada y si el usuario esta registrado le das acceso si no un error, reguerda que en las propiedades del formulario tienes que quitar las opciones de maximizar , minimizar y cerrar para que a juru tengan que introducir su usuario para poder ingresar

Contestar

Pregunta:	34250 - ISAM INSTALABLE
Autor:	oscar
Intento trabajar con .DBF, Y NO CONSIGO ACCEDER a las bases siempre me devuelve el siguiente error: "No se puede encontrar el ISAM INSTALABLE" Podeis decirme algo? Gracias.

Respuesta:	Jose Teran
Lo que tines que hacer es lo Siguiente: Cuando generes el instaldor con el asistente de empaquetado y distribución y te diga controles disponibles, incluye este " xbase: dbase5.0,dbaseIII etc.." seleccionalo y luego siguiente , eso es todo cualquier sugerencia enviala

Respuesta:	Victor Edgar Cairo
Hola amigo: Estuve revisando las preguntas sin responeder y creo que la solucion a tu problema es instalando todas las caracteristicas del Visual Fox pro,al instalar veras un boton Change Option,entonces revisa alli y veras algo que tenga ver con ISAM,prueba con esa variante

Contestar

Pregunta:	34255 - VISUAL BASIC 5.0 CON WINDOWS XP CONTROLES NO REGISTRADOS
Autor:	José Bueno
Tengo una aplicación que corre perfectamente en Windows XP pero al intentar realizar una modificación al fuente, me da un mensaje que me indica que los controles MaskEdit, DbGrid, MsFlexGrid, y los compnentes del COMCTL32 no se han registrado y por supuesto no los carga en el programa. Al tratar de hacer una nueva aplicación e intentar utilizar cualquiera de los componentes me dice que el componente no ha sido registrado. 1.- ¿ como registro el componente ? ---> Ya intenté con REGSVR32

Respuesta:	SuNcO
Me paso el mismo problema, con nada se solucionaba incluso borrando manualmente las partes del registro donde se supone se registran Cual fue la solucion ? Yo utilizo VB5, pero al instalar el VB6 todo se arreglo, asi que volvi a instalar el VB5 de nuevo y listo (todo un show) Otra solucion una vez hace mucho fue reinstalar el Windows

Contestar

Pregunta:	34271 - MANEJO DE IMAGENES
Autor:	Cristian Arley Salas cano
Como puedo rotar una imagen en un picturebox

Respuesta:

angel bueno

Rotar una imagen

El código que veremos a continuación sirve para rotar una imagen 90, 180 y 270 grados. Esta imagen puede estar contenida en cualquier objeto que tenga la propiedad hDC (formulario, picture, etc).
Se le pasan como parámetros el hDC del objeto que contiene la imagen, los grados a rotar, y las coordenadas del área que queremos rotar (en pixels).

Este código emplea Get y Set BitmapBits para rotar una imagen dentro de un hDC. Como usa intensamente matrices, se puede incrementar la velocidad de ejecución en el ejecutable compilado desactivando el chequeo de los límites de los arrays.

Pega este código en un módulo :

Ver Código

Y para usarlo, simplemente :

RotatePicture Me.hDC, amount180Degrees, 0, 0, 300, 300

He realizado algunas pruebas con picturebox y parece que tiene en cuenta los bordes, por lo que hay que restarle algunos pixels :

Codigo:
RotatePicture Picture1.hDC, amount180Degrees, 0, 0, (Picture1.Width / Screen.TwipsPerPixelX) - 4, (Picture1.Height / Screen.TwipsPerPixelY) - 4

Respuesta:	Hector Shamir Perez
Hola Cristian, Lo que quieres no es posible, para eso tendrías que utilizar otro control ActiveX. Los Image y PictureBox son solo para mostrar imagenes, con la diferencia que el Image puedes var la imagen de diferentes tamaños y el PictureBox funciona ademas como contenedor. Te recomendaría buscar un control que haga lo que quieres. Lamento no haberte sido util.

Contestar

Pregunta:	34272 - MANIPULACION DE IMAGENES
Autor:	Cristian Arley Salas cano
Como puedo rellenar una imagen en un picturebox con un color

Respuesta:

Agustín Dávila

Supongo que te refieres a rellenar areas en un dibujo de un color. Para esto debes utilizar la Api de Windows: Floodfill. Te mostraré un ejemplo:

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim v As Long, j(3) As Integer
j(0) = Int(Rnd * 256)
j(1) = Int(Rnd * 256)
j(2) = Int(Rnd * 256)
Form1.FillColor = RGB(j(0), j(1), j(2))
v = FloodFill(Form1.hdc, X, Y, 0)
End Sub

Contestar

Pregunta:	34313 - COMO SABER SI UN FORM ESTA ABIERTO
Autor:	José Franco
necesito saber si un form esta activo, porque en un boton llamo un form llamando consulta, pero si por error le doy 2 click al boton me da error porque el form ya fue llamado

Respuesta:	SuNcO
Te tengo 2 posibles soluciones : 1.- Poner al inicio del procedimiento del boton el capturador de errores asi : On Error Resume Next 2.- Solo pon : if consulta.visible = false then load consulta consulta.show 1 else ' Aqui entra si ya esta abierto msgbox "Ya se abrio el formulario" endif

Contestar

Pregunta:	34386 - COMO BLOQUEAR LA EJECUCIÓN DE UNA APLICACIÓN
Autor:	MIGUEL ANGEL TOVAR
Alguien sabe si exite una rutina o una función de la api de windows que me permita restringir la ejecuión de una aplicación en particular. Gracias

Respuesta:

Juan Carlos Zuñiga Rodriguez

Tal vez exista alguna API para hacer lo que quieres, otra forma de lograrlo es buscando la aplicacion y si esta abierta entonces cerrarla o bloquearla, esta funcion se utiliza para buscar aplicaciones abiertas:

La puedes usar asi:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const IExplorer = "IEFrame"
resultado = FindWindow(IExplorer, vbNullString)

Este codigo busca la aplicacion de Internet Explorer y si se encuentra abierta devuelve como resultado la Hwnd.

Con esta otra funcion podrias bloquear la aplicacion encontrada:

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

EnableWindow resultado, False

Ademas, requieres saber el nombre de la clase de la aplicacion que quieres bloquear, aqui algunos ejemplos:

Const Word = "OpusApp"
Const Excel = "XLMAIN"
onst IExplorer = "IEFrame"
Const MSVBasic = "wndclass_desked_gsk"
Const NotePad = "Notepad"
Const Explore = "ExploreWClass"
Const Mipc = "CabinetWClass"
Const Msdos = "tty"

Espero esto te sirva de algo...

Saludos..

Contestar

Pregunta:	34402 - CAMBIO DE RESOLUCION DE PANTALLA EN WINXP
Autor:	Enrique García Polo
Desearía saber como puedo cambiar la resolucion de pantalla en Windows Xp, ya q con la api q usaba para cambiarla en el resto de los windows ya no funciona en Windows Xp, sólo consigo sacar las resoluciones disponibles pero no cambiarla. Ruego ayuda urgente pues es para un trabajo y me queda poco tiempo, Muchas Gracias!!!

Respuesta:

SuNcO

Con este si me funciona :

Requieres :

1 check (nombre = chkBits)
1 command_button (nombre = command1)
2 label (nombres = label1(0) y label1(1))
1 list (nombre = list1)

' Option Explicit

Private Type tResol
Width As Long
Height As Long
Bits As Integer
End Type
Private Disponibles() As tResol

Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" _
(ByVal lpszDeviceName As Long, ByVal iModeNum As Long, _
lpDevMode As Any) As Boolean

Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" _
(lpDevMode As Any, ByVal dwflags As Long) As Long

Const CCDEVICENAME = 32
Const CCFORMNAME = 32
'Las declaraciones de estas constantes están en: Wingdi.h
Const DM_BITSPERPEL = &H40000
Const DM_PELSWIDTH = &H80000
Const DM_PELSHEIGHT = &H100000

Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer

dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer

dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type

Dim DevM As DEVMODE

Private Sub Form_Load()
'Mostrar las resoluciones disponibles
Dim a As Boolean
Dim i As Long

With Screen
Label1(0) = "Resolución actual: " & (.Width \ .TwipsPerPixelX) & " x " & _
(.Height \ .TwipsPerPixelY)
End With
i = 0
Do
a = EnumDisplaySettings(0&, i&, DevM)
i = i + 1
If a Then
'Mostrar en el listbox las resoluciones disponibles
List1.AddItem Format$(DevM.dmPelsWidth, " @@@@") & " x " & _
Format$(DevM.dmPelsHeight, "@@@@") & " " & _
Format$(DevM.dmBitsPerPel, "@@") & " bits"
'Guardar esos datos en nuestro array
'de las resoluciones disponibles
ReDim Preserve Disponibles(i - 1)
With Disponibles(i - 1)
.Width = DevM.dmPelsWidth
.Height = DevM.dmPelsHeight
.Bits = DevM.dmBitsPerPel
End With
End If
Loop While a
'Deshabilitar el botón hasta que se seleccione algo
Command1.Enabled = False
End Sub

Private Sub Command1_Click()
'Cambiar a la resolución indicada
Dim i As Long

'índice de la selección en el ListBox
i = List1.ListIndex

'Se le indica los campos a tener en cuenta
'
'Si sólo se quiere cambiar la resolución,
'manteniendo los colores:
DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT
'Si se quiere cambiar también los colores
If chkBits.Value Then
DevM.dmFields = DevM.dmFields Or DM_BITSPERPEL
'DevM.dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_BITSPERPEL
End If

With Disponibles(i)
DevM.dmPelsWidth = .Width
DevM.dmPelsHeight = .Height
DevM.dmBitsPerPel = .Bits
End With

Call ChangeDisplaySettings(DevM, 0)

With Screen
Label1(0) = "Resolución actual: " & (.Width \ .TwipsPerPixelX) & " x " & _
(.Height \ .TwipsPerPixelY)
End With

End Sub

Private Sub List1_Click()
Dim i As Long

i = List1.ListIndex
'Mostrar en el label la resolución seleccionada
Label1(1) = "Cambiar a: " & Disponibles(i).Width & " x " & _
Disponibles(i).Height & " " & _
Disponibles(i).Bits & " bits"
'Ya hay una selección, habilitamos el botón
Command1.Enabled = True
End Sub

Contestar

Pregunta:	34406 - CAMBIAR LAS PROPIEDADES DEL MODEM DESDE 1 APLICACION V.BASIC
Autor:	Carlos Gallardo
Mi problema es que estoy realizando una aplicación en visual basic para configurar un modem con unos datos determinados y no se como referirme a las propiedades del modem que tengo que tocar. Si pudierais ayudarme me seria de mucha utilidad, gracias.

Respuesta:	Ramon Diaz
La comunicacion con el modem se hace mediante comandos AT y se puede configurar con comandos AT visita esta pagina http://www.iespana.es/canalhanoi/hardware/modem.htm Casi al final tienes comandos (Registro S) para configurarlo Com Mscomm activas la señal DTR y envias ATS11? y te devuelve un el eco y el valor del registro

Contestar

|< << 221 222 223 224 225 226 227 228 229 230 231 >> >|