|
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.
|
|
|
|
|
The code looks good, so I question the values you're using.
Eddy is on the right track.
|
|
|
|
|
jan212r wrote: What else can I do?
Verify the value of your enum[^].
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
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
|
|
|
|
|
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
If you can't read my code, try converting it here[^]
|
|
|
|
|
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
|
|
|
|
|
Hehe. Assumption is the mother of all _______ups.
|
|
|
|
|
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
|
|
|
|
|
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.
|
|
|
|
|
This reeks of homework.
We're not going to do your homework for you.
|
|
|
|
|
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.
|
|
|
|
|
So look for the last space character in the string. Everything after that should be the date. Use Date.TryParse to try and convert it to a DateTime object and you're done.
|
|
|
|
|
Hi,
I'm facing a problem about how to zip the folder by using vb6. I hope that can get help from all of you.
Thank you.
|
|
|
|
|
wsun87 wrote: I'm facing a problem about how to zip the folder by using vb6.
Execute an external app to do the zipping. It's strongly advised not to write any new code in VB6. The language is no longer sold nor supported.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Hi all,
Take a look at:
http://www.codeguru.com/vb/gen/vb_graphics/fileformats/article.php/c6743/Zip-and-Unzip-Using-VB5-or-VB6.htm
It looks great anyway.
(sorry about then link in text mode, i still did'nt find how it works) 
See you
|
|
|
|
|
Hi.
Does anyone know of a way to throw errors in vb.Net based on the error number? I need to build a list of just that since, as unnbeleivable as it sounds, MS apparently can't provide a table of error codes matched to their descriptions like they did in vb6. If that means they are too numerous to list, then if they can't stand the heat, get out of the kitchen, right?
Anyway, the Throw() method seems to be based on the user providing the error description so that the error can be thrown, and THEN you can query the Err structure to get the corresponding number. But I don't see a way of going in reverse...Providing an error number and having the exception thrown, so you can get at the description.
In that same regard, I could go back and use the error codes from vb6.....IF they matched up with the ones in vb.Net. That's one hell of an assumption!
Best regards!
modified 25-Apr-13 18:14pm.
|
|
|
|
|
Maybe you've already seen this but you can create your own exception handler by inheriting from the system defined exception classes.
Perhaps you could simulate the old vb error codes that way (if you must).
"It's true that hard work never killed anyone. But I figure, why take the chance." - Ronald Reagan
That's what machines are for.
Got a problem?
Sleep on it.
|
|
|
|
|
Hm...Seems crazy to go through all that for a simple list. 
|
|
|
|
|
>"Hm...Seems crazy to go through all that for a simple list.
It's not what I would want to bother with, but the I'm not the OP. Only he can weigh the pro and cons of maintaining their legacy code.
"It's true that hard work never killed anyone. But I figure, why take the chance." - Ronald Reagan
That's what machines are for.
Got a problem?
Sleep on it.
|
|
|
|
|
The exceptions don't really have error numbers. The Err object is a hold over from the VB6 days. It's not used in VB.NET code. It's only there for backwards compatibility in old VB6 projects that were converted to VB.NET.
|
|
|
|
|
Well, my predicament is that I am finishing up a port-over of a vb6 project, with old style "On Error Resume and Goto" statements. So I need all possible errors that can be raised at certain spots. And since .net supports backward compatability, then the least they can do is show a table of vb6 error codes vs. descriptions. BUT then again, if this is TRUE backwards compatability, then the code numbers would not have changed. I hate making assumptions like that, though.
|
|
|
|
|
Details like that are left up to the VB6 documentation, not VB.NET. They have nothing to do with VB.NET.
|
|
|
|
|
Still...Would be nice if they would put some of the old stuff in the net documentation, so you don't have to leave the net IDE to go look for a legacy feature that net supports. In that sense, it really IS part of net...Just not its new framework. I guess I'm just nitpicking.
|
|
|
|
|
Again. It has nothing to do with .NET at all. It's legacy junk that's only there for backwards compatibility. It offers nothing to .NET development and why would you duplicate documentation that is already out there and redocument language features that have been unsupported for years now?
|
|
|
|
|
It really is NOT part of .NET. What you see in a converted application are methods and hacks that look and work like old VB6 code. It's just a bunch of adaptations cobbled together to make .NET code look and work like old VB6 functionality.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
