Variator

gracias compadre por el aporte, seguiré tus pasos para realizar mi pequeño programa, es un aportazo, muchas gracias. esto es lo que ayuda a las comunidades a crecer.

Solo un detalle: From.ShowDialog activa el formulario en forma modal. Esto es que no puedes acceder a los otros formularios o al formulario padre hasta que ése se cierre. Esto es útil para ventanas que muestran mensajes o si el formulario debe obligatoriamente obtener algún dato o confirmación del usuario. Por ejemplo, los mesajes de alerta de Windows son un tipo de formulario modal ya que bloquean la operación normal hasta que ésta se cierre. También los MessageBox son un tipo de formulario modal. De forma opuesta, Form.Show muestra el formulario pero no "bloquea" el form padre o los demás formularios del proyecto, por lo quen puedes volver atrás y trabajar en otro formulario o incluso abrir el mismo formulario varias veces sin problemas. Por ejemplo, cuando en Photoshop tienes varias imágenes abiertas, puedes trabajar en cada una por separado e incluso abrir mas ventanas nuevas, este es un tipo de formulario no modal, o abierto con Form.Show. El usar uno u otro dependerá siempre de cuál es el propósito, requerimientos y funcionalidad del formulario que estés desarrollando, y su interacción con el resto del proyecto. gracias por la correccion, siempre es bueno apender mas :D

Holas yo si es de una pantalla normal lo hago de la siguiente forma My.Forms.[nombre_formulario].ShowDialog() o si es de un mdi de la siguiente forma: My.Forms.[nombre_formulario].MdiParent = Me My.Forms.[nombre_formulario].Show() espero que te sirva, saludos

buenas a todos, estoy haciendo un pequeño programa para poder imprimir folios en papel continuo 11x15" ya tengo listo la impresion, lo que me falta y no pillo como solucionarlo es como hago para imprimir varias hojas de una sola pasada. hasta ahora puedo imprimir bien pero solo la primera hoja y despues salta a la siguiente y no imprime mas, he rebuscado soluciones y modificado el codigo pero nada solo imprime la primera pagina. les dejo el codigo para que lo vean: boton imprimir: Private Sub imprimir_Click(sender As Object, e As EventArgs) Handles imprimir.Click 'ajusto el tamaño de la pagina' Dim pkCustomSize1 As New Printing.PaperSize("Custom Paper Size", 2794, 3810) folio = 0 'for que gestiona x cantidad de folios a imprimir' For i As Integer = 0 To txthojas.Text - 1 'aumentador de folios' If i = 0 Then folio = txtDesde.Text Else folio += 1 End If linea = 1 'actualizo el formato de la pagina' PrintDocument1.PrinterSettings.DefaultPageSettings.PaperSize = pkCustomSize1 'envio a imprimir' PrintDocument1.Print() 'muestro avanze de fiolios en pantalla' folio1.Text = folio folio2.Text = txthasta.Text Next End Sub evento print() Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ' Definimos el tipo de fuente y de mas' Dim Fuente As New Font("Arial Narrow", 9) ' Contador de lineas que se van imprimiendo' Dim lineaimpresa As Integer = 0 ' Variable para ver cuando se va hacer un salto de pagina' Dim salto_pagina As Boolean = False ' Variable para designar cuantos lineas se van a imprimir por hoja' Dim NroLineasPagina As Integer = 4 'for que imprime 4 lineas en cada pagina' For a As Integer = 1 To 4 If a = 1 Then e.Graphics.DrawString("NOMBRE EMPRESA", Fuente, Brushes.Black, 5, 4) Else If a = 2 Then e.Graphics.DrawString("DIRECCION - CIUDAD EMPRESA", Fuente, Brushes.Black, 5, 18) e.Graphics.DrawString("FOLIO UNICO NACIONAL", Fuente, Brushes.Black, 910, 18) Else If a = 3 Then e.Graphics.DrawString("GIRO EMPRESA", Fuente, Brushes.Black, 5, 30) e.Graphics.DrawString("N° " & folio, Fuente, Brushes.Black, 910, 30) Else If a = 4 Then e.Graphics.DrawString("RUT. XX.XXX.XXX-X", Fuente, Brushes.Black, 5, 42) End If End If End If End If 'aumenta en 1 la linea impresa' lineaimpresa += 1 'si linea impresa es igual a 4 coloca un true en salto de pagina y sale de for' If lineaimpresa = NroLineasPagina Then salto_pagina = True Exit For End If Next 'si salto de pagina es true deberia saltar a la siguiente hoja e imprimir lo siguiente' If salto_pagina = True Then e.HasMorePages = True Else e.HasMorePages = False End If End Sub coloque los comentarios en '' para que se viera mejor si alguien identifica cual es mi error favor decirme, recien estoy entendiendo como es la impresion directa con Visual por medio de los eventos PrintDocument y PrintDialog gracias de antemano

