How to enter autotext into a selected control using a HotKey.

Whether it's in focus or not you can add this to your timer tick event:

foreach (Control ctrl in this.Controls)
            {
                Point screenPos = MousePosition;
                screenPos = this.PointToClient(screenPos);
                if (screenPos.X >= ctrl.Location.X && screenPos.Y >= ctrl.Location.Y && screenPos.X <= (ctrl.Width + ctrl.Location.X) && screenPos.Y <= (ctrl.Height + ctrl.Location.Y))
                    ctrl.Text = Clipboard.GetText();
            }

I am trying to do something like:

Ctrl + D enters the current date into the selected textbox.  The issue is that I only want place the cursor in the box and the initiate the hotkey.

Omega2K, what is the Vb code.

To get the hovered control use this method

public Control GetHoveredControl()
{
       foreach (Control ctrl in this.Controls)
            {
                Point screenPos = MousePosition;
                screenPos = this.PointToClient(screenPos);
                if (screenPos.X >= ctrl.Location.X && screenPos.Y >= ctrl.Location.Y && screenPos.X <= (ctrl.Width + ctrl.Location.X) && screenPos.Y <= (ctrl.Height + ctrl.Location.Y))
                    return ctrl;
            }
}

er I mean this method:

public Control GetHoveredControl()
{
       foreach (Control ctrl in this.Controls)
            {
                Point screenPos = MousePosition;
                screenPos = this.PointToClient(screenPos);
                if (screenPos.X >= ctrl.Location.X && screenPos.Y >= ctrl.Location.Y && screenPos.X <= (ctrl.Width + ctrl.Location.X) && screenPos.Y <= (ctrl.Height + ctrl.Location.Y))
                    return ctrl;
            }
           return null;
}

VB.NET code is:

Public Function GetHoveredControl() As Control
    For Each ctrl As Control In Me.Controls
        Dim screenPos As Point = MousePosition
        screenPos = Me.PointToClient(screenPos)
        If screenPos.X >= ctrl.Location.X AndAlso screenPos.Y >= ctrl.Location.Y AndAlso screenPos.X <= (ctrl.Width + ctrl.Location.X) AndAlso screenPos.Y <= (ctrl.Height + ctrl.Location.Y) Then
            Return ctrl
        End If
    Next
    Return Nothing
End Function

All my controls witll be contained in the form.  However, the GetHoveredControl doesn't work with the cursor or selected textbox, only where the mouse is.  If the mouse isn't over a textbox or control, it throws an error.

Any way to make it work with the selected control?

I forgot to mention, that it also lets you change the .Text property of buttons and labels.

Public Function GetHoveredControl() As Control
    For Each ctrl As Control In Me.Controls
        Dim screenPos As Point = MousePosition
        screenPos = Me.PointToClient(screenPos)
        If screenPos.X >= ctrl.Location.X AndAlso screenPos.Y >= ctrl.Location.Y AndAlso screenPos.X <= (ctrl.Width + ctrl.Location.X) AndAlso screenPos.Y <= (ctrl.Height + ctrl.Location.Y) Then
            Return ctrl
        End If
    Next
    Return Me.ActiveControl
End Function

That works better.  But if your mouse is over a control, but a textbox is selected, the the control.text is changed and not the textbox.  If you are not hovering over a control, but have selected a textbox, then it works great.

Mike

Okay, I commented out everything except the Return ActiveControl and it works great except for when the button is selected.  Any way to exclude controls other that input boxes?

what controls do you want to change then? You would need to validate for each control then. Every single form control has a Text property.

Okay, on a completely different wavelength, this works.  I didn't realize the active control object.

I label all my controls btnName for buttons, txtName for textboxes, lblName for lables.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '// Timer interval is set to 1
        Dim D As Boolean = GetAsyncKeyState(Keys.D)
        Dim Ctrl As Boolean = GetAsyncKeyState(Keys.ControlKey)
        If ActiveControl.Name.Contains("txt") Then
            If D And Ctrl = True Then
                ActiveControl.Text = Now
            End If
        End If
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Is this a common way of using hotkeys?  Or am I trying to reinvent the wheel?  It seemed a lot easier in VBA.

Mike