Iniciar sesi贸n
Crear cuenta
Crear cuentaCrear cuenta| Se han encontrado 2654 coincidencias. | << >> |
| Visual Basic |
| Pregunta: | 61234 - DATAGRID SIN DATASOURCE... |
| Autor: | 脕lvaro J. Guill茅n S. |
| Hola mi gente, escribo para solicitar su ayuda, estoy haciendo una factura en Visual Baisc 6 con 1 Datagrid, 9 text box, 2 ADO, 5 CommandButtons, 2 Datacombo con 1 Base de Datos hecha en Microsoft Access 2003. La l贸gica de lo que quiero hacer es lo siguiente:
1 datacombo est谩 conectado a la BD y arroja la informaci贸n del Cliente en 4 Textbox, el otro Datacombo est谩 relacionado con la misma BD pero para extraer la informaci贸n de los 铆tems a facturar, luego cuando los textboxes tengan la informaci贸n respectiva se debe hacer click en un bot贸n para que esta se agregue en el Datagrid, a su vez debe multiplicar la cantidad elegida por el usuario por el preio unitario del producto como tambi茅n incrementarse el acumulador del total de la factura. El otro bot贸n es de eliminar, el cual debe, valga la redundancia, eliminar el 铆tem seleccionado en el Datagrid, el siguiente bot贸n debe modificar la informaci贸n del 铆tem seleccionado en el Datgrid, el pr贸ximo bot贸n debe cancelar la factura y el 煤ltimo salir de la factura. Les agrtadezco si pueden ayudarme en esto que planteo, por supuesto que acepto sugerencias o cambios en pro de la mejora, facilidad y cumplimiento de este planteamiento. Sin m谩s que agregar y esperando su mayor colaboraci贸n en la soluci贸n del asunto me despido de ustedes mis colegas programadores... 脕lvaro J. Guill茅n S. [email protected] 0426-8329873 | |
| Respuesta: | Oscar Gochicoa |
| La solucion es muy simple:
datagrid1.col=(n).coldata.recordsource.(j+1).text.datagrid1.row Saludos. Oscar | |
| Pregunta: | 61318 - ERROR AL CAMBIAR TAMA脩O DE PAGINA EN EL CODIGO VB |
| Autor: | sarai garcia |
| Hola quisiera me ayudarn con un error que muestra el codigo de visual basic. Quiero imprimir en tama帽o oficio y escribo el codigo pero al ejecutarlo me muestra el error "el valor de la propiedad no es valido"
y el codigo que escribo es: Printer.PaperSize = vbPRPSLegal y en esta linea me marca el error | |
| Respuesta: | conra11 |
| Hola sarai, yo tuve el mismo problema hace poco. El problema es del S.O. si usas win 2000 o xp, te da el error de " el valor de la propiedad no es valido"
Para solucionarlo tenes que desactivar esa linea de codigo, ir a impresoras y fax seleccionar la impresora predeterminada, despues te vas a archivo y a propiedades del servidor, ahi tenes todos los tama帽os del papel, modificalo de ahi. Espero que te sirva. Saludos. | |
| Pregunta: | 61616 - WEBBROWSER BOTON ! |
| Autor: | Javier Compagnucci |
| Hola, estoy desrrollano una aplicacion con un webbrowser.
Necesito que desde un boton del formulario de visual basic, hacer click en un boton especifico de una pagina web. Lo unico que encontre es este codigo: HTML.Forms(0).submit Pero a causa de que debo hacer click sobre un boron especifico, este codigo no me sirve. El boton al cual le quiero hacer click tiene estas propiedades: tag= IMPUT Type= submit Value= -> Name=seite_change Hay otro parecido que tiene estas propiedades: tag= IMPUT Type= submit Value= <- Name=seite_change | |
| Respuesta: | Javier |
| Encontre la respuesta a mi pregunta:
Este seria el codigo: Webbrowser1.Document.NombreDelForm.NombreDelBoton.Click Pero en la pagina que queria acceder los botones no tenian nombre pero si valor entonces realice la siguiente sentencia: Para la primera pagina: Private Sub Command2_Click() Dim z As Integer For z = 0 To WebBrowser1.Document.Forms(0).length - 1 If WebBrowser1.Document.Forms(0)(z).Value = "Buscar" Then WebBrowser1.Document.Forms(0)(z).Click End If Next z End Sub Para las siguientes paginas cambia el boton: Private Sub Command3_Click() Dim z As Integer For z = 0 To WebBrowser1.Document.Forms(0).length - 1 If WebBrowser1.Document.Forms(0)(z).Value = "->" Then WebBrowser1.Document.Forms(0)(z).Click End If Next z End Sub | |
| Pregunta: | 62004 - DIBUJAR UN RECTANGULO EN PDF DESDE VISUAL BASIC |
| Autor: | Paola Campos |
| Hola chicos un favor estoy imprimiendo un pdf desde visual basic 6.0 solo que no se como hacer rectangulos para meter texto dentro del rectangulo desde vb6.0 y que se vea en el pdf supongo que algo con ocx podrian ayudarme Gracias y saludos | |
| Respuesta: | Mario Campos |
| Si pruebas imprimiento en una form comun y despues direccionas a una impresora virtual pdf?? | |
| Pregunta: | 62203 - ESCRIBIR EVENTO EXISTENTE DE EXCEL DESDE VISUAL BASIC |
| Autor: | Jordi Casades煤s Tom脿s |
| Hola , a ver si me pudierais decir como escribir desde Visual Basic 6(Como si fuera una macro escrita desde VB6 a excel) un evento existente a excel desde VB 6.
He encontrado como pasar macros desde VB6 a Excel, Pero eventos no lo he encontrado y supongo que tiene que ser parecido solo que no se encontrarlo. GRACIAS (no se si me he explicado bien... 驴?) | |
| Respuesta: | Jordi Casades煤s |
| Soy yo mismo, :-). He encontrrado (en parte) la soluci贸n...
sub funcion() ..... inicio objetos de excel 'este es el evento a passar strEventoHoja="Private Sub Worksheet_SelectionChange(ByVal Target As Range)" & Chr(13) _ & "msgbox " & Chr(34) & "Selection change" & Chr(34) & Chr(13) _ & "End Sub" 'vCont es la hoja donde se pondra el evento 'Ojo que si vCont es 1 entonces son los eventos del libro, no de la hoja y 'estos varian 'La soluci贸n anteriror .... vfExcel.xLibro.VBProject.VBComponents(vCont).codemodule.addfromstring StrEvento end sub Pero ahora me ha salido otro problemilla, que cuando cierro Excel no se me guardan dichos eventos. Las macros si se guardan en el modulo, pero los eventos no se quedan guardados ni en la hoja ni en el libro.Si alguien supiera como hacerlo....GRACIAS.si no, espero poderme contestar yo dentro de poco,jejeje | |
| Pregunta: | 62280 - LLAMADAS A FUNCIONES DENTRO DE UNA DLL |
| Autor: | Juan Antonio Macareno Palacios |
| Para los expertos en visual, aqui expongo mi problema, espero me orienten en los errores
que esto cometiendo, gracias. Me mandaron una libreria (sgenc32.dll) y junto con ella me mandaron el codigo para accesar via Visual Basic que es el siguiente: ' Definiciones VB ' Estructura anterior Public Type registro_CURP curp As String * 19 archivokey As String * 256 password As String * 256 End Type ' Estructura actual (Generica) Public Type registro_CURPG curp As String * 19 archivokey As String * 256 archivocer As String * 256 password As String * 256 End Type ' Funciones anteriores Declare Function BuscaCurps Lib "sgenc32" Alias "_BuscaCurps@8" (ByVal strArchOrig As String, ByRef CURPS() As registro_CURP) As Long Declare Function GeneraFirmaDigital Lib "sgenc32" Alias "_GeneraFirmaDigital@8" (ByVal strArchOrig As String, ByRef CURPS() As registro_CURP) As Long ' Funciones actuales (Genericas) Declare Function BuscaCurpsG Lib "sgenc32" Alias "_BuscaCurpsG@12" (ByVal strArchOrig As String, ByVal tipo As Long, ByRef CURPS() As registro_CURPG) As Long Declare Function GeneraFirmaDigitalG Lib "sgenc32" Alias "_GeneraFirmaDigitalG@12" (ByVal strArchOrig As String, ByVal tipo As Long, ByRef CURPS() As registro_CURPG) As Long Nuevos C贸digos de Error: 10 = Tipo de documento a firmar no valido 11 = No se pudo leer el certificado 12 = Certificado caduco. 13 = El archivo contiene m谩s de un registro 201. Donde tipo = Tipo de documento a firmar 0 (cero) = PEDIMENTOS 1 = ENCARGOS 2 = AVISOs DE TRANSFERENCIA Genero una estructura llamada MCURPG de la siguiente manera: Public MCURPG(0 To 9) As registro_CURPG luego, cuando hago la llamada a la libreria escribo el siguiente codigo para recibir un resultado de respuesta o de "estado" sobre la llamada (status). status = BuscaCurpsG(ByVal mstrArchOrig, ByVal mtipo, MCURPG) Donde status me regresa un 0 y esto se refiere a que hubo exito en la llamada de la libreria, para esto compruebo con un print si en la estructura viene el dato de la cupr en esta forma: Print status, MCURPG(0).curp y la estructura MCURPG(0).curp si trajo un dato o recibio un dato de la libreria sgenc32.dll, Hasta aqui todo esta correcto, el siguiente paso es volver a accesar a la libreria y enviar los siguientes datos: MCURPG(0).archivocer = "c: mpdavs.cer" MCURPG(0).archivokey = "C:TMPDAVS.key" MCURPG(0).password = "davsh02" firmadig = GeneraFirmaDigitalG(ByVal mstrArchOrig, ByVal mtipo, MCURPG) Aqui es donde comienza el problema, porque firmadig es la variable que recibo con el estado de la llamada a la libreria, y siempre me manda el codigo 11 (no se pudo leer el certificado). Por lo que yo pienso que no estoy enviando bien la estructura a la libreria con la informacion que requiere para generar la firma digital. Espero poderme explicar cual es mi situacion y gracias por sus prontas respuestas. Saludos. | |
| Respuesta: | FTanori . |
| Para utilizar las funciones "G" la estructura "G" debes indicar el Certificado
MCURPG(0).archivocer = "c: mpdavs.cer" MCURPG(0).archivokey = "C:TMPDAVS.key" MCURPG(0).archivocer = "C:TMPDAVS.cer" ' <=== Incluir Certificado MCURPG(0).password = "davsh02" ============================================================== | |
| Respuesta: | Juan Antonio Macareno Palacios. |
| Al fin, problema solucionado, genere un programa externo para que sea llamado desde visual fox con parametros, esto es...
nombredelprograma.exe "parametroarchivo|parametrocertificado|parametroarchivokey|parametroclave" y listo, ya esta en funcionamiento. Saludos | |
| Pregunta: | 62517 - REDONDEAR DECIMALES AL ENTERO SUPERIOR EN VISUAL BASIC 6 |
| Autor: | Adrian Garcia |
| _Que tal? espero algun experto me pueda proponer alguna solucion puesto que soy estudiante aun y estoy tratando de extender mis conosimientos.
Trato de redondear cualquier numero decimal al entero superior ejemplo: .1 a 1 10.3 a 11 5.5 a 6 cualquiera que sea q sea mi numero pues me han dado solusion con msgbox pero solo funsiona para numeros en espesificos. Por su atencion gracias | |
| Respuesta: | Pedro M |
| Hola.
No se si a la fecha ya has solucuciondao tu problema; lo que yo har铆a seria hacer un convert(int, 10.3) + 1 = 11. Espero te sirva. Saludos. | |
| Pregunta: | 62605 - NO PUEDO ELIMINAR UN CONTROL CREADO DINAMICAMENTE |
| Autor: | Ezequiel |
| Hola, tengo el siguiente codigo
Dim CheckBox As CheckBox Private Sub Command1_Click() Me.Controls.Remove (CheckBox) End Sub Private Sub Form_Load() Dim strNameCheckBox As String strNameCheckBox = "chkCuota_" & 1 Set CheckBox = Me.Controls.Add("VB.CheckBox", strNameCheckBox) End Sub Cuando quiero eliminar con remove el control me da error 729 "Controls.remove solo puede quitar controles agregfados con Control.add". Basicamente lo que necesito es segun eleccion del usuario crear una serie de controles y luego si cambia su seleccion tengo que borrarlos y volver a crearlos.. Muchas gracias | |
| Respuesta: | Laubrisa Orellana |
| Hola Ezequiel
yo para remover objetos creados en tiempo de ejecucion utilizo Unload (<objeto>), si no te funciona escribeme y te envio mi codigo donde genero formularios con objetos y eventos para controlar estos objetos, de hecho he creado dos tipos de formularios uno con objetos especificos para tablas dinamicas y otro donde a partir de un formulario vacio creo y ubico objetos los cuales tienen eventos de click, enter y foco (pre y post) | |
| Pregunta: | 62633 - ERROR AL GUARDAR CON ADODC |
| Autor: | Jose Luis |
| hola que tal, mi problema es que a la hora de guardar por medio del adodc en visual basic 6.0 un registro en la base de datos de access me manda un error que dice:
"La operaci贸n no esta permitida si el objeto esta cerrado" a la hora de checar la base de datos resulta que los datos si los guarda , quisiera saber como solucionar este problema o suprimir el mensaje, gracias | |
| Respuesta: | Carlos Arias |
| hola, bueno mira este codigo te sirve para eliminar el mensaje de error :
On Error Resume Next 'Antes del cogigo guardar 'codigo del adodc para gurdar On Error GoTo 0 'Al finas del codigo del adodc para gurdar | |
| Pregunta: | 62931 - ERROR 70 EN VISTA HOME CON SENDKEYS |
| Autor: | jonathan emmanuel alvarado |
| hola estoy haciendo un progrmaa en visual basic con sistema operativo vista y me sale un error 70 acceso denegado cuando en el keypress del form declaro un linea de comandos para que pueda saltar los text con el boton enter. el codigo es este :
Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys "{tab}" KeyAscii = 0 End If End Sub he leido que este error se da en windows vista pero no encontre ningun codigo alternativo. si me podrian ayudar le agradeceria. saludos | |
| Respuesta: | jorge correal |
| Si pero solo courre el error mientras estas en tiempo de dise帽o, luego de que compiles y generes el ejecutable no genera error, ensayalo | |
| |< << 242 243 244 245 246 247 248 249 250 251 252 >> >| |