estimado, no lo tengo enlazado con nada, solo se carga a partir de una consulta normal, esta informacion la paso a una colerccion y la coleccion la cargo al datagridview.

estimado, es vb.net (me enredo con todas las cosas de visual >.<) es programacion de windows form, para una aplicacion de escritorio. pero creo que tu codigo me puede ayudar :D asi que lo llegare a probar cuando salga del trabajo ;) gracias

hola a todos, vengo con una duda que parece simple pero me ha weiado mas que la chucha xDD resulta que tengo un datagridview que se llena desde base de datos por medio de una consulta, la primera columna la uso para ingresar un codigo y buscarlo al apretar enter, al hacer esto el programa busca el codigo en la BD y llena las columnas que estan a su derecha con la descripcion y el valor, el tema es que quiero hacer que despues de que se carge la columna Valor, pueda hacer clic en ella y cambiarle el numero a otro y quede guardado en la celda... osea por ejemplo la columna 3 de la fila 1 tiene el valor 5000, pero yo quiero colocarle 4000, entonces hago clic en la celda 3,1 y le escribo manualmente 4000 y este numero quede almacenado en dicha celda. el problema actual es que al hacer eso, me regresa al valor que se cargo por base de datos, osea si se cargo 5000, al momento de escribirle 4000 encima, este vuelve a cambiar a 5000. he buscado info por la net pero nada aun, por eso vengo en busca de su gran sabiduria, ya que varias veces atras me han ayudado :D estare atentoa sus respuestas, de atte. muchas gracias :)

hola otra vez, hice lo que dijo baltinino y descarge el programa y lo ejecute, me salieron 2 archivos de errores, estos son: error 1: error 2: espero su respuesta a ver si me puede ayudar :) gracias de antemano.

hola a todos. bueno mi problema es que tengo un pc de escritorio, este tiene windows xp el tema es que este pc enciende, pero en ciertas ocaciones sale una pantalla azul (que hasta ahora yo no me la he encontrado >.<) y al reiniciarlo la pantalla no prende. ya habia encontrado pc con problemas con pantallas que no prendian, unas se solucionaban con resetear la bios, y otras era porque la fuente de poder no estaba entregando la suficiente energia al pc y esto hacia que no enviara imagen a la pantalla, pero este me tiene loco. ya probe con otra fuente de poder, con otro HDD, con salida de video de la placa, con la tarjeta de video externa y la pantalla no prendia, al final pille que tengo que dejarlo encendido por un buen rato y despues apagarlo y prenderlo y la pantalla enciende (es como un auto, cuando hay que dejarlo andando para que se caliente y despues salir en el), pero salio el mismo error y al reiniciarlo la pantalla no prendia, otra vez >.< por la poca info que me dieron, ese error es un pantallazo azul, pero no se cual, lo mantengo prendido y en funcionamiento pero no me ha salido, pero a la dueña si le salio u.u si alguien reconoce los sintomas porfavor ayudeme D: gracias de antemano. que esten bien.

holas a todos les cuento mi problema, tengo un samsung galaxy ace con la roms de cyangenmod 7.2, me corria bien, pero hace poco la bateria me empezo a durar poco, onda lo cargo la horas correctas y al desconectarlo la bateria me dura 5 minutos y ya esta descargada, despues de un rato lo vuelvo a prender y la bateria esta a la mitad de la carga, y dura un poco mas, despues se apaga, lo prendo y dura un rato mas, pero si ocupo cualquier aplicacion, como face o demas se descarga de una. he estado calibrando la bateria, haciendo un wipe battery desde recovery, pero no veo mayor mejora. se habra estropeado la bateria?? si alguien sabe de este tema porfavor deme alguna solucion o afirme que murio xD

como puedo descargarlo?? entro al enlace, coloco la contraseña, pero no caxo donde tengo que apretar para iniciar la descarga y si lo meto en jdowloader me dice que espere :/ gracias de antemano :)

