PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	44378 - PREGUNTA
Autor:	Fco. Javier Olvera
¿Cómo utilizar el PictureClip?

Respuesta:

SuNcO

Si revisaras la Ayuda facilmente podrias saber para que es ese Control

Basicamente es para poner una imagen con varias imagenes dentro para posteriormente utilizarlas en diferentes PictureBox en tu Proyecto

El ejemplo que trae lo pego integramente aqui.. Practicamente el ejemplo dice que se toman las coordenadas de donde esta la imagen, se toma su medida y se pasan al PictureBox

Private Sub Form_Click ()
Dim SaveMode As Integer
' Guarda el ScaleMode activo para el cuadro de
' imagen.
SaveMode = Picture1.ScaleMode
' Obtiene las coordenadas X e Y de la región de
' recorte (en píxeles).
PicClip1.ClipX = Val(Text1.Text)
PicClip1.ClipY = Val(Text2.Text)
' Establece el área de la región de recorte
' (en píxeles).
PicClip1.ClipHeight = 100
PicClip1.ClipWidth = 100
' Asigna el valor ScaleMode del cuadro de imagen
' a píxeles.
Picture1.ScaleMode = 3
' Establece el área de destino para llenar el
' cuadro de imagen.
PicClip1.StretchX = Picture1.ScaleWidth
PicClip1.StretchY = Picture1.ScaleHeight
' Asigna el mapa de bits recortado al cuadro
' de imagen.
Picture1.Picture = PicClip1.Clip
' Restablece el valor ScaleMode del cuadro de imagen.
Picture1.ScaleMode = SaveMode
End Sub

Contestar

Pregunta:	44382 - VISUAL BASIC
Autor:	AWINDA VELAZCO
buenos dias no soy experta en programacion pero me gustria serlo quisiera saber como puedo agregar un control en tiempo de diseño en un formulario ejemplo en un lazo, por cada elemento que consiga en una base de dato me agregue un checkbox en un formulario y la lado el elemento en un textbox agradezco su ayuda

Respuesta:

Agustín Dávila

Es muy facil.Primero tienes que crear un objeto (probaremos con un Textbox) en el formulario y ponerle la propiedad de Visible=False e Index=0.
Después para crear un nuevo Textbox sólo debes utilizar la sentencia Load, de esta manera:

i=i+1
Load Text1(i) ' Donde i es el número de textbox que deseas generar.
Text1(i).visible=true ' Después le pones que sea visible porque por defecto cuando creas un nuevo control está invisible.

Contestar

Pregunta:	*44383 - COMO EJECUTO UN PROGRAMA (.EXE)**
Autor:	miguel arigon
Hola amigos : me estoy iniciando en el mundo vb y quiero abrir un programa (*.exe) desde un boton en mi aplicacion y no se como porfa alguien ke me ayude. saludos

Respuesta:	sergio DC
con la funcion shell. Solo le tienes que pasar por parametros la ruta completa. Me parece que la ruta relativa no valia, pero pruebalo de todas formas

Contestar

Pregunta:	44385 - CONECTAR UN ARCHIVO DE AYUDA CON UN PROYECTO DE VISUAL BASIC
Autor:	Roberto Fernández
Como puedo conectar un archivo de ayuda con un proyecto de Visual Basic de modo interactivo

Respuesta:

SuNcO

Bueno eso depende, si el Archivo de ayuda lo hisiste tu o no

En cualquier de los 2 casos ve al menu Proyecto y Propiedades de Proyecto y hay un apartado llamado Nombre del Archivo de Ayuda

Si el Archivo lo hisiste tu entonces utilizaste unos numeros que son clave para cada tema del Archivo de Ayuda. Esos numeros se ponen en la Propiedad HelpContextID que lo tienen los TextBox, Commandbutton y varios mas.. esto quiere decir que al ese objeto tener el Foco y presionar F1 se va a ir a ese tema en el Archivo de Ayuda

Contestar

Pregunta:	44392 - NÚMERO DE LÍNEAS DE CAJAS DE TEXTO
Autor:	Carlos Piña
Quiero saber si en Visual Basic se puede contar el número de líneas de una caja de texto y si al buscar un caracter se puede obtener el número de la línea donde se encuentra.

Respuesta:

SuNcO

Si, se puede con Api's

Este codigo requiere 2 Labels (Label1,Label2), un Timer con Interval de 100 y por supuesto un TextBox (Text1)

En el Label 1 se va a poner cuantas lineas tiene el TextBox y en el Label2 se pone en cual linea estas actualmente

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_GETLINECOUNT = &HBA

