Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Se han encontrado 2654 coincidencias. | << >> |
| Visual Basic |
| Pregunta: | 5579 - CONECTAR A UNIDAD DE RED |
| Autor: | elIO coLMENARES |
| Como me conecto a un recurso compartido de NT (disco) desde visual basic pasandole los valores de usuario password y mapeo a la unidad. | |
| Respuesta: | Xavi |
| Debes usar la api WNetAddConnection2 para hacer la conexion y GetDriveType para
averiguar una letra de unidad disponible. Es complicadillo pero se puede hacer. | |
| Pregunta: | 5595 - COMO LLAMAR UNA APLICACION DE EXCEL DESDE VB |
| Autor: | CESAR AUGUSTO BEDOYA GOMEZ |
| Teniendo yo una aplicacion creada en VBA para aplicaciones en EXEL, y trabajando con una base de datos en ACCES, puedo yo mediante VISUAL BASIC 6.0 crear una forma y desde esa forma llamar esa aplicaciónque tiene extención (.xls).
Fuera de eso puedo hacer un ejecutable en base a esa forma. Si me pueden resolver esa pregunta ... Gracias. Atte: César | |
| Respuesta: | Juan Pablo Crossley |
| Facil, Usa la referencia: Microsoft Excel Objects 8.0, (Proyecto - Referencias), y coloca codigo como el siguiente:
Dim e As Excel.Application Dim d As Excel.Workbook Set e = New Excel.Application e.Visible = True Set d = e.Workbooks.Open("c:\directorio\Libro.xls") .... de aqui en adelante es puro Excel VBA, si quieres le quitas el e.visible y asi no se ve el excel y puedes trabajar Stealth | |
| Pregunta: | 5602 - CALCULO DE AREAS GEOMETRICAS USANDO PIXELS |
| Autor: | alex balladares gonzales |
| hola soy estudiante de sistemas de 2do año y estoy trabajando un automata que reconozca figuras geometricas,Para conocer si una imagen x(en gif,ojpg) (entrada) corresponde a una de las clases de C(cuadrado,triangulo,rectangulo,circulo,elips), entonces debe existir una regla de clasificación, que es una función f(): X -> C tal que f(x) pertenezca a C. Una primera intuición, f(x) podrÃa ser la combinación de las siguientes funciones:
Escalamiento(): permite escalar una figura para que tenga algunas de las medidas de los patrones de C (figura 2), ya sea alto o ancho. Cálculador de área(): permite establecer el área de la figura x, en base al contorno. Clasificador(): de acuerdo a la función Cálculador de área, permitirÃa clasificar alguna figura con la fórmula: mÃn i | A - Ai | , i=1..5 ; ya que la diferencia de área de la figura con algún patrón que sea menor, será la que más se adecúa al contorno. para comenzar este trabajo debo encontrar como calcular areas de estas figuras ingresando el contorno de lafigura lo que implica trabajar con pixels,comandos en visual basic. espero que me puedan ayudar en cuanto a elavorar estos patrones. gracias por su ayuda | |
| Respuesta: | AgustÃn Dávila MartÃn |
| Hombre, realmente no me he enterado de como funcionan esas fórmulas pero si lo que quieres es saber como trabajar con gráficos en Visual Basic, te daré algunas funciones.
* PSet(x,y): Dibuja un punto en el punto x,y * Line(x1,y1)-(x2,y2): Dibuja una lÃnea entre x1-y1 y x2-y2. Si a la función le añades una B, te hará un rectángulo, y si le añades una F te rellenará el color del cuadro. Ej: Line(100,200)-(400,324),,BF * Circle(x,y),Radio * Los colores,tipos de lÃnea, tipo de relleno se utilizan con la propiedades FillColor, Forecolor,fillstyle, Drawstyle del objeto donde te encuentres (Un Form o un objeto Picture). | |
| 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 | |
| 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. | |
| 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. | |
| 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 | |
| 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. | |
| 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. | |
| Pregunta: | 5724 - CONECTAR A ACCESS 2000 CON PASSWORD MEDIANTE JET |
| Autor: | Julia Taylor |
| Me estoy conectando de Visual 6 a Access 2000 de esta forma
Conectar.Provider = "Microsoft.JET.OLEDB.4.0" Conectar.Properties("Data Source").Value = DirBase Conectar.Properties("User ID").Value = "Admin" Conectar.Properties("Password").Value = "" Conectar.Open strCnn Comando.ActiveConnection = Conectar Cuando le pongo clave a la base en access no puedo ingresar y me dá el siguiente error: "No se puede iniciar la aplicacion. Ffalta el archivo de informacion del grupo de trabajo o bien esta abierto en modo exclusivo por otro usuario" run-time error "-2147217843(80040e4d)" estoy recontra segura que nadie esta utilizando la base. Gracias por contestarme. | |
| Respuesta: | Edilson Galeano Zuñiga |
| Prueba con esto a mi nunca me molesto el pasword de la base de datos
Private Sub Form_Load() On Error GoTo FindErr With DataBasePpal .cnnConector.Provider = "Microsoft.jet.OLEDB.4.0" .cnnConector.Properties("Jet OLEDB:Database Password") = "Contraseña" .cnnConector.ConnectionString = "Data Source=" & App.Path & "\DataBase\Everest_.mdb" .rsLogin.Open End With FindErr: ' Si no se encuentra la base de datos, use la función FindDB para buscarla. If Err.Number = -2147467259 Then MsgBox "error de la base de datos" Resume Next End If Exit Sub End Sub espero te sirva mi base de datos se llama Everest_, y se encuentra en la carpeta DataBase donde se encuentra mi aplicacion, tambien funciona con el formato access 2003, todo lo anterio con un diseñador DataEnvironment DataBasePpal Suerte | |
| Respuesta: | BenjamÃn Torres Juárez |
| Hola Julia, yo tenia el mismo problema y hace medio hora lo pude solucionar, tenÃa meses tratando de encontrar la solución, de hecho le escribà a la otra persona que te contesto, para preguntarle algunas cosas, pero parece que el correo no existe, bueno sin mas royo te paso un procedimiento, esto lo pones en un modulo y listo.
Public Conexion As New ADODB.Connection Sub Abre(NombreBD As String, Optional Clave As String) Const AccessProvider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Conexion.Open (AccessProvider & App.Path & "\" & NombreBD & ";Jet OLEDB:Database Password='" & Clave & "'") End Sub Si te das cuenta estábamos cometiendo el error de poner la clave del usuario y no la de la base de datos. Si tienes alguna pregunta no dudes en hacérmela saber. Me gustarÃa tener tu correo para que en caso de que me atore en algún problema de BV me pudieras ayudar. | |
| Respuesta: | Ignacio Jimenez |
| Yo uso Vb6 con SP4 y me conecto a Access 2000 de esta forma:
Set WrkJet = DBEngine.CreateWorkspace("", "Admin", "") Set Base = WrkJet.OpenDatabase(App.Path & "\xxxxx.mdb", False, False, ";PWD=AQUI_VA_LA_CLAVE") Con esto no he tenido problemas. Eso sÃ, mi programa es monousuario. Ojalá te sirva de algo esto. Saludos, Ignacio Jiménez | |
| |< << 153 154 155 156 157 158 159 160 161 162 163 >> >| |