Click here to Skip to main content
Licence 
First Posted 7 Jul 2005
Views 33,083
Bookmarked 17 times

ROBO FORM

By | 7 Jul 2005 | Article
Using Clipboard

Sample Image - roboform.jpg

Introduction

The robofrom send data to all text fields. You can use roboform for member forms ,notepad , wordpad etc. The forms are filled easily and quickly with robofrom. So you save from the time. I saw similar programme on the internet but it wasn’t free.So I decided to make this programme.

ROBOFORM

Following XML document uses for labels’ texts;

    <control name="Label1">Select Profile : </control>
    <control name="Label2">NAME : </control>
    <control name="Label3">MI NAME : </control>
    <control name="Label4">LAST NAME : </control>
    <control name="Label5">NICKNAME : </control>
Tags uses for all controls’ text on the form. You can change language if you want.

Functions and Subs for roboform;

      Public Function tabcontrol(ByVal tabs As tabcontrol)
        Dim tp As TabPage
        For Each tp In tabs.TabPages
                conttext(tp)
            For Each cont As Control In tp.Controls
                conttext(cont)
            Next
        Next
      End Function
Read ‘name’ attribute ,if name is equals to controls’ name then get string from XML.
      Public Sub conttext(ByVal c As Control)
            Dim tr As New XmlTextReader("english.xml")
            While tr.Read
                If tr.Name = "control" Then
                    If c.Name = tr.GetAttribute("name") Then
                        c.Text = tr.ReadElementString
                    End If
                End If
            End While
            tr.Close()
      End Sub

Listboxs double click;

Get data from listboxs and keep in the Clipboard then send data to cursor.

          Clipboard.SetDataObject(lb1.SelectedItem.ToString)   ’get string
          SetActiveWindow(8975651603260375040) ‘set focus to active window
‘ctrl + V = Paste
          keybd_event(VK_CONTROL, 0, 0, 0)  ‘send ctrl key to system
          keybd_event(VK_V, 0, 0, 0)         ‘send V key to system 
          keybd_event(VK_V, 0, KEYEVENTF_KEYUP, 0)   ‘release V key
          keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0) ‘release ctrl key

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

About the Author

Magician_Oz

Web Developer

Turkey Turkey

Member



Sign Up to vote   Poor Excellent
Add a reason or comment to your vote: x
Votes of 3 or less require a comment

Comments and Discussions

 
You must Sign In to use this message board. (secure sign-in)
 
Search this forum  
 FAQ
    Noise  Layout  Per page   
  Refresh
GeneralMy vote of 4 PinmemberHeaven20204:55 3 Nov '10  
GeneralMy vote of 2 PinmvpDave Kreskowiak10:06 12 Oct '09  
Generalhai hensem help me!!! Pinmemberfreerhyme_215:01 1 Aug '07  
QuestionWhy MessageBox?? Pinmemberaasimbaltee1:55 31 May '07  
QuestionFile Corrupt Pinmemberansoriroma0:15 14 Jan '07  
GeneralKindly Assist Pinmemberdeeef23:46 28 Dec '05  

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

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

Permalink | Advertise | Privacy | Mobile
Web03 | 2.5.120517.1 | Last Updated 7 Jul 2005
Article Copyright 2005 by Magician_Oz
Everything else Copyright © CodeProject, 1999-2012
Terms of Use
Layout: fixed | fluid