si no fuera por toda la mierda de publicidad que tienen los link, diria que es un excelente aporte, esta bien publicidad moderada, pero esto en realidad se paso, haces 1 clic y te habre 2 o mas ventanas de publicidad, mas encima tienes que desactivar ((Si bloquean la publicidad, el sitio NO tendrá recursos para mantenerse)) para poder entrar el capcha ¬¬ los link de mediafire estan off, los de gamefront estan buenos todos. de todas formas gracias por darte el tiempo de crear este post con el juego estoy descargandolo

no entendí mucho pero te dejo esto a ver si es de ayuda: tenemos 2 tablas, una llamada usuario con datos (id [pk], nombre, apellido) la otra se llama registro con datos (id[pk], tipo_datos, fecha, información, id_usuario[fk]) si ves registro esta unida a usuario por la foreign key id (usuario [id] -----[id_usuario] registro) entonces queremos mostrar toda la información de los registros que ha ingresado x usuario, la consulta seria la siguiente: SELECT r.tipo_dato, r.fecha, r.informacion, u.nombre, u.apellido FROM usuario u, registro r WHERE u.id = r.id_usuario and u.id = 1 si ves la consulta, le asignamos una variable de referencia a la tabla en el from (usuario u) con esto podemos acceder fácilmente a los datos de las tablas, para mostrar siempre tienes que anteponer esta referencia (u.nombre, r.informacion, etc) el dato esta para consultas anidadas es que siempre tienes que igualar la PK con la FK de las tablas, como en la consulta igualamos (u.id = r.id_usuario) igualamos la PK id de usuario con la FK de registro y despues de igualarlas empiezas filtrar por lo que buscas. es de un tema que ya se soluciono antes... espero que te ayude aunque ya lo solucionaste, pero nunca esta demás otra opinión :D

gracias por la ayuda... lo acabo de completar :) estaré atento al foro por si puedo ayudar :)

holas, pucha yo no uso oldb o como se llame xD uso el sqlclient, con sus sqlcomand y demás, pero te dejo mi código por si es que sirve... la función que carga el combobox es la siguiente: Public Shared Sub cargaraUsuarios(ByVal cboUsuario As ComboBox) Try conexion.conectar() 'abro conexion' Dim sql As String = "Select distinct Nombre from Usuario order by nombre asc" 'consulta' Dim comando As SqlCommand comando = New SqlCommand(sql, conexion.conexion) 'juntas el string consulta con la conexion' Dim registros As SqlDataReader registros = comando.ExecuteReader 'execute reader ejecuta la consulta y obtiene la informacion de las tablas' cboUsuario.Items.Clear() ' limpiar nuestra variable combobox' While registros.Read 'preguntamos si hay info para leer' cboUsuario.Items.Add(registros.GetString(0)) 'guardar la info del executeReader en el combobox' End While registros.Close() 'cerramos lectura' conexion.Desconectar() 'cerramos conexion' Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub y la llamo de este modo nombredelaClase.cargaraUsuarios(nombreComboBox) si vez lo que envió es el combobox, la funcion la recibe por valor y sobrescribe sobre ella... por lo de las consultas anidadas te doy un ejemplo. tenemos 2 tablas, una llamada usuario con datos (id [pk], nombre, apellido) la otra se llama registro con datos (id[pk], tipo_datos, fecha, informacion, id_usuario[fk]) si ves registro esta unida a usuario por la foreign key id (usuario [id] -----[id_usuario] registro) entonces queremos mostrar toda la informacion de los registros que ha ingresado x usuario, la consulta seria la siguiente: SELECT r.tipo_dato, r.fecha, r.informacion, u.nombre, u.apellido FROM usuario u, registro r WHERE u.id = r.id_usuario and u.id = 1 si ves la consulta, le asignamos una variable de referencia a la tabla en el from (usuario u) con esto podemos acceder facilmente a los datos de las tablas, para mostrar siempre tienes que anteponer esta referencia (u.nombre, r.informacion, etc) el dato esta para consultas anidadas es que siempre tienes que igualar la PK con la FK de las tablas, como en la consulta igualamos (u.id = r.id_usuario) igualamos la PK id de usuario con la FK de registro y despues de igualarlas empiezas filtrar por lo que buscas. bueno espero que te sirva.. cualquier cosa preguntas nomas