Sub Text1_Change()

Dim lineCount As Long
On Local Error Resume Next

'get/show the number of lines in the edit control
lineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
Label1.Caption = Format$(lineCount, "##,###")

Dim currLine As Long

On Local Error Resume Next
currLine = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, -1&, ByVal 0&) + 1
Label2.Caption = Format$(currLine, "##,###")
End Sub

Private Sub Timer1_Timer()
Dim lineCount As Long
On Local Error Resume Next

'get/show the number of lines in the edit control
lineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0&, ByVal 0&)
Label1.Caption = Format$(lineCount, "##,###")

Dim currLine As Long

On Local Error Resume Next
currLine = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, -1&, ByVal 0&) + 1
Label2.Caption = Format$(currLine, "##,###")
End Sub

Por supuesto, fuera mas sencillo si el Foro permitiera subir Archivos (creo que ya se esta trabajando en ello)

Contestar

Pregunta:	44412 - DAR PRIORIDAD A UN PROCESO EN LA CPU
Autor:	Ismael
Tengo un programa que me transmite tramas por el puerto serie y necesito que sea cada 20 milisegundos al tener que ejecutar varios programas simultaneamente como el mio necesita atender a los sockets el tiempo se alarga de 20 a 100 milisegundos, ¿Hay alguna forma de aumentar la prioridad de mi proceso? ¿Se puede poner mas prioridad en la CPU de este proceso sobre los demás? Se acepta cualquier idea

Respuesta:

Boluart Bedoya

MIra aqui te paso parte del código que yo uso para darle prioridades a mi programa en este caso uso GetCurrentProcess para obtener el proceso actual (el de mi programa) si quieres puedes darle cualquier otro proceso que se este ejecutando en ese momento y darle la prioridad que deseas

Const THREAD_BASE_PRIORITY_IDLE = -15
Const THREAD_BASE_PRIORITY_LOWRT = 15
Const THREAD_BASE_PRIORITY_MIN = -2
Const THREAD_BASE_PRIORITY_MAX = 2
Const THREAD_PRIORITY_LOWEST = THREAD_BASE_PRIORITY_MIN
Const THREAD_PRIORITY_HIGHEST = THREAD_BASE_PRIORITY_MAX
Const THREAD_PRIORITY_BELOW_NORMAL = (THREAD_PRIORITY_LOWEST + 1)
Const THREAD_PRIORITY_ABOVE_NORMAL = (THREAD_PRIORITY_HIGHEST - 1)
Const THREAD_PRIORITY_IDLE = THREAD_BASE_PRIORITY_IDLE
Const THREAD_PRIORITY_NORMAL = 0
Const THREAD_PRIORITY_TIME_CRITICAL = THREAD_BASE_PRIORITY_LOWRT
Const HIGH_PRIORITY_CLASS = &H80
Const IDLE_PRIORITY_CLASS = &H40
Const NORMAL_PRIORITY_CLASS = &H20
Const REALTIME_PRIORITY_CLASS = &H100
Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function GetPriorityClass Lib "kernel32" (ByVal hProcess As Long) As Long
Private Declare Function GetCurrentThread Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Sub Form_Load()
Dim hThread As Long, hProcess As Long
hThread = GetCurrentThread
hProcess = GetCurrentProcess
SetThreadPriority hThread, THREAD_PRIORITY_LOWEST
SetPriorityClass hProcess, IDLE_PRIORITY_CLASS
Me.AutoRedraw = True
Me.Print "Current Thread Priority:" + Str$(GetThreadPriority(hThread))
Me.Print "Current Priority Class:" + Str$(GetPriorityClass(hProcess))
End Sub

Contestar

Pregunta:	44430 - ERROR ADODC AL INSTALAR MI PROGRAMA EN OTRO ORDENADOR
Autor:	DIEGO
Cuando instalo mi programa (en visual 6) en algunos ordenadores, me aparece un error en mi objeto adodc:("No es un archivo compuesto valido"). Todos los equipos en los que lo he probado tienen windows xp actualizado, tanto en los que funciona como en los que no. La instalacion la realizo con visual studio installer. Alguien me puede ayudar?? GRACIAS.

Respuesta:	SuNcO
Jamas habia visto ese mensaje de error. Hace poco tuve un error con el Adodc; lo que pasaba es que el Visual Studio Installer no me detectaba la Referencia del Adodc.. de hecho si la detectaba pero el problema era que no la registraba en el Registro de Windows Intenta registrandola manualmente con "regsvr32 dao350.dll"

Contestar

