Visual Basic

WndProc does not work in Windows CE 5.0

11-Apr-13 7:27

yes, I found the code in MSDN website.

Member 989133410-Apr-13 3:05

10-Apr-13 3:05

Hello,
I am doing program in VB for Windows CE 5.0. I need to catch messages from other programs in VB window. In VB is defined a function WndProc. But, this function does not work (or exist) on CE. Compiler cannot recognize it.

Protected Overrides Sub WndProc(ByRef recWinMessage As Microsoft.WindowsCE.Forms.Message)
    MyBase.WndProc(recWinMessage)
End Sub

Can anyone help me?

dusty_dex10-Apr-13 4:26

10-Apr-13 4:26

You might be able to implement missing features using Library imports + P/Invoke

Look toward the end of this article. msdn.microsoft.com/en-us/library/aa446564.aspx

"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.

Member 989133410-Apr-13 22:52

10-Apr-13 22:52

I tried to read an article, but I didn't find anything helpful. Problem is, that I am using VB for Windows CE and there is not supported WndProc. What can I do?

This is a fragment of code. What I am doing wrong? WndProc cannot be recognized od VB for Window CE.

<dllimport("coredll.dll", setlasterror:="True," charset:="CharSet.Auto)"> Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
End Function

<dllimport("coredll.dll", setlasterror:="True," charset:="CharSet.Auto)"> Private Shared Function SendMessage( _
ByVal hwnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
End Function
<dllimport("coredll.dll", setlasterror:="True)"> _
Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As WndProc) As Integer
End Function

Public Shared Sub Main2()
Dim ip As IntPtr
ip = FindWindow(vbNullString, "Kvant 1.0")
If (ip <> 0) Then
MsgBox("Kuk!")
SendMessage(ip, &H10, 0, 0)
End If
End Sub

Dim GWL_WNDPROC As Long = -4
Dim lpPrevWndProc As Integer

Public Function SubClass(ByVal lHwnd As Long) As Boolean
Beep()
lpPrevWndProc = SetWindowLong(lHwnd, GWL_WNDPROC, AddressOf WndProc)
End Function

Protected Overrides Sub WndProc(ByRef recWinMessage As Microsoft.WindowsCE.Forms.Message)
MyBase.WndProc(recWinMessage)
End Sub

Shared Sub Main()
Application.Run(New AOutForm())
End Sub

dusty_dex11-Apr-13 0:42

11-Apr-13 0:42

Did you add the reference to Microsoft.WindowsCE.Forms in your project?

It is supported.

"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.

Member 989133411-Apr-13 2:31

11-Apr-13 2:31

Yes. When I inherit class like this

Partial Public Class AOutForm
Inherits Microsoft.WindowsCE.Forms.MessageWindow

then WndProc works, but I have problem to launch application, because

Application.Run(New AOutForm())

does not work. What to do?

dusty_dex11-Apr-13 3:05

11-Apr-13 3:05

The VB My feature is supported in the compact framework. Perhaps that will simplify your efforts

msdn.microsoft.com/en-US/library/5btzf5yk(v=vs.80).aspx

I can't find any useful info about Application.Run with the current MSDN site. Dead | X|

So I keep having to switch to another machine that has most of the old Windows CE stuff.

Can you let me know any error codes that you receive, I will be able to look those up, on the other machine too.

Smile | :)

"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.

Member 989133411-Apr-13 3:31

11-Apr-13 3:31

How can I create a dialog Window in VB for CE. I mean something like DoModal() in C++. Sorry, I have just poor knowledge about this.

The error message what you are asking me for is:

Error 3 Value of type 'AOut.WNDMSG' cannot be converted to 'System.Windows.Forms.Form'. C:\Program Files\Measurement Computing\DAQFlex for Windows CE\Examples\VB\AOut\AOutForm.Common.vb 209 25 AOut

dusty_dex11-Apr-13 3:42

11-Apr-13 3:42

Let's see if this helps.

microsoft.windowsce.forms.messagewindow%28v=vs.80%29.aspx

"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.

Member 989133411-Apr-13 3:49

11-Apr-13 3:49

I know that example. I does not help me because my Window class is derived from Microsoft.WindowsCE.Forms.MessageWindow, not from System.Windows.Forms.Form.

dusty_dex11-Apr-13 4:09

11-Apr-13 4:09

You might get more help within Microsoft's own developer forums, as there's scant info about Windows CE programming on the wider web.

They have been happy to help me in the past.

"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.

Member 989133411-Apr-13 4:15

11-Apr-13 4:15

Do you have a web address?

dusty_dex11-Apr-13 4:55

SaveFileDialog.ShowDialog() return value

11-Apr-13 4:55

Start here: Smile | :)

social.msdn.microsoft.com/Forums/en-US/category/smartdevicedevelopment

"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.

econy9-Apr-13 9:06

9-Apr-13 9:06

I use the statements like the following:

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
               If SaveFileDialog1.FileName = "" Then
                   MsgBox("Plase input file name ")

Then if I don't input file name in the dialog,just press the save button, it seems the dialog can't return, i.e, close it.

Is the DialogResult.OK requires user must input filename?

Eddy Vluggen9-Apr-13 9:36

Eddy Vluggen

9-Apr-13 9:36

The "ShowDialog" method is blocking; it will halt the execution of the current thread until the dialog is dismissed by the user. You're checking whether the result of that method equals the enumerated value "DialogResult.OK".

Bastard Programmer from Hell Suspicious | :suss:

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

econy9-Apr-13 9:39

9-Apr-13 9:39

I mean if user input nothing in the dialog, then user press save, it will not return.

Is that showdialog() ask user must input something?

Eddy Vluggen9-Apr-13 9:59

Eddy Vluggen

9-Apr-13 9:59

econy wrote:
I mean if user input nothing in the dialog, then user press save, it will not return.

It'll return, but with a different value.

econy wrote:
Is that showdialog() ask user must input something?

Yup, with various options[^] to influence it's behaviour.

Bastard Programmer from Hell Suspicious | :suss:

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

Johnny J.17-Apr-13 1:40

Johnny J.

17-Apr-13 1:40

Eddy Vluggen wrote:
econy wrote:
I mean if user input nothing in the dialog, then user press save, it will not return.

It'll return, but with a different value.

Nope, not so, please see Richards answer, which is correct to my knowledge

Why can't I be applicable like John? - Me, April 2011
-----
Beidh ceol, caint agus craic againn - Seán Bán Breathnach
-----
Da mihi sis crustum Etruscum cum omnibus in eo!
-----
Just because a thing is new don’t mean that it’s better - Will Rogers, September 4, 1932

Eddy Vluggen17-Apr-13 1:53

Eddy Vluggen

17-Apr-13 1:53

I did, a few weeks ago. Didn't update this answer, as his problem is already solved.

Simply downvote the answer if you don't like it Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

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

Johnny J.17-Apr-13 1:54

Johnny J.

17-Apr-13 1:54

No need for that, I was just passing by and felt the need to butt in... Wink | ;)

Richard MacCutchan9-Apr-13 9:46

Richard MacCutchan

9-Apr-13 9:46

You cannot use OK without a filename, you must use Cancel.

Use the best guess

econy9-Apr-13 15:22

What is the function of Filedialog.RestoreDirectory

9-Apr-13 15:22

Yes, that was I encountered. shodialog() seems that user must input a file name and then click OK, otherwise, user can only click cancel

econy9-Apr-13 6:46

Re: What is the function of Filedialog.RestoreDirectory

9-Apr-13 6:46

In MSDN forum, it explains that:
the RestoreDirectory property to ensure that the current directory is restored when the dialog box is closed.

But I tried the example code, I can't find the difference between
RestoreDirectory = true or RestoreDirectory = false.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       Dim myStream As Stream = Nothing
       Dim openFileDialog1 As New OpenFileDialog()

       openFileDialog1.InitialDirectory = "c:\"
       openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
       openFileDialog1.FilterIndex = 2
       openFileDialog1.RestoreDirectory = False

       If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
           Try
               myStream = openFileDialog1.OpenFile()
               If (myStream IsNot Nothing) Then
                   ' Insert code to read the stream here.
               End If
           Catch Ex As Exception
               MessageBox.Show("Cannot read file from disk. Original error: " & Ex.Message)
           Finally
               ' Check this again, since we need to make sure we didn't throw an exception on open.
               If (myStream IsNot Nothing) Then
                   myStream.Close()
               End If
           End Try
       End If
   End Sub

Richard MacCutchan9-Apr-13 6:59

Richard MacCutchan

9-Apr-13 6:59

The documentation[^] could be worded better. However, I think the issue is that the OpenFileDialog by default remembers the last directory navigated to. If RestoreDirectory is set to true then it restores the previous saved directory. This should be easy to confirm with a test.

Use the best guess

Re: What is the function of Filedialog.RestoreDirectory

econy9-Apr-13 7:05