Hi,
I created a form in VB.Net with only one button. This is the code in
button click event
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
AppGlobals.SetH andles(Me.Handl e.ToInt64())
Call OpenModel()
End Sub
appglobals.seth andles set the handle to window to be used by
postmessage function
Private Declare Function RegisterWindowM essage Lib "user32" Alias
"RegisterWindow MessageA" (ByVal lpString As String) As IntPtr
Private Declare Function FindWindow Lib "user32" Alias
"FindWindow A" (ByVal lpClassName As String, ByVal lpWindowName As
String) As IntPtr
'Private m_xlWindowHandl e As IntPtr
Private m_xlWindowHandl e As Long
Private m_xlMessageID_S C As IntPtr
Private m_xlMessageID_C As IntPtr
Public Const c_RegistryKey As String =
"Software\Pzena \StockAnalyzer. NET\Client"
Public Const r_RegistryKey As String =
"Software\Pzena \StockAnalyzer. NET\Report"
Public Sub SetHandles(Opti onal ByVal WndHandle As Long = 0)
If WndHandle <> 0 Then
xlWindowHandle = WndHandle
Else
'Modified by nikki
'xlWindowHandle = oParentForm.Act iveMainForm.Han dle.ToInt64
End If
'xlWindowHandle = oParentForm.Act iveMainForm.Han dle
xlMessageID_SC = RegisterWindowM essage("WM_EXCE L_SAVE_CLOSE")
xlMessageID_C = RegisterWindowM essage("WM_EXCE L_CLOSE")
End Sub
Public Property xlWindowHandle( )
Get
Return m_xlWindowHandl e
End Get
Set(ByVal Value)
m_xlWindowHandl e = Value
End Set
End Property
Public Property xlMessageID_SC( )
Get
Return m_xlMessageID_S C.ToInt64
End Get
Set(ByVal Value)
m_xlMessageID_S C = Value
End Set
End Property
Public Property xlMessageID_C()
Get
Return m_xlMessageID_C .ToInt64
End Get
Set(ByVal Value)
m_xlMessageID_C = Value
End Set
End Property
Public ReadOnly Property xlMessageID32_S C()
Get
Return m_xlMessageID_S C.ToInt32
End Get
End Property
Public ReadOnly Property xlMessageID32_C ()
Get
Return m_xlMessageID_C .ToInt32
End Get
End Property
OpenModel function calls VBA routine in EXCEl like. This Open Model
function is defined in another class as Class1. There is one more
function call SaveModel defined in same Class1
xlApp.Run("Open Model", "In Excel", CType(xlWindowH andle, Integer),
CType(xlMessage ID_SC, Integer), CType(xlMessage ID_C, Integer))
I added one menu in excel at runtime called Menu1 and has one submenu
submenu1
When I click on submenu1 then I am calling this routine
PostMessage(hwn d,wmsave,0,0).
The point is when this Postmessage is executed then it should execute
SaveModel in Class1 in VB.Net but somehow the control is not returned
to it. I don;t know what exactly is the problem. If somebody please
let me know then I will really appreciate them.
Thanks
Nikki
3  9450 
Remove all the ToInt64 stuff. A window handle should be treated as an
IntPtr, not as long
Also rewrite your declare like this:
Private Declare Auto Function RegisterWindowM essage Lib "user32" (ByVal
lpString As String) As Integer
Private Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As
String, ByVal lpWindowName As String) As IntPtr
Let the runtime figure out if it should call the ansi or unicode version.
Also note that RegisterWindowM essage returns an integer, not IntPtr
/claes
<kn*****@yahoo. com> wrote in message
news:11******** *************@g 10g2000cwb.goog legroups.com... Hi,
I created a form in VB.Net with only one button. This is the code in
button click event
Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button1.Click
AppGlobals.SetH andles(Me.Handl e.ToInt64())
Call OpenModel()
End Sub
appglobals.seth andles set the handle to window to be used by
postmessage function
Private Declare Function RegisterWindowM essage Lib "user32" Alias
"RegisterWindow MessageA" (ByVal lpString As String) As IntPtr
Private Declare Function FindWindow Lib "user32" Alias
"FindWindow A" (ByVal lpClassName As String, ByVal lpWindowName As
String) As IntPtr
'Private m_xlWindowHandl e As IntPtr
Private m_xlWindowHandl e As Long
Private m_xlMessageID_S C As IntPtr
Private m_xlMessageID_C As IntPtr
Public Const c_RegistryKey As String =
"Software\Pzena \StockAnalyzer. NET\Client"
Public Const r_RegistryKey As String =
"Software\Pzena \StockAnalyzer. NET\Report"
Public Sub SetHandles(Opti onal ByVal WndHandle As Long = 0)
If WndHandle <> 0 Then
xlWindowHandle = WndHandle
Else
'Modified by nikki
'xlWindowHandle = oParentForm.Act iveMainForm.Han dle.ToInt64
End If
'xlWindowHandle = oParentForm.Act iveMainForm.Han dle
xlMessageID_SC = RegisterWindowM essage("WM_EXCE L_SAVE_CLOSE")
xlMessageID_C = RegisterWindowM essage("WM_EXCE L_CLOSE")
End Sub
Public Property xlWindowHandle( )
Get
Return m_xlWindowHandl e
End Get
Set(ByVal Value)
m_xlWindowHandl e = Value
End Set
End Property
Public Property xlMessageID_SC( )
Get
Return m_xlMessageID_S C.ToInt64
End Get
Set(ByVal Value)
m_xlMessageID_S C = Value
End Set
End Property
Public Property xlMessageID_C()
Get
Return m_xlMessageID_C .ToInt64
End Get
Set(ByVal Value)
m_xlMessageID_C = Value
End Set
End Property
Public ReadOnly Property xlMessageID32_S C()
Get
Return m_xlMessageID_S C.ToInt32
End Get
End Property
Public ReadOnly Property xlMessageID32_C ()
Get
Return m_xlMessageID_C .ToInt32
End Get
End Property
OpenModel function calls VBA routine in EXCEl like. This Open Model
function is defined in another class as Class1. There is one more
function call SaveModel defined in same Class1
xlApp.Run("Open Model", "In Excel", CType(xlWindowH andle, Integer),
CType(xlMessage ID_SC, Integer), CType(xlMessage ID_C, Integer))
I added one menu in excel at runtime called Menu1 and has one submenu
submenu1
When I click on submenu1 then I am calling this routine
PostMessage(hwn d,wmsave,0,0).
The point is when this Postmessage is executed then it should execute
SaveModel in Class1 in VB.Net but somehow the control is not returned
to it. I don;t know what exactly is the problem. If somebody please
let me know then I will really appreciate them.
Thanks
Nikki
Hello knikkix,
Also review the PostMessage declaration. It should be something like:
declare function PostMessage lib "user32.dll " (byval hWnd as intptr, byval Msg as uint32, byval lParam as int32, byval wParam as int32) as int32
Regards.
<kn*****@yahoo. com> escribió en el mensaje news:11******** *************@g 10g2000cwb.goog legroups.com...
| Hi,
|
| I created a form in VB.Net with only one button. This is the code in
| button click event
|
| Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
| System.EventArg s) Handles Button1.Click
| AppGlobals.SetH andles(Me.Handl e.ToInt64())
| Call OpenModel()
| End Sub
|
| appglobals.seth andles set the handle to window to be used by
| postmessage function
|
| Private Declare Function RegisterWindowM essage Lib "user32" Alias
| "RegisterWindow MessageA" (ByVal lpString As String) As IntPtr
| Private Declare Function FindWindow Lib "user32" Alias
| "FindWindow A" (ByVal lpClassName As String, ByVal lpWindowName As
| String) As IntPtr
|
| 'Private m_xlWindowHandl e As IntPtr
| Private m_xlWindowHandl e As Long
| Private m_xlMessageID_S C As IntPtr
| Private m_xlMessageID_C As IntPtr
|
| Public Const c_RegistryKey As String =
| "Software\Pzena \StockAnalyzer. NET\Client"
| Public Const r_RegistryKey As String =
| "Software\Pzena \StockAnalyzer. NET\Report"
|
| Public Sub SetHandles(Opti onal ByVal WndHandle As Long = 0)
| If WndHandle <> 0 Then
| xlWindowHandle = WndHandle
| Else
| 'Modified by nikki
| 'xlWindowHandle = oParentForm.Act iveMainForm.Han dle.ToInt64
| End If
| 'xlWindowHandle = oParentForm.Act iveMainForm.Han dle
| xlMessageID_SC = RegisterWindowM essage("WM_EXCE L_SAVE_CLOSE")
| xlMessageID_C = RegisterWindowM essage("WM_EXCE L_CLOSE")
| End Sub
|
| Public Property xlWindowHandle( )
| Get
| Return m_xlWindowHandl e
| End Get
| Set(ByVal Value)
| m_xlWindowHandl e = Value
| End Set
| End Property
|
| Public Property xlMessageID_SC( )
| Get
| Return m_xlMessageID_S C.ToInt64
| End Get
| Set(ByVal Value)
| m_xlMessageID_S C = Value
| End Set
| End Property
|
| Public Property xlMessageID_C()
| Get
| Return m_xlMessageID_C .ToInt64
| End Get
| Set(ByVal Value)
| m_xlMessageID_C = Value
| End Set
| End Property
|
| Public ReadOnly Property xlMessageID32_S C()
| Get
| Return m_xlMessageID_S C.ToInt32
| End Get
| End Property
|
| Public ReadOnly Property xlMessageID32_C ()
| Get
| Return m_xlMessageID_C .ToInt32
| End Get
| End Property
|
| OpenModel function calls VBA routine in EXCEl like. This Open Model
| function is defined in another class as Class1. There is one more
| function call SaveModel defined in same Class1
| xlApp.Run("Open Model", "In Excel", CType(xlWindowH andle, Integer),
| CType(xlMessage ID_SC, Integer), CType(xlMessage ID_C, Integer))
|
| I added one menu in excel at runtime called Menu1 and has one submenu
| submenu1
| When I click on submenu1 then I am calling this routine
| PostMessage(hwn d,wmsave,0,0).
|
| The point is when this Postmessage is executed then it should execute
| SaveModel in Class1 in VB.Net but somehow the control is not returned
| to it. I don;t know what exactly is the problem. If somebody please
| let me know then I will really appreciate them.
|
| Thanks
| Nikki
|
You can also overload PostMessage if you need other types for lParam and/or
wParam. The marshaler will handle the conversion for you (within limits)
/claes
"José Manuel Agüero" <chema012_hotma il.com> wrote in message
news:Oh******** ******@TK2MSFTN GP04.phx.gbl...
Hello knikkix,
Also review the PostMessage declaration. It should be something like:
declare function PostMessage lib "user32.dll " (byval hWnd as intptr, byval
Msg as uint32, byval lParam as int32, byval wParam as int32) as int32
Regards.
<kn*****@yahoo. com> escribió en el mensaje
news:11******** *************@g 10g2000cwb.goog legroups.com...
| Hi,
|
| I created a form in VB.Net with only one button. This is the code in
| button click event
|
| Private Sub Button1_Click(B yVal sender As System.Object, ByVal e As
| System.EventArg s) Handles Button1.Click
| AppGlobals.SetH andles(Me.Handl e.ToInt64())
| Call OpenModel()
| End Sub
|
| appglobals.seth andles set the handle to window to be used by
| postmessage function
|
| Private Declare Function RegisterWindowM essage Lib "user32" Alias
| "RegisterWindow MessageA" (ByVal lpString As String) As IntPtr
| Private Declare Function FindWindow Lib "user32" Alias
| "FindWindow A" (ByVal lpClassName As String, ByVal lpWindowName As
| String) As IntPtr
|
| 'Private m_xlWindowHandl e As IntPtr
| Private m_xlWindowHandl e As Long
| Private m_xlMessageID_S C As IntPtr
| Private m_xlMessageID_C As IntPtr
|
| Public Const c_RegistryKey As String =
| "Software\Pzena \StockAnalyzer. NET\Client"
| Public Const r_RegistryKey As String =
| "Software\Pzena \StockAnalyzer. NET\Report"
|
| Public Sub SetHandles(Opti onal ByVal WndHandle As Long = 0)
| If WndHandle <> 0 Then
| xlWindowHandle = WndHandle
| Else
| 'Modified by nikki
| 'xlWindowHandle = oParentForm.Act iveMainForm.Han dle.ToInt64
| End If
| 'xlWindowHandle = oParentForm.Act iveMainForm.Han dle
| xlMessageID_SC = RegisterWindowM essage("WM_EXCE L_SAVE_CLOSE")
| xlMessageID_C = RegisterWindowM essage("WM_EXCE L_CLOSE")
| End Sub
|
| Public Property xlWindowHandle( )
| Get
| Return m_xlWindowHandl e
| End Get
| Set(ByVal Value)
| m_xlWindowHandl e = Value
| End Set
| End Property
|
| Public Property xlMessageID_SC( )
| Get
| Return m_xlMessageID_S C.ToInt64
| End Get
| Set(ByVal Value)
| m_xlMessageID_S C = Value
| End Set
| End Property
|
| Public Property xlMessageID_C()
| Get
| Return m_xlMessageID_C .ToInt64
| End Get
| Set(ByVal Value)
| m_xlMessageID_C = Value
| End Set
| End Property
|
| Public ReadOnly Property xlMessageID32_S C()
| Get
| Return m_xlMessageID_S C.ToInt32
| End Get
| End Property
|
| Public ReadOnly Property xlMessageID32_C ()
| Get
| Return m_xlMessageID_C .ToInt32
| End Get
| End Property
|
| OpenModel function calls VBA routine in EXCEl like. This Open Model
| function is defined in another class as Class1. There is one more
| function call SaveModel defined in same Class1
| xlApp.Run("Open Model", "In Excel", CType(xlWindowH andle, Integer),
| CType(xlMessage ID_SC, Integer), CType(xlMessage ID_C, Integer))
|
| I added one menu in excel at runtime called Menu1 and has one submenu
| submenu1
| When I click on submenu1 then I am calling this routine
| PostMessage(hwn d,wmsave,0,0).
|
| The point is when this Postmessage is executed then it should execute
| SaveModel in Class1 in VB.Net but somehow the control is not returned
| to it. I don;t know what exactly is the problem. If somebody please
| let me know then I will really appreciate them.
|
| Thanks
| Nikki
|
This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics | |
by: Paul |
last post by:
Hi all.
Probably a quick one, I'm using PostMessage to send keys to an applicatoin
but how do I convert the key string to a long values so that I can pass this
to the wParam. The definition is below
Private Declare Auto Function PostMessage Lib "user32" ( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As Long, _
|
by: James |
last post by:
In my code I have a problem in abtaining a windows handle. I do not
know the namespace to obtain the windows hanle. here is the code.
using System;
using System.Collections;
using System.Windows.Forms;
using System.Runtime.InteropServices;
namespace mynamespace
|
by: Wilfried Mestdagh |
last post by:
Hi,
Using P/Invoke I use PostMessage to send a message from one thread to
another. I'm pretty sure this has already worked in dotnet. but I've
upgraded version 2 few day ago.
Now I have an illegal cross thread operation if posting a message. Is this a
bug introduced in latest version of dotnet ? It is very legal to use
postmessage ...
|
by: Lenster |
last post by:
When using PostMessage to post myself a message, the msg and wparam
parameters somehow get swapped over. They are in the correct order when
calling PostMessage but by the time wndproc handles the message msg is now in
the wparam position and msg is set to 0 (NULL message).
Does anyone know why this behaviour is occurring ?
I've included a...
|
by: Max M. Power |
last post by:
When I use the SendMessage API I can sucessfully send and receive a user
defined message.
When I use the PostMessage API I can NOT sucessfully send and receive the
same user defined message.
I've got a C# class library project with two classes:
Class 1 is derives from : System.Windows.Forms.Form and overrides the base
WndProc method for...
| | |
by: seattleboatguy |
last post by:
I am trying to send a message from a visual c++ user-thread to the main
window, so the main window can update text on the window to reflect
what the user-thread is doing. I have tried 2 different approaches, and
both fail. I don't know what to try next.
+++++++++++++++++++++++++++++++++++++++++++++++++++++
APPROACH #1: (this approach...
|
by: easoftware |
last post by:
In my ComboBox, I am trying to post the CBN_EDITCHANGE message after
the
CBN_SELCHANGE is received, but I am having no luck. I can trap for the
CBN_SELCHANGE message, but I cannot post the CBN_EDITCHANGE message. I
think
my PostMessage parameters are wrong, but I cannot find what they should
be.
Any help would be greatly appreciated....
|
by: Sergei |
last post by:
Can anyone explain why PostMessage to a Windows Form
is considered unsafe and raises InvalidOperationException?
I can get rid of that setting CheckForIllegalCrossThreadCalls
to false and everything works just fine. Still I feel somewhat
uncomfortable.
Sergei
|
by: one2001boy |
last post by:
PostMessage() function returns ERROR_NOT_ENOUGH_QUOTA after running in a
loop for 700 times, but the disk space and memory are still big enough.
any suggestion to resolve this problem?
thanks.
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it. ...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For...
| | |
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new presenter, Adolph Dupré who will be discussing some powerful techniques for using class modules.
He will explain when you may want to use classes...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one.
At the time of converting from word file to html my equations which are in the word document file was convert...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
| | |
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| |
