Mensajes

para lo de las instancias puedes hacer lo siguiente


dim x as form


set x = new form1

x.show

me comentaron que hay una dll, que hace eso, alguien sabe cual es?

puedes usar el objeto printer

printer.print texto1.text

checa la ayuda del VB para que revises las propiedades currentX, currentY, font y otras cosas que ayudaran a darle mejor presentación a tu impresión

checa la pagina http://www.elguille.info/ hay ina dll que hace eso creo que se llama convertnumbertowrod.dll o algo asi

  el problema de la instrucción shell es que ejecuta el archivo en forma asincrona y lo que necesito es esperar a que termine de comprimir el archivo para poder continuar

puedes usar el evento click del combo

private sub combo1_click()

     tamañofuente=val(combo1.text)
     textbox1.font.size=val(combo1.text)

end sub

asi cuando selecciones un tamaño de letra lo puedes poner en una variable o cambiar la propiedad del textbox

ahora para lo de la cancelacion no recuerdo cual es el numero de error pero puedes hacer lo siguiente


on local error resume next ' activas el control de errores

commondialog1.showopen
if err then
   msgbox "selecciono cancelar"
else
   .... aqui te sigues para abrir el archivo
end if
on local error goto 0 ' desactivas el control de errorres

lo que yo he hecho para quitar un elemento de un listBox
es recorrer los items, es decir si tengo

item1
item2
item3
item4
...

y quiero eliminar item 2 lo que hago es item2 = item 3, item3 = item4 y borro item4

podrias hacer una consulta sql


"SELECT * " & _
FROM Tabla " & _
"WHERE campo1 LIKE '" & text1.text & "*';"

la verdad es que el bat lo que hace es comrimir un archivo, no se como hacerlo desde VB por eso opte por hacer un bat que se encargara de eso

El archivo bat contiene lo siguiente:

@Echo off
c:\archiv~1\winzip\winzip32.exe -a -r C:\DOCUME~1\ocelaya\MISDOC~1\INDICA~1\Respaldo28092006.zip C:\DOCUME~1\ocelaya\MISDOC~1\INDICA~1\Respaldo28092006.bak


se que se puede hacer en VB pero no se como

pues hacer lo siguiente


dim s as string

s = combobox1.List(n)


o 
Private Sub Combo1_Click()
   s = combo1.text
End Sub