corcas.blogg.se

Private dictWindows As New Dictionary(Of IntPtr, String) Private hShellWindow As IntPtr = GetShellWindow() TxWindows.Text = ListView1.SelectedItems(0).Tag TxSelect.Text = ListView1.SelectedItems(0).SubItems(2).Text Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable

ListView1.SmallImageList = ImgList 'Uses the ImgList for the icons. ("Full Path", 320, HorizontalAlignment.Left) ("Programs", 130, HorizontalAlignment.Left) Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub Form3_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Shared Function EnumWindows(ByVal enumFunc As EnumWindowsProc, ByVal lParam As Integer) As Boolean Private Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean

Private Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As UInt32) As UInt32 Private Shared Function GetWindowTextLength(ByVal hWnd As IntPtr) As Integer Private Shared Function GetShellWindow() As IntPtr Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As System.IntPtr, ByVal lpString As, ByVal nMaxCount As Integer) As Integer