[2 days left] What’s wrong with your cloud strategy? Learn why multicloud solutions matter with Nimble Storage.Register Now

x
?
Solved

How to use Internet Explorer shortcut keys through VB.Net application

Posted on 2012-03-18
4
Medium Priority
?
1,371 Views
Last Modified: 2012-03-19
Hi Experts,

I want to use internet explorer shortcut keys in my vb.net application. Basically I want to use CTRL+A, CTRL+C and CTRL+V for copy and paste purpose. I am using WebBrowser control in my vb form and have button and text box on it. What I want is when I press the button, It should select All the web content and copy the text in clipboard and paste it back on my textbox. I have tried sendkey with differently but nothing is workout.
Any help will be appreicated. Thanks

 I have used the follwoing code

        WebBrowser1.Focus()
        SendKeys.SendWait("^a")
        '  Threading.Thread.Sleep(1000)

        SendKeys.SendWait("^c")
        '   Threading.Thread.Sleep(1000)
        RichTextBox1.Focus()
        SendKeys.SendWait("^v")
0
Comment
Question by:khalidsuhail
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 96

Accepted Solution

by:
Bob Learned earned 2000 total points
ID: 37737271
If you are using the WebBrowser control, there are a wide variety of ways to extend and customize the control, which are usually pretty complicated.

Cut, Copy, and Paste operations, though are easy.

Web Browser in C#
http://www.codeproject.com/Articles/60179/Web-Browser-in-C

'cut
Private Sub cutToolStripMenuItem_Click(sender As Object, e As EventArgs)
	getCurrentBrowser().Document.ExecCommand("Cut", False, Nothing)

End Sub
'copy
Private Sub copyToolStripMenuItem_Click(sender As Object, e As EventArgs)
	getCurrentBrowser().Document.ExecCommand("Copy", False, Nothing)

End Sub
'paste
Private Sub pasteToolStripMenuItem_Click(sender As Object, e As EventArgs)
	getCurrentBrowser().Document.ExecCommand("Paste", False, Nothing)
End Sub
'select all
Private Sub selectAllToolStripMenuItem_Click(sender As Object, e As EventArgs)
	getCurrentBrowser().Document.ExecCommand("SelectAll", True, Nothing)
End Sub

Open in new window

0
 

Author Comment

by:khalidsuhail
ID: 37738438
Hi TheLearnedOne,
Thanks for reply.
I have modified your code little bit as follows. What I see the its copying the content but not pasting in my textbox automatically. If I press CTRL+V in my textbox I get the content copied in my textbox. Is there any workarround for it.


  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '        getCurrentBrowser().Document.ExecCommand("SelectAll", True, Nothing)
        WebBrowser1.Focus()
        WebBrowser1().Document.ExecCommand("SelectAll", True, Nothing)
        WebBrowser1().Document.ExecCommand("Copy", True, Nothing)
        RichTextBox1.Focus()

        WebBrowser1().Document.ExecCommand("Paste", True, Nothing)

    End Sub

Thanks for help
0
 
LVL 96

Expert Comment

by:Bob Learned
ID: 37739109
The ExecCommand works on the WebBrowser control, so Copy would copy from the control, and Paste would paste to the control.  If you want to copy from the clipboard to the TextBox control, then you would need to use the TextBox.Paste method.
0
 

Author Comment

by:khalidsuhail
ID: 37740566
Thanks a lot. Its working

my coding is as follows.

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Focus()
        WebBrowser1().Document.ExecCommand("SelectAll", True, Nothing)
        WebBrowser1().Document.ExecCommand("Copy", True, Nothing)
        'RichTextBox1.Text = Clipboard.GetText
        Dim oFile As File
        Dim oWrite As System.IO.StreamWriter
        Dim fname As String = "Lab"
        Dim mPath As String = "C:\Temp\"
        Dim mExt As String = ".txt"
        Dim myLab As String = ""
        Dim mFile As String
        Dim mVer As Integer = 1
        mFile = mPath + fname + mVer.ToString + mExt

        For i As Integer = 1 To 10
            If oFile.Exists(mFile) Then
                mFile = mPath + fname + i.ToString + mExt
            Else
                Exit For
            End If


        Next

        oWrite = oFile.CreateText(mFile)
        '  oFile.OpenText()
        Dim data As IDataObject = Clipboard.GetDataObject()
        'If the data is text, then set the text of the
        'TextBox to the text in the Clipboard.
        If (data.GetDataPresent(DataFormats.Text)) Then
            myLab = data.GetData(DataFormats.Text).ToString()
            RichTextBox1.Text = data.GetData(DataFormats.Text).ToString()
        End If
        oWrite.Write(myLab)
        oWrite.Close()
        oWrite.Dispose()
        '        'The OpenText method opens an existing text file for reading and returns a System.IO.StreamReader object. With the StreamReader object, you can then read the file. Let’s see how to open a text file for reading:
        '        Dim oFile As System.IO.File
        '        Dim oRead As System.IO.StreamReader
        '        oRead = oFile.OpenText("C:\sample.txt")
        'Writing to a text file


    End Sub
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
Real-time is more about the business, not the technology. In day-to-day life, to make real-time decisions like buying or investing, business needs the latest information(e.g. Gold Rate/Stock Rate). Unlike traditional days, you need not wait for a fe…
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…
Visualize your data even better in Access queries. Given a date and a value, this lesson shows how to compare that value with the previous value, calculate the difference, and display a circle if the value is the same, an up triangle if it increased…

649 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question