Pregunta:	44437 - RESOLVER HOSTNAME CON WINSOCK
Autor:	Michael Grey
Buenos dias; Estoy creando un Explorador con Visual Basic. Utilizo el Winsock para hacer las transacciones TCP/IP. Quiciera saber como resolver un Hostname a IP. Ejemplo: RemoteHostName="www.paparapa.com.ar" Deseo obtener la IP (con un DNS?). Remoteip="xxx.xxx.xxx.xxx" Para luego conectarme a esa pagina. Desde ya muchas gracias,

Respuesta:	SuNcO
Si utilizas el control WinSock no veo la necesidad de convertir el Host a Ip ya que segun los muchos programas donde utilizo Host o Ip me funciona bien WinSock1.RemoteHost = "www.hotmail.com WinSock1.RemoteHost = "207.46.107.35" Las 2 maneras me funcionan bien en distintos programas Si no, intenta con la Propiedad RemoteHostIp

Contestar

Pregunta:	44458 - CORTE DE PAPEL PARA IMPRESORAS DE TICKETS
Autor:	MIGUEL ANGEL PRECIADO MOSQUERA
HOLA HE DESARROLLADO UN PROGRAMA APLICATIVO PERO CUANDO FUI A INSTALARLO ME COLOCARON PARA INSTALARLE UNA IMPRESORA DE TICKETS PERO ESTA TIENE UNA CUCHILLA DE CORTE DE PAPEL Y EL PROGRAMA IMPRIME NORMALMENTE EL RECIBO PERO NO HE PODIDO CONFIGURARLA PARA QUE CORTE EL PAPEL NO SE QUE HACER POR EL MOMENTO , ES UNA EPSON EPSON TM-U210 /ECP QUIEN ME PUEDA COLABORAR CON EL CODIGO QUE HASTA AHORA NO HE PODIDO HACERLA QUE HAGA EL CORTE DE PAPEL DESPUES DE LA IMPRESION . GRACIAS.....

Respuesta:	Maximiliano Colace
El corte de papel en las Epson es Chr(27)+"i" Yo lo uso con el mscomm. mscomm1.Output = Chr(27) + "i" Saludos.

Respuesta:

Luis Bueno

Hola :

Mira una vez Yo hice una aplicacion con una impresora termina OLIVETTI con la opcion para cortar. Tienes 2 Opciones usandola instalando por Driver
o
Utilizando los comandos atraves del puerto serial de la impresora...

Yo use la 2a opcion porq es mas rapido.......a los drivers instalados

usando el mscomm

caracter + chr(10) + chr(13)

La verdad ahoritra no lo tengo el codigo a la mano..Lo hice el 2000..

Respuesta:	guafrido
Yo tengo una impresora de etiquetas, aunque no es de esa marca. Normalmente esa opción que dices puede estar en el propio driver de la impresora. En la mía por ejemplo basta con meterle el modificador /C en la caja de texto de opciones del propio driver. Probablemente encuentres la respuesta en el manual del fabricante. Un saludo.

Contestar

Pregunta:	44466 - PERMISOS PARA COPIAR Y BORRAR BASE DE DATOS EN W. 2000 SERVE
Autor:	Agustín Dávila Martín
Hola buenas, mi problema es que tengo una aplicación en visual basic que está conectada a una base de datos access que está en un servidor. La carpeta donde se halla la base de datos tiene todos los permisos porque sino no me deja conectarme a la base de datos desde la aplicación; y claro,a esa base de datos puede acceder cualquiera y se la puede copiar o la puede borrar. Ya he intentado restringir permisos para esa carpeta, pero si lo hago después no me deja conectarme con la aplicación, la conectividad está en DAO 3.6, ¿ hay alguna manera de restringir permisos a la carpeta o a la base de datos pero que me deje trabajar con la aplicación ?

Respuesta:

Tomas Fermin

Hola Soy tomas fermin, mira creo que la mejor manera de hacer eso es creando un campo en la todas la tablas de la base de datos, digo esto por que creo que si un una aplicación trabaja en red debe tener diversos accesos con los diferentes usuarios y con permisos explicitos, en fin lo que quiero decir es que con el campo que te dije que hicieras en todas las tablas podras manejar lo diferentes permisos de los usuarios que ingresen al sistema o aplicación, en estos campos podras poner una determinante de permisos, que dependiendo del ususrio que inicie tendra acceso o no a la información en la base de datos...

Creo que es la manerta mas logica de hacer eso...

Contestar

|< << 251 252 253 254 255 256 257 258 259 260 261 >> >|