si eso es lo que tengo hasta ahora, lo que me sucede es que tengo una carta por defecto que se debe modificar según la informacion que seleccione el usuario en el programa, para esto uso marcadores en el word. el programa lo que hace es tomar la informacion que el usuario desea y este reemplaza el marcador que corresponda. en este caso la carta lleva una foto del signo de la empresa en la parte superior, y a esta foto le agrege un marcador, lo que necesito es reemplazar esta foto de la carta por medio del programa, el usuario seleccione una foto con openfiledialog, esta llevarla al comando addpicture y me reemplace el marcador de word (imagen por defecto que esta en la carta). se que el codigo es el que me mostraste: oDoc.InlineShapes.AddPicture(FileName:="C:Logotipo.png", LinkToFile:=False, SaveWithDocument:=True) pero esto asi tal cual lo que hace es agregarme una nueva imagen, osea me quedan ambas imagenes en la carta, se que en esa linea va una cuarta opcion, que es Range y se que el bookmark es donde se indica el marcador para que reemplace. y eso es lo que no puedo hacer, porque mientras intento colocar la opcion del range, al ejecutarlo me dice que hay datos inconsistentes o que no es publico. se que estas son las opciones que tiene el agregar la imagen: oDoc.InlineShapes.AddPicture(FileName:=, LinkToFile:=, SaveWithDocument:=,Range:=) pero no he podido completar esta linea con la sintaxis correcta u.u

holas otra vez bueno pense que tenia el programa terminado.. pero me agregaron una nueva opcion, les explico tengo que buscar una foto en el computador.. para eso uso openFileDialog, una vez que se selecciona y pulsa aceptar esta se pega en un PictureBox.. hasta aqui todo bien. el problema esta en que al momento de pasar esta imagen del picturebox a word no me resulta, ya que es diferente pasar un string a una imagen. buscando me he encontrado que una forma de hacerlo es pasar la imagen del picturebox al portapapeles y despues recuperarla del portapapeles para pegarla en el word, la encuentro valida, pero el codigo que me indica el marcador de word donde debe ir es el que no encuentro. por ejemplo, para pegar un string cualquiera en una parte de un word, primero en este se agrega un marcador, y por medio de VB se indica el marcador donde se va pegar el string. asi: oDoc.Bookmarks.Item("observacion1").Range.Text = txtobservacion.Text donde lo que esta entre comillas es el marcador y el que esta despues del sigo igual es el string a insertar. pero con la imagen no resulta... para pasar a portapapeles es asi: Clipboard.SetDataObject(Me.picturebox.Image) y para recuperarla asi: Clipboard.GetDataObject() la otra forma que encontre es pasar la imagen a un array de bytes, pero esta ultima forma no la entendi :S ¿ustedes saben de alguna forma para poder copiar una imagen desde vb a word? es lo unico que me falta y termino el programa u.u les agradesco desde ya... :D

gracias :D son grandes... ya tengo el programa listo... con su setup.

holas a todos aqui estoy con otra duda, bueno es la ultima porque ya termine mi programa :D miren me explico, se que para poder crear un setup de mi proyecto y poder instalarlo en cualquier pc necetito colocarle los archivos dll y ocx para que funcione sin ningun problem, ahora mi duda es ¿de donde obtengo estos archivos? lo unico que he obtenido es esto... son estos los archivos dll que necesito?? http://imageshack.us/photo/my-images/195/59158201.jpg" data-cke-saved-src="http://imageshack.us/photo/my-images/195/59158201.jpg ¿son los archivos de la foto los que necesito?, si es asi, al momento de intalar el programa, estos archivos de la foto ¿los tengo que pegar en las mismas carpeta que sale en la foto? o ¿las pego junto con el exe en la carpeta de instalacion? bueno y buscando por internet decian que tambien necesitaba unos archivos ocx, estos archivos ¿como se donde y cual necesito? bueno esas son mis dudas, espero no molestar mucho... les agradesco desde ya :D PD: Si hiciera un manual sobre mi proyecto para ayudar a otros, ¿lo debo colocar aqui o en otro sub foro?

holas... soy tutu, es que me tube que crear una cuenta nueva porque la que esta arriva me pide validar y ese correo que tiene asociado ya no lo tengo u.u bueno buscando lo que me dijo "kuraudeo" me encontre con esta pagina http://support.microsoft.com/kb/316383 y es lo que buscaba.. asi que si alguien lo necesita... ahí esta el codigo para modificar un word. eso si primero tienen que abrir el word... seleccionar lo que se desea modificar e ir a Insertar.->marcador (en la pantalla que les muestra le colocan un nombre como si fuera una variable) despues con el codigo siguiente lo insertan: oDoc.Bookmarks.Item("marcadorWord").Range.Text = "aqui va una variable o un texto" y eso seria... en la pagina esta todo :D gracias por la ayuda :)