Eyeborg Phase II desde eyeborg sobre Vimeo.
Sus opiniones vale oro, agradecer o comentar no cuesta nada.....
Eyeborg Phase II desde eyeborg sobre Vimeo.
Sus opiniones vale oro, agradecer o comentar no cuesta nada.....
Para bloquear la página de inicio de Intenet Explorer y que no sea modificada por cualquier persona o programa (o desbloquearla en caso de que algún programa nos lo haya bloqueado), haremos lo siguiente:
Hacemos click sobre el botón Inicio y seleccionamos Ejecutar, a continuación accedemos al editor del registro de Windosws, escribiendo Regedit y pulsaremos Aceptar. Una vez estemos en el registro buscaremos la siguiente cadena:
HKEY_CURRENT_USER –> Software –> Policies –> Microsoft
Con la carpeta Microsoft seleccionada creamos una nueva CLAVE (Botón derecho) y le daremos el nombre de Internet Explorer.
Estando sobre ésta última, creamos una nueva CLAVE de nombre Control Panel
Dentro de Control Panel, creamos un nuevo VALOR DWORD de nombre Homepage y a éste le damos el valor 1 para tener la Página de Inicio bloqueada (para poder modificar la página de inicio tendremos que entra aquí y cambiar el valor a 0).
El siguiente script copia todas las filas de un datawindow a un archivo de excel existente. Con esto usted puede aprender la manera de enviar datos desde una aplicación de Power Builder a celdas especificas de un archivo de excel.
El ejemplo copia la fila 1 columna 1 del datawindow a la fila1 columna1 de una hoja existente de excel, y asi con todas las celdas. Usted puede modificar este script para enviar solamente las celdas que usted necesite.
En este ejemplo se abre un archivo localizado en c:ejemplo.xls pero usted debe modificar el directorio y el nombre del archivo para que abra un archivo existente de excel en su disco duro. En la parte final del código esta la posibilidad de descomentar las funciones para guardar el archivo, o guardarlo con otro nombre.
El código es el siguiente:
long ll_numcols , ll_numrows , ll_c, ll_r
OLEObject xlapp , xlsub
int li_ret
// Coloca el número de columnas y filas a copiar
// Este script copia todo el DW pero ud puede solo copiar las celdas que desee
ll_numcols = long(dw_1.Object.DataWindow.Column.Count)
ll_numrows = dw_1.RowCount()
// Crea el oleobject en la variable xlapp
xlApp = Create OLEObject
// Se conecta a Excel y verifica el código de retorno
li_ret = xlApp.ConnectToNewObject( "Excel.Sheet" )
if li_ret < 0 then
MessageBox("Error Conectandose a Excel !",string(li_ret))
return
end if
// Abre un archivo especifico de Excel
xlApp.Application.Workbooks.Open("c:ejemplo.xls") //,false,true
// Hace Excel visible
xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
// El for/next loop copia todas las filas de cada columna
For ll_c = 1 to ll_numcols
For ll_r = 1 to ll_numrows
xlsub.cells[ll_r,ll_c] = dw_1.object.data[ll_r,ll_c]
Next
Next
// Guarda el archivo abierto
//xlApp.Application.Activeworkbook.Save()
// Guarda el arvhivo con diferente nombre
//xlApp.Application.Activeworkbook.SaveAs("c:ejemplo2.xls")
// se desconecta de excel
xlApp.DisConnectObject()
Destroy xlapp
Me encantan los comics, recién y gracias a Kabytes encuentro a stackoverflow, una galería de comics destinados a todos los programadores.
Cada comic esta clasificado por su rating, el mismo se elabora en base a nuestros votos, una galería que es imperdible con la que cualquier programador se divertirá por un buen rato.
En este sitio de seguro que encontraran viejos comics ya conocidos por todos, no obstante hay tantos que lo más probable es que descubras unos cuantos. Por aquí también tenemos otras tiras cómicas muy divertidas, si no las conoces te recomiendo que te des una vuelta por la tira de Bit & Byte y por Geek in Love.
Fuente: stackoverflow