Extraer Icono de un exe

Imports System.Runtime.InteropServices Imports System.Reflection  Public Class Form1  Private Declare Auto Function ExtractIcon Lib "shell32.dll" ( _ ByVal hInst As System.IntPtr, _ ByVal lpszExeFileName As String, _ ByVal nIconIndex As Integer) As System.IntPtr  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim hIcon As System.IntPtr = ExtractIcon(Marshal.GetHINSTANCE(Assembly.GetExecutingAssembly().GetModules() (0)), "C:\windows\notepad.exe", 0) Me.PictureBox1.Image = Bitmap.FromHicon(hIcon) End Sub End Class

Cambiar el buscador de la barra de direcciones Firefox

1. Escribir about:config en la barra de dirección de firefox lo que abrirá una ventana desde la que cambiar las preferencias de firefox.
2. Dentro de la caja de texto “Filtro” escribimos keyword y pulsamos enter, lo que hará que sólo se muestren las preferencias cuyo nombre contenga la palabra “keyword“
3. Doble clic sobre keyword.URL para editar su valor e introducimos “http://www.google.com/search?btnG=Google+Search&q=” (esta es la dirección web que utilizará firefox para buscar la palabra clave, podríamos introducir la dirección de otro buscador como Yahoo o All the web)
4. Clic sobre OK para aceptar y reinicia el navegador

filtrar Columna Datawindow desde columna DrowdownDW

//Variable de instancia
DATAWINDOWCHILD ldwc_local
string is_oldselec


//evento iteamchanged dw

iF (THIS.Getchild('', ldwc_local) = 1) THEN
ldwc_local.SetTransObject()
ldwc_local.retrieve(data)
is_oldselec=data
else
messagebox('','Error getDataChild! en item',exclamation!)
end if

//evento cliked DW

if this.object.estados_estado[row]<>is_oldselec then

iF (THIS.Getchild('', ldwc_local) = 1) THEN
ldwc_local.SetTransObject()
ldwc_local.retrieve(this.object.estados_estado[row])
end if
end if