Visual Basic

29-Apr-13 2:03

Hi,

I'm hiding a process with the api

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As ShowWindowCommands) As Boolean
End Function

I call that api with this code

ShowWindow(p.MainWindowHandle, ShowWindowCommands.Hide)'ShowWindowsCommand is an enum

that works

After that I'm have an option to show it again.
I use this code

Dim h As IntPtr = FindWindow(vbNullString, cms.Text)'cms comes from an contextmenustrip
If h <> 0 Then
  ShowWindow(h, ShowWindowCommands.Show) 'p.MainWindowHandle
  'ShowWindow(hwndMain, SW_SHOWDEFAULT);
  UpdateWindow(h)
  MsgBox("restored")
End If

The handle h is fine but I the window do not restore. I also tryed sw_restore

What else can I do?

Jan

Dave Kreskowiak29-Apr-13 2:10

29-Apr-13 2:10

jan212r wrote:
I'm hiding a process with the api

No, you're not. You're hiding a window. A process is an entirely different concept.

jan212r wrote:
What else can I do?

Try sending the window the WM_PAINT message.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

JR21229-Apr-13 2:39

29-Apr-13 2:39

Your right of course I'm hiding a window from a process. So I added:

Dim rec As APIKit.RECT
GetClientRect(h, rec)
InvalidateRect(h, rec, True)
UpdateWindow(h)

without luck

I pleased is complete code on http://users.telenet.be/janr/MouseHook.zip[^]

Please keep in mind that I 'm testing what is possible and that there is a loot of nonsense in the code
The idea is to hide a window when I'm clicking with the middle mouse button and that I restore through a icon in the system area

modified 29-Apr-13 8:50am.

Dave Kreskowiak29-Apr-13 7:13

29-Apr-13 7:13

The code looks good, so I question the values you're using.

Eddy is on the right track.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Eddy Vluggen29-Apr-13 2:17

Eddy Vluggen

29-Apr-13 2:17

jan212r wrote:
What else can I do?

Verify the value of your enum[^].

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

JR21229-Apr-13 2:40

29-Apr-13 2:40

my enum

Enum ShowWindowCommands
  Hide = 0
  ShowNormal = 1
  ShowMinimized = 2
  ShowMaximized = 3
  Maximize = 3
  ShowNormalNoActivate = 4
  Show = 5
  Minimize = 6
  ShowMinNoActivate = 7
  ShowNoActivate = 8
  Restore = 9
  ShowDefault = 10
  ForceMinimized = 11
End Enum

Eddy Vluggen29-Apr-13 3:24

Eddy Vluggen

29-Apr-13 3:24

jan212r wrote:
my enum

Posting it here is hardly the same as comparing it. Your enum-declaration is not a UINT, but defaults to INT. I suggest you use the version from the P/Invoke website, preferably with the same name. Below code works;

Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Diagnostics
Module Module1
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As WindowShowStyle) As Boolean
    End Function
    Private Enum WindowShowStyle : uint
        Hide = 0
        Show = 5
    End Enum
    Sub Main()
        Dim p = Process.Start("calc.exe")
        Console.WriteLine("Any key to hide")
        Console.ReadKey()
        ShowWindow(p.MainWindowHandle, WindowShowStyle.Hide)
        Console.WriteLine("Any key to show")
        Console.ReadKey()
        ShowWindow(p.MainWindowHandle, WindowShowStyle.Show)
    End Sub
End Module

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

JR21229-Apr-13 20:38

29-Apr-13 20:38

thanks both.

It was the dllimort that was wrong.

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As WindowShowStyle) As Boolean

I didn't look into that becaurse the hide worked fine. So My idee was if 1 works, all works.

thx again

Dave Kreskowiak30-Apr-13 1:43

VBA using Structure Appearance

30-Apr-13 1:43

Hehe. Assumption is the mother of all _______ups.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

mach1carr28-Apr-13 9:19

mach1carr

28-Apr-13 9:19

Structure Appearance
	Dim height As Double   'inches
	Dim weight As Double   'pounds 
End Structure

Structure Person
	Dim name As String
	Dim stats As Appearance 
End Structure

Private Sub btnDisplay_Click(...) Handles btnDisplay.Click
	Dim personl, person2 As Person
	Dim person1 As String = Michael
	

(missing lines –come from a, b, c, d, & e listed below) 



End Sub
	


	(a)	Give person, the name Michael
	(b)	Set Michael's height and weight to 71 and 190, respectively.
	(c)	Give person2 the name Jacob.
	(d)	Set Jacob's height and weight to 70 and 175, respectively.
	(e)	If one person is both taller and heavier than the other, display a sentence of the form

Re: VBA using Structure Appearance

Kenneth Haugland28-Apr-13 21:36

Kenneth Haugland

28-Apr-13 21:36

It seems rather elementary but If you take a look at the code below:

Dim strFileName As String
Dim dlgXLS As New CFileDialog

With dlgXLS
  .Title = "Choose a Spreadsheet"
  .Filter = "Excel (*.xls)|*.xls|All Files (*.*)|*.*"
  .Flags = ofnFileMustExist OR ofnExplorer

  If OpenFileDialog() Then
    strFileName = .FileName
  End If
End With
Set dlgXLS = Nothing

I assume that you would write somehting like:

Dim personl, person2 As Person
person1.Name =  "Mic"
person1.Stats.Height = 170

etc.

Re: VBA using Structure Appearance

Dave Kreskowiak29-Apr-13 2:07

To readLine column by column

29-Apr-13 2:07

This reeks of homework.

We're not going to do your homework for you.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

cumaryare426-Apr-13 10:25

cumaryare4

26-Apr-13 10:25

Dear all,

could you please help me I would like to read this line "StudentName PlaceOB Education Age Sex RegDate" column and retrieve this date 4 textbox.

Re: To readLine column by column

Dave Kreskowiak26-Apr-13 12:21