problema con formulario, se cierra solo
Publicado por BioK (11 intervenciones) el 28/01/2010 16:36:32
Hola a todos estoy teniendo un problema, al ejecutar una subrutina en mi programa se me cierra el Form, entonces puse un breakpoint para ver cual podria ser la causa, pero al poner el breakpint me aparece este error "can't enter a break mode at this time". El codigo es el siguiente, es una macros para Corel, anda perfecto y hace lo que tiene que hacer pero el problema es que se me cierra el Form. Alguna idea
Dim selR As ShapeRange
Dim i As Integer
Dim shHeight As Long
Dim shWidth As Long
Dim dpi As Double
dpi = Val(Me.txtDpi.text)
Set selR = ActivePage.FindShapes(, , True)
For i = 1 To selR.Count
shWidth = selR(i).SizeWidth * dpi
shHeight = selR(i).SizeHeight * dpi
selR(i).Bitmap.Resample shWidth, shHeight, True, dpi, dpi
Next i
Dim selR As ShapeRange
Dim i As Integer
Dim shHeight As Long
Dim shWidth As Long
Dim dpi As Double
dpi = Val(Me.txtDpi.text)
Set selR = ActivePage.FindShapes(, , True)
For i = 1 To selR.Count
shWidth = selR(i).SizeWidth * dpi
shHeight = selR(i).SizeHeight * dpi
selR(i).Bitmap.Resample shWidth, shHeight, True, dpi, dpi
Next i
Valora esta pregunta


0