ROBO FORM

• Download Full project - 968 Kb

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