Mensajes

Que bien compadre!
Gracias, es perfecto! 

Bueno, que tal!

Tengo una funcion para detectar cuando un arreglo es nulo, el problema que para cada tipo de dato del arreglo tengo que diseñar una nueva funcion. Me gustaria crear una funcion para cualquier tipo de dato, como podria hacerlo?

Código (vb) [Seleccionar] Expandir


function isArrayNullEntero(arreglo() as integer) as boolean
...
end function

function isArrayNullNuevoTipo(arreglo() as nuevotipo) as boolean
...
end function


Pues nunca he trabajado con un objeto "printer", pero en un form o picturebox:

Código (vb) [Seleccionar] Expandir


picture1.currentx=10
picture1.currenty=10
picture1.print "Este texto aparecera en la posicion (10,10)"


Debes configurar el sistema de coordenandas(ScaldeMode) a Pixeles(3), eso es lo que pienso yo.

Tambien puedes usar las propiedades TextWidth y TextHeight para darle formato al texto(centrar por ejemplo):

Código (vb) [Seleccionar] Expandir


dim miCadena as string
micadena="Este texto debe estar centrado"
picture1.currentx=picture1.width/2 - picture1.textWidth(micadena)/2
picture1.currenty=10 'TextHeight
picture1.print miCadena


Te recuerdo que no me consta si funciona con un objeto printer(yo creo que si  ) y cuidado con el sistema de coordenandas(scalemode)...
Bien, eso es todo espero y te sirva... salud!

Avira y sus paranoias... por eso lo quiero  

A mi tambien me pasa.

Y el codigo que tiene que ver?

Código (vb) [Seleccionar] Expandir

Function nico()
Dim sBuffer() As Byte
sBuffer = LoadResData(101, "CUSTOM") '  <---- Entero en vez de Cadena en el ID
Open App.Path & "\altoexe.exe" For Output As #1
Print #1, sBuffer
Close #1
End Function

ok, meto la variable dentro de una funcion

pero eso hace que sea global?

por ejemplo, la declaro en el form1

en el 2 tambien anda? eso es lo que busco s2

La variable es global siempre y cuando se declare como global(en este caso "public"), la asignacion de un valor es independiente asi la variable es global o privada. En el momento que colocas: "Public miVariable as String" la variable es publica, quiere decir que estas cumpliendo tu objetivo. El siguiente paso es darle un valor, el cual tiene que hacerse dentro de una funcion o procedimiento(en el que tu quieras) de cualquier forma la variable seguira siendo publica... salud!

No puedes asignarle un valor a una variable fuera de un procedimiento o funcion...

el FBI pide ayuda y se les debe ayudar porque es el deber de todo el mundo(en este punto creo que todos estamos deacuerdo)

Que se puuuuuuuuuuuuuuuuuuuuuuuudra el FBI! y que se vallan a inventar terroristas a la casa de su **** madre!

John Nash les podria ayudar...

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
    If Command = "HI" Then MsgBox "No hay errores!"
End Sub




A lo mejor tienes mal la configuracion en las propiedades del formulario, prueba creando un nuevo formulario y solo poniendo el codigo de prueba.

Código (vb) [Seleccionar] Expandir


sub form_load()
   if command="minimized" then me.visible=false
end sub