Procedimiento

"Marcos Campos A." preguntó:

¿Como Puedo hacer que este procedimento lo puede ejecutar
desde cualquier formulario de mi proyecto?

Private Function migetCurrentPage() As Integer
While CRViewer1.IsBusy
DoEvents
Wend
migetCurrentPage = CRViewer1.GetCurrentPageNumber
End Function

Hola, Marcos:

Si la funcíón se encuentra en un módulo general (*.bas), en lugar de
declararla «Private», declárala «Public».

Si por el contrario, la función se encuentra en un formulario o en un módulo
de clase, en lugar de utilizar una función «Private», declara un
procedimiento «Public Property Get»

Public Property Get migetCurrentPage() As Integer
While CRViewer1.IsBusy
DoEvents
Wend
migetCurrentPage = CRViewer1.GetCurrentPageNumber
End Property

Y desde otro formulario, o módulo de la aplicación, obtendrías el valor
devuelto llamando al procedimiento de la siguiente manera:

Dim frm As Form2

Set frm = New Form2

MsgBox frm.migetCurrentPage

Set frm = Nothing

Un saludo.

Enrique Martínez
[MS MVP - VB]

Ponlo en un modulo BAS y cambia el Private a Public

o

Si esta en un formulario, solo cambia el Private a Public y llamalo como <tu
Form>[.]migetCurrentPage
pongo el punto entre corchetes solo para resaltarlo

"Marcos Campos A." escribió en el mensaje
news:

Hola Grupo:

¿Como Puedo hacer que este procedimento lo puede ejecutar desde cualquier
formulario de mi proyecto?

Private Function migetCurrentPage() As Integer
While CRViewer1.IsBusy
DoEvents
Wend
migetCurrentPage = CRViewer1.GetCurrentPageNumber
End Function


Gracias de Antemano

MCA

"Marcos Campos A." preguntó:

y que hago con los objetos por ejemplo Crviewer1

Pues incluir en la lista de argumentos del procedimiento, una variable
objeto que referencie al objeto «Crviewer1»:

Public Property Get migetCurrentPage(oCRV As Crviewer1) As Integer
While oCRV.IsBusy
DoEvents
Wend
migetCurrentPage = oCRV.GetCurrentPageNumber
End Property

Enrique Martínez
[MS MVP - VB]