multiple keypresses - Visual Basic Discussion Boards

Re: Assembly is being destroyed to quickly.

Jon_Boy14-May-09 2:23

14-May-09 2:23

Checked the project, def. no static members. I broke out the code that is declaring and destroying the object (to avoid all code running in between), same thing. If I rem out the .dispose in the 2nd sub, the object remains alive in the sub 1.......but I don't want to start a memory leak.

Regarding VB6, we're in the process of porting everything to .Net - but we have to support the unconverted VB6 stuff in the meantime - not fun~!

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Re: Assembly is being destroyed to quickly.

Jon_Boy14-May-09 3:19

Jon_Boy

14-May-09 3:19

Sigh!

I had a var being declare in a module that was being disposed in a class. That was hosing it up.

Thanks Dave.

Any suggestions, ideas, or 'constructive criticism' are always welcome.

"There's no such thing as a stupid question, only stupid people." - Mr. Garrison

Mdi form and ToolStripContainer

Samir Ibrahim13-May-09 4:27

Samir Ibrahim

13-May-09 4:27

I know how to make a child form appear in form, set the first form IsMdiContainer to True then, write this when calling the form

Form2.MdiParent = Me<br />
Form2.Show()

Now that is not working when there is ToolStripContainer on the form, it gives error message "{"Form that is not a top-level form cannot be displayed as a modal dialog box. Remove the form from any parent form before calling Show."}"

I add this line before the Show() Form2.TopMost = True, now it does not give any kind of error, but when I press on the button to call the second form(child) nothing happened.

I set the ToolStripContainer.Visible = False and the child windows appear but my ToolStripContainer and its content is not.

Can I show the form as child in form with the existence of ToolStripContainer.

TIA

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

Re: Mdi form and ToolStripContainer

Dave Kreskowiak13-May-09 5:29

Dave Kreskowiak

13-May-09 5:29

Samir Ibrahim wrote:
Form2.MdiParent = Me
Form2.Show()

Now that is not working when there is ToolStripContainer on the form, it gives error message "{"Form that is not a top-level form cannot be displayed as a modal dialog box. Remove the form from any parent form before calling Show."}"

I don't know what you did because you haven't shown a complete code snippet that creates the new child form and displays it. But, MdiChildren CAN have a ToolStripContainer control on them.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Mdi form and ToolStripContainer

Samir Ibrahim13-May-09 19:49

Samir Ibrahim

13-May-09 19:49

Hi Dave

Dave Kreskowiak wrote:
I don't know what you did because you haven't shown a complete code snippet that creates the new child form and displays it

My mistake I did not explain it correctly.

- I have main form (form1) and child form (form2)
- I add a ToolStripContainer to form1 then I clicked on "dock fill in form"
- I add a button on form1
- I have set this property to form1 (IsMdiContainer = True)
- In the button_click I write this code.
Form2.MdiParent = Me
Form2.Show()

- If I did not clicked on ToolStripContainer "dock fill in form" the child form is displayed behind ToolStripContainer

- ToolStripContainer exist on the parent form (form1) not child form.

Thanks in Advance.

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

Re: Mdi form and ToolStripContainer

Dave Kreskowiak14-May-09 2:02

Dave Kreskowiak

14-May-09 2:02

Samir Ibrahim wrote:
If I did not clicked on ToolStripContainer "dock fill in form" the child form is displayed behind ToolStripContainer

Yes it does, and so does the button you dropped on Form1 too. This is because your MdiChild forms are rendered inside a control that's automatically added to an MdiParent form, called MdiClient. This control is docked to fill the MdiParent form. Normally, the only thing that will change the dimensions of this container are other docked controls on the parent form.

You really should not be dropping undocked controls directly on Form1. They should be in docked containers, like the ToolStripContainer.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: Mdi form and ToolStripContainer

Samir Ibrahim14-May-09 2:28

Samir Ibrahim

14-May-09 2:28

I got the idea.

Thank you very much.

Like car accidents, most hardware problems are due to driver error.

Samir R. Ibrahim

multiple keypresses

TheMrProgrammer13-May-09 4:06

TheMrProgrammer

13-May-09 4:06

hello everyone

in my app i need to detect more than one keypresses

like while key "1" is pressed i need to know if key "2" is also pressed

,ie, both keys are pressed at the same time or not?

can any one help me??

TheMrProgrammer

Re: multiple keypresses

Henry Minute13-May-09 4:58

Henry Minute

13-May-09 4:58

The only way I know to do this is to use the API call GetKeyboardState(), unless someone knows of a simpler way.

Henry Minute

Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”

Re: multiple keypresses

nlarson1113-May-09 8:02

nlarson11

13-May-09 8:02

write your own code using the key_down/key_up events - the below code writes out to the debug window each key has been pressed(down). once you lift up on a key it shows it has been released(up).

Private _KeyDown As New List(Of Int16)

  Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
      If Not _KeyDown.Contains(e.KeyCode) Then
          _KeyDown.Add(e.KeyCode)
          Debug.Print("d:" & Chr(e.KeyValue))
      End If
  End Sub

  Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
      If _KeyDown.Contains(e.KeyCode) Then
          _KeyDown.Remove(e.KeyCode)
          Debug.Print("u:" & Chr(e.KeyValue))
      End If
  End Sub

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous

'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

Re: multiple keypresses

JR21213-May-09 19:40

JR212

13-May-09 19:40

Nice code. I can use this to, but a question: It seem to me that the maximum numbre of simultanious keys is 3. Is this normal?

Re: multiple keypresses

Dalek Dave13-May-09 21:38

Dalek Dave

13-May-09 21:38

Historical.

Ctrl Alt Delete
Ctrl Shift (a Key)
Shift AltGr (a Key)

Any more than three is deemed to be elbows on the keyboard.

I believe this can be altered, but alas not by me. Dave Kreskowiak may know this. Ask him,

------------------------------------

"Possessions make you poor, wealth is measurable only in experience."
Sun Tzu 621BC

Re: multiple keypresses

Johan Hakkesteegt13-May-09 22:14

Johan Hakkesteegt

13-May-09 22:14

I adapted Larson's code just slightly (you need to disable TextBox1 by the way):

Private WithEvents _KeyDown As New List(Of Int16)

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    If Not _KeyDown.Contains(e.KeyCode) Then
        _KeyDown.Add(e.KeyCode)
        TextBox1.Text &= Chr(e.KeyCode)
    End If
End Sub

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
    If _KeyDown.Contains(e.KeyCode) Then
        _KeyDown.Remove(e.KeyCode)
        TextBox1.Text = TextBox1.Text.Remove(TextBox1.Text.IndexOf(Chr(e.KeyCode)), 1)
    End If
End Sub

I managed to press more than 2 keys, but not all combos work, and some combos act like alt+ctrl etc. and other combos somehow work without a hitch.

My advice is free, and you may get what you paid for.

Re: multiple keypresses

Dave Kreskowiak14-May-09 1:59

Dave Kreskowiak

14-May-09 1:59

The is the normal max that will work reliably.

If you want more than that, you're going to have to go to DirectX and it's DirectInput library, or use the XNA Framework (C#) to simplify using all the DirectX stuff.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

Re: multiple keypresses

JR21214-May-09 3:03

JR212

14-May-09 3:03

thanks

Get file path

rmedo13-May-09 2:32

rmedo

13-May-09 2:32

Hi all,
i used the following code to get the registerd dll full path

Dim ins As RegistryKey
        ins = Registry.ClassesRoot.OpenSubKey("RuleProcessor.Processor")
        Dim clsid As String = ins.GetValue("").ToString
        ins.Close() 
        Dim clsidKey As RegistryKey = Registry.ClassesRoot.OpenSubKey(clsid)
        Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString
        clsidKey.Close()

RuleProcessor.Processor is the progId
but it doesn't work, i want to know where is the error

Thanks

Re: Get file path

Henry Minute13-May-09 2:36

Henry Minute

13-May-09 2:36

What do you mean by it doesn't work?
Does it throw an exception? Does it give an unexpected result?

Re: Get file path

rmedo13-May-09 2:44

rmedo

13-May-09 2:44

yes at this line
Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString it get this error
object reference to set to an instance of object

Re: Get file path

Henry Minute13-May-09 2:54

Henry Minute

13-May-09 2:54

Almost certainly the error is referring to clsidkey, because it is null.

I could tell you why it is null, but you will learn far more by debugging this section of code. Step through it and observe where one of your variables becomes null, when you don't expect it to be.

Re: Get file path

rmedo13-May-09 20:13

rmedo

13-May-09 20:13

i debug the code many and many times

<br />
ins = Registry.ClassesRoot.OpenSubKey("RuleProcessor.Processor")<br />
Dim clsid As String = ins.GetValue("").ToString<br />

the result of these lines is clsis = RuleProcessor.Processor
so i think that the ins will be equal to clsidkey

<br />
<br />
Dim clsidKey As RegistryKey = Registry.ClassesRoot.OpenSubKey(clsid)<br />

clsidkey not null
so it you know any other solution tell me please

Thanks for your help

Re: Get file path

Henry Minute13-May-09 23:13

Henry Minute

13-May-09 23:13

OK.

And when you move the mouse pointer over the various terms in the error line:

Dim manifestLocation As String = clsidKey.GetValue("CodeBase").ToString

which one shows up as nothing?

Re: Get file path

rmedo14-May-09 0:13

rmedo

14-May-09 0:13

clsidKey.GetValue("CodeBase").ToString
i think the property codebase is null

Re: Get file path

Henry Minute14-May-09 0:20

Henry Minute

14-May-09 0:20

Check the registry manually for the existence of CodeBase.

Re: Get file path

rmedo14-May-09 0:23

rmedo

14-May-09 0:23

exist, i checked it yasterday and i found the path exist in the codebase

RE:Want to read a txt file from the second line only.

Lee Mwangi13-May-09 2:14

Lee Mwangi

13-May-09 2:14

Hi guys,

I want to read a comma delimited text file from the second line only.I can currently read all the lines, but i want to omit the first line and skip to the next. This is the code that reads all the lines.Can anyone assist.

Dim myReader As New IO.StreamReader(browselocation2.FileName)
Dim filestream As StreamReader
filestream = myReader
Dim readcontents As String
While myReader.Peek() <> -1
readcontents = filestream.ReadLine
Dim textdelimiter As String = ","

Dim splitout = Split(readcontents, textdelimiter)
Dim sql As String = ""
Debug.Print(splitout(0))

End while

Thanks in advance

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.