PREGUNTAS CONTESTADAS - Velneo

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	5621 - ROTAR TEXTO DE UN TEXTBOX
Autor:	Salvador Garufo
Deseo saber si alguien puede decirme como hago en Visual Basic para rotar un texto escrito en un textbox en una cantidad de grados puesto en otro textbox y que se imprima de esa forma.

Respuesta:

José Ariel Limandri

Lo que tenes que hacer es rotar el texto pero ponerlo en un PictureBox (no en un TextBox) ya que el texto mas que texto se convierte en un grafico.
Crea un form con 1 PictureBox (Grande) y pegale esto

Option Explicit

Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long, ByVal W As Long, ByVal E As Long, ByVal O As Long, ByVal W As Long, ByVal I As Long, ByVal u As Long, ByVal S As Long, ByVal C As Long, ByVal OP As Long, ByVal CP As Long, ByVal Q As Long, ByVal PAF As Long, ByVal F As String) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Sub DrawRotatedText(ByVal target As Object, _
ByVal txt As String, _
ByVal X As Single, ByVal Y As Single, _
ByVal font_name As String, ByVal size As Long, _
ByVal weight As Long, ByVal escapement As Long, _
ByVal use_italic As Boolean, ByVal use_underline As Boolean, _
ByVal use_strikethrough As Boolean)

Const CLIP_LH_ANGLES = 16 ' Needed for tilted fonts.
Const PI = 3.14159625
Const PI_180 = PI / 180#

Dim newfont As Long
Dim oldfont As Long

newfont = CreateFont(size, 0, _
escapement, escapement, weight, _
use_italic, use_underline, _
use_strikethrough, 0, 0, _
CLIP_LH_ANGLES, 0, 0, font_name)

oldfont = SelectObject(target.hdc, newfont)

target.CurrentX = X
target.CurrentY = Y
target.Print txt

newfont = SelectObject(target.hdc, oldfont)

DeleteObject newfont
End Sub

Private Sub Form_Load()
Const PI = 3.14159265
Dim angle As Long
Width = Width - ScaleWidth + Picture1.Width
Height = Height - ScaleHeight + Picture1.Height
Picture1.Move 0, 0

angle = 100 * 180 / PI * Atn(Picture1.ScaleHeight / Picture1.ScaleWidth)

Picture1.AutoRedraw = True
Picture1.ForeColor = vbRed
DrawRotatedText Picture1, _
"Hola Mundo", _
1000, 500, _
"Times New Roman", 40, 700, _
angle, False, False, False

Picture1.Picture = Picture1.Image
End Sub

Contestar

Pregunta:	5624 - CONTROLAR UNA INSTANCIA DE WORD DESDE VISUAL
Autor:	Gabriel
Me gustaría q me respondieseis al siguiente problema: Quiero controlar Word desde Visual Basic de tal forma q pueda abrirlo si no lo está, aprovecharme de él para darle formato a un texto y mandarlo a imprimir como si fuera un informe pero hecho en Word.Pienso q lo hago todo bien pero no me cierra adecuadamente la aplicación y se queda en memoria.El código q adjunto es el siguiente: Dim wordi As Word.Application Dim nuevo As Word.Document Set wordi = New Word.Application //Abro Word Set nuevo = wordi.Documents.Add //Abro documento nuevo.Activate //Lo pongo como activo With selection ------- //Aquí le aplico el formato al texto End with nuevo.PrintOutRange:=wdPrintCurrentPage //imprimo nuevo.close // cierro el documento set wordi=nothing // cierro word El problema es que me sigue en memoria la instancia de Word con los problemas al efectuar de nuevo la operación. También me gustaría q me dijérais como controlar si Word está abierto para abrir un documento y cerrarlo sin q se cierre la instancia de Word Un saludo

Respuesta:

Joan-Baptista Fàbregas Muñoz

Hola.

El problema lo tienes basicamente al hacer "set wordi=nothing" con el word, esto lo unico que hace es desvincular el objeto wordi de la aplicacion de word, para cerrar realmente el Word, el codigo es:

wordi.Quit 'Esto realmente cierra el word
set wordi=nothing

En cuando a la segunda pregunta, seria muy complejo determinar si hay una aplicacion de word activa. En todo caso ten en cuenta que cuando abres directamente un documento de word sin abrir la aplicacion, si no esta vinculado, el mismo abre una aplicacion de word que puedes controlar accediendo a la propiedad Aplication del objeto documento. Esta propiedad realmente es un objeto aplicacion de Word que "contiene" al documento.

Espero haberte sido de ayuda.

Saludos.

Contestar

Pregunta:	5630 - POSICIONARME EN UN LUGAR DETERMINADO DE UN TEXTBOX
Autor:	Hector Manuel Becerra Gonzalez
Cargo el codigo fuente en lenguaje C en un textbox, lo que quisiera saber es como puedo pusicionarme de forma automatica en cierto renglon para denotar donde existe un error del codigo fuente.

Respuesta:	Gabriel Memmel
Una forma de localizarte en un textbox es sabiendo en que número de caracter está el error y así mover el cursor de texto con la propiedad 'SelStart' del textbox y hasta incluso puedes seleccionar la palabra con la propiedad 'SelLength' del mismo dandole como valor la longitud de la palabra. Espero que te sirva.

Contestar

Pregunta:	5644 - INDEX EN ADO?
Autor:	Hubert Diaz Rodriguez
He busado la forma de acceder a indices mediante un Recorset de ADO y no lo he encontrado. Alguien me puede decir como puedo hacer una busqueda mediante un Indice(Index), y si no se puede ¿Por que?. Trabajo con base de Datos de ACCESS.

Respuesta:	Guillermo Rauch
Lamento decirte que ADO no maneja indices. Tendrás que usar DAO y que busque por una consulta sql, o como quieras vos. Con sql es bastante buena la busqueda;

Contestar

Pregunta:	5648 - COMBOBOX EN EXCELL
Autor:	Miguel Barea
Quisiera saber si es posible en Excell, conseguir que en un rango de celdas determinado al activar una celda aparezca hay mismo un ComboBox con una lista y reflejar la selección y así sucesivamente. Si fuera posible indicarme como realizar la macro, porque no puedo cambiar de ubicación el ComboBox

Respuesta:

carlos hernandez huerta

haber si te entendi, lo primero que debes hacer es escribir la lista en celdas ya sea en la misma hoja u en otra, lo segundo dale click derecho al combobox, elige propiedades y en las pestañas elige rangos, ahora teclea el rango o seleccionalo y finalmete dale click fuera del combo y nuevamente en el combo y !!!!listo¡¡ si no te equivocaste te saldra la lista, pero si lo que deceas es hacer es directamente como si tuviera un propiedad list no se. lo siento, si sabes usar el winsock, ayudame, necesito mandar un mensaje que se visualice en otra pc por medio de red. thanks

Contestar

Pregunta:	5650 - PROBLERMAS CON INSTALADORES PROGRAMA VISUAL BASIC 6.0
Autor:	Claudia Carrasco
Al instalar sistema creado con Visual Basic genera un error y desintala. El error es que falta un archivo temporal. Al finalizar la instalación antes que envie el mensaje instala correctamente. ¡Cuál será el problema?

Respuesta:	pedro prados cuenca
a mi se me dió un problema similar hace poco y fue porque le puse al programa la calculadora de windows. la solucion fue editar el fichero setup.lst que crea el asistente de aplicaciones buscar la entrada de la calculadora y borrarle a SelfRegisterEx las ultimas letras "Ex". espero que sea este el problema y te sirva de ayuda.

Contestar

Pregunta:	5655 - MACRO AUTOCLOSE DE WORD 97
Autor:	Jose Requeijo Figueiras
Hola a todos, Estoy desarrollando un programa en Visual Basic 6 en el cuál se trabaja con un documento de Word 97. Dicho documento tiene cargada una macro AutoClose a la que el Word no responde. También utiliza otras macros automáticas que sí funcionan bién, solo falla la AutoClose ya que al cerrar el documento con el botón del aspa no ejecuta la macro. Estoy seguro de que la macro está cargada así que creo que quizá no esté cargada en el lugar correcto. ¿Alguien puede ayudarme? Gracias por anticipado.

Respuesta:	Israel Fernández Flores
cambia la macro AutoClose por el evento Document_Close Las macros tipo AutoClose, AutoOpen, no se usan desde la aparición de office 97. Si tienes alguna duda, ya sabes Un saludo

Contestar

Pregunta:	5670 - COMAPARAR UNA BASE DE DATOS
Autor:	david Moreno
Estoy programando con el Vb5 y la base de datos esta en Access quiero saber que poner para comparar una base de datos con otra y los datos que no esten en un pasarlo al otro Tablas, Registros, Etc.. por favor hacer posible mandar código o un programita con sus códigos Gracias

Respuesta:	DIEGO GUIDA
VAN DIRECCIONES SOBRE EL TEMA... Total Access Detective By Tom Cryan http://www.dbws.com Total Access Detective is a third party add in by FMS, http://www.fmsinc.com, designed to compare differences between any two Microsoft Access Databases or Objects. OTRA, CON EL MEJOR EJEMPLO !!!!!!!!!! http://www.elementkjournals.com/ivb/0004/ivb0041.htm

Contestar

Pregunta:	5684 - COMO CANCELAR APLICACIONES EJECUTANDOSE
Autor:	Luis Felipe Rivera Gonzalez
Hola Todos. Sabe alguien como cerrar una aplicacion en Windows NT que se esta ejecutando con Visual Basic ??. saludos y gracias de antemano.

Respuesta:	Victor Santander R.
Debes entrar al administrador de tareas de windows NT (presionando ctrl-alt-del), donde aparecerá la lista de aplicaiones ejecutándose, debes seleccionar la aplicación Visual Basic y presionar el botón finalizar tarea.

Contestar

Pregunta:	5711 - COMPRIMIR Y DESCOMPRIR UN ARCHIVO ZIP
Autor:	Peter Arias Cruz
Saludos , lo que necesito es saber como descomprimir un Archivo ZIP , y saber los archivos que contiene para luego volverlo a comprirmir atraves de Visual Basic , ya sea con un control o un con una instruccion que llame a WinZip. Gracias.

Respuesta:	IVANRES
O.K. PETER, EXISTEN LIBRERIAS Y CONTROLES ACTIVEX QUE PERMITEN COMPRIMIR Y DESCOMPRIMIR ARCHIVOS USANDO EL VB. COMO EL ActiveZipper.Ocx BASTANTE USADO. EN LA WEB DE PROGRAMANDO.COM EN LA SECCION DE CODIGO FUENTE 32 BITS. LO ENCONTRARAS. CHAO........

Respuesta:	Oswaldo Monagas
Por esta via te envie dos archivitos comprimidos en formato zip. Son dos controles que muestran lo que necesitas. Saludos resp5711.zip.

Contestar

|< << 81 82 83 84 85 86 87 88 89 90 91 >> >|