Click here to Skip to main content
15,888,610 members
Search within:


Articles / Programming Languages / Visual Basic
 

Wordley

Rate me:
Please Sign up or sign in to vote.
4.73/5 (20 votes)
9 Mar 2011CPOL9 min read 31.2K   1.6K   33  
A look-up dictionary based on the WordNet database, with auto-complete spelling assistance.
 
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class main
  Inherits System.Windows.Forms.Form

  'Form overrides dispose to clean up the component list.
  <System.Diagnostics.DebuggerNonUserCode()> _
  Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Try
      If disposing AndAlso components IsNot Nothing Then
        components.Dispose()
      End If
    Finally
      MyBase.Dispose(disposing)
    End Try
  End Sub

  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> _
  Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(main))
    Me.Panel1 = New System.Windows.Forms.Panel
    Me.wb = New System.Windows.Forms.WebBrowser
    Me.table_Top = New System.Windows.Forms.TableLayoutPanel
    Me.table_Search = New System.Windows.Forms.TableLayoutPanel
    Me.Label2 = New System.Windows.Forms.Label
    Me.txt_Srch = New System.Windows.Forms.TextBox
    Me.btn_Help = New System.Windows.Forms.Button
    Me.btn_About = New System.Windows.Forms.Button
    Me.btn_WebSrch = New System.Windows.Forms.Button
    Me.btn_Options = New System.Windows.Forms.Button
    Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
    Me.Panel1.SuspendLayout()
    Me.table_Top.SuspendLayout()
    Me.table_Search.SuspendLayout()
    Me.SuspendLayout()
    '
    'Panel1
    '
    Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
    Me.Panel1.Controls.Add(Me.wb)
    Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
    Me.Panel1.Location = New System.Drawing.Point(0, 42)
    Me.Panel1.Name = "Panel1"
    Me.Panel1.Size = New System.Drawing.Size(637, 389)
    Me.Panel1.TabIndex = 1
    '
    'wb
    '
    Me.wb.AllowWebBrowserDrop = False
    Me.wb.Dock = System.Windows.Forms.DockStyle.Fill
    Me.wb.IsWebBrowserContextMenuEnabled = False
    Me.wb.Location = New System.Drawing.Point(0, 0)
    Me.wb.MinimumSize = New System.Drawing.Size(20, 20)
    Me.wb.Name = "wb"
    Me.wb.Size = New System.Drawing.Size(633, 385)
    Me.wb.TabIndex = 0
    Me.wb.TabStop = False
    '
    'table_Top
    '
    Me.table_Top.BackColor = System.Drawing.Color.Silver
    Me.table_Top.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.Inset
    Me.table_Top.ColumnCount = 5
    Me.table_Top.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
    Me.table_Top.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.table_Top.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.table_Top.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.table_Top.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.table_Top.Controls.Add(Me.table_Search, 0, 0)
    Me.table_Top.Controls.Add(Me.btn_Help, 2, 0)
    Me.table_Top.Controls.Add(Me.btn_About, 3, 0)
    Me.table_Top.Controls.Add(Me.btn_WebSrch, 1, 0)
    Me.table_Top.Controls.Add(Me.btn_Options, 4, 0)
    Me.table_Top.Dock = System.Windows.Forms.DockStyle.Top
    Me.table_Top.Location = New System.Drawing.Point(0, 0)
    Me.table_Top.Name = "table_Top"
    Me.table_Top.RowCount = 1
    Me.table_Top.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
    Me.table_Top.Size = New System.Drawing.Size(637, 42)
    Me.table_Top.TabIndex = 2
    '
    'table_Search
    '
    Me.table_Search.ColumnCount = 2
    Me.table_Search.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle)
    Me.table_Search.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
    Me.table_Search.Controls.Add(Me.Label2, 0, 0)
    Me.table_Search.Controls.Add(Me.txt_Srch, 1, 0)
    Me.table_Search.Dock = System.Windows.Forms.DockStyle.Fill
    Me.table_Search.Location = New System.Drawing.Point(3, 3)
    Me.table_Search.Margin = New System.Windows.Forms.Padding(1)
    Me.table_Search.Name = "table_Search"
    Me.table_Search.RowCount = 1
    Me.table_Search.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
    Me.table_Search.Size = New System.Drawing.Size(479, 36)
    Me.table_Search.TabIndex = 0
    '
    'Label2
    '
    Me.Label2.Dock = System.Windows.Forms.DockStyle.Fill
    Me.Label2.Location = New System.Drawing.Point(3, 0)
    Me.Label2.Name = "Label2"
    Me.Label2.Padding = New System.Windows.Forms.Padding(0, 0, 0, 3)
    Me.Label2.Size = New System.Drawing.Size(62, 36)
    Me.Label2.TabIndex = 3
    Me.Label2.Text = "Search For:"
    Me.Label2.TextAlign = System.Drawing.ContentAlignment.BottomRight
    '
    'txt_Srch
    '
    Me.txt_Srch.AcceptsReturn = True
    Me.txt_Srch.AllowDrop = True
    Me.txt_Srch.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
    Me.txt_Srch.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
    Me.txt_Srch.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
    Me.txt_Srch.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
    Me.txt_Srch.Dock = System.Windows.Forms.DockStyle.Bottom
    Me.txt_Srch.Font = New System.Drawing.Font("Verdana", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.txt_Srch.ForeColor = System.Drawing.Color.Black
    Me.txt_Srch.Location = New System.Drawing.Point(69, 8)
    Me.txt_Srch.Margin = New System.Windows.Forms.Padding(1)
    Me.txt_Srch.MinimumSize = New System.Drawing.Size(340, 22)
    Me.txt_Srch.Name = "txt_Srch"
    Me.txt_Srch.Size = New System.Drawing.Size(409, 27)
    Me.txt_Srch.TabIndex = 0
    '
    'btn_Help
    '
    Me.btn_Help.Dock = System.Windows.Forms.DockStyle.Fill
    Me.btn_Help.FlatAppearance.BorderColor = System.Drawing.Color.Silver
    Me.btn_Help.FlatAppearance.BorderSize = 0
    Me.btn_Help.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
    Me.btn_Help.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btn_Help.Image = CType(resources.GetObject("btn_Help.Image"), System.Drawing.Image)
    Me.btn_Help.Location = New System.Drawing.Point(524, 3)
    Me.btn_Help.Margin = New System.Windows.Forms.Padding(1)
    Me.btn_Help.MaximumSize = New System.Drawing.Size(34, 34)
    Me.btn_Help.MinimumSize = New System.Drawing.Size(34, 34)
    Me.btn_Help.Name = "btn_Help"
    Me.btn_Help.Size = New System.Drawing.Size(34, 34)
    Me.btn_Help.TabIndex = 4
    Me.btn_Help.TabStop = False
    Me.ToolTip1.SetToolTip(Me.btn_Help, "Help")
    Me.btn_Help.UseVisualStyleBackColor = True
    '
    'btn_About
    '
    Me.btn_About.Dock = System.Windows.Forms.DockStyle.Fill
    Me.btn_About.FlatAppearance.BorderColor = System.Drawing.Color.Silver
    Me.btn_About.FlatAppearance.BorderSize = 0
    Me.btn_About.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
    Me.btn_About.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btn_About.Image = CType(resources.GetObject("btn_About.Image"), System.Drawing.Image)
    Me.btn_About.Location = New System.Drawing.Point(562, 3)
    Me.btn_About.Margin = New System.Windows.Forms.Padding(1)
    Me.btn_About.MaximumSize = New System.Drawing.Size(34, 34)
    Me.btn_About.MinimumSize = New System.Drawing.Size(34, 34)
    Me.btn_About.Name = "btn_About"
    Me.btn_About.Size = New System.Drawing.Size(34, 34)
    Me.btn_About.TabIndex = 5
    Me.btn_About.TabStop = False
    Me.ToolTip1.SetToolTip(Me.btn_About, "About Wordley")
    Me.btn_About.UseVisualStyleBackColor = True
    '
    'btn_WebSrch
    '
    Me.btn_WebSrch.Dock = System.Windows.Forms.DockStyle.Fill
    Me.btn_WebSrch.FlatAppearance.BorderSize = 0
    Me.btn_WebSrch.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
    Me.btn_WebSrch.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btn_WebSrch.Image = CType(resources.GetObject("btn_WebSrch.Image"), System.Drawing.Image)
    Me.btn_WebSrch.Location = New System.Drawing.Point(486, 3)
    Me.btn_WebSrch.Margin = New System.Windows.Forms.Padding(1)
    Me.btn_WebSrch.MaximumSize = New System.Drawing.Size(34, 34)
    Me.btn_WebSrch.MinimumSize = New System.Drawing.Size(34, 34)
    Me.btn_WebSrch.Name = "btn_WebSrch"
    Me.btn_WebSrch.Size = New System.Drawing.Size(34, 34)
    Me.btn_WebSrch.TabIndex = 6
    Me.btn_WebSrch.TabStop = False
    Me.ToolTip1.SetToolTip(Me.btn_WebSrch, "Search web for term")
    Me.btn_WebSrch.UseVisualStyleBackColor = True
    '
    'btn_Options
    '
    Me.btn_Options.Dock = System.Windows.Forms.DockStyle.Fill
    Me.btn_Options.FlatAppearance.BorderSize = 0
    Me.btn_Options.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(255, Byte), Integer))
    Me.btn_Options.FlatStyle = System.Windows.Forms.FlatStyle.Flat
    Me.btn_Options.Image = CType(resources.GetObject("btn_Options.Image"), System.Drawing.Image)
    Me.btn_Options.Location = New System.Drawing.Point(600, 3)
    Me.btn_Options.Margin = New System.Windows.Forms.Padding(1)
    Me.btn_Options.MaximumSize = New System.Drawing.Size(34, 34)
    Me.btn_Options.MinimumSize = New System.Drawing.Size(34, 34)
    Me.btn_Options.Name = "btn_Options"
    Me.btn_Options.Size = New System.Drawing.Size(34, 34)
    Me.btn_Options.TabIndex = 7
    Me.btn_Options.TabStop = False
    Me.ToolTip1.SetToolTip(Me.btn_Options, "Options")
    Me.btn_Options.UseVisualStyleBackColor = True
    '
    'main
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
    Me.ClientSize = New System.Drawing.Size(637, 431)
    Me.Controls.Add(Me.Panel1)
    Me.Controls.Add(Me.table_Top)
    Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.KeyPreview = True
    Me.Name = "main"
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "Wordley"
    Me.Panel1.ResumeLayout(False)
    Me.table_Top.ResumeLayout(False)
    Me.table_Search.ResumeLayout(False)
    Me.table_Search.PerformLayout()
    Me.ResumeLayout(False)

  End Sub
  Friend WithEvents Panel1 As System.Windows.Forms.Panel
  Friend WithEvents table_Top As System.Windows.Forms.TableLayoutPanel
  Friend WithEvents txt_Srch As System.Windows.Forms.TextBox
  Friend WithEvents btn_Help As System.Windows.Forms.Button
  Friend WithEvents btn_About As System.Windows.Forms.Button
  Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
  Friend WithEvents wb As System.Windows.Forms.WebBrowser
  Friend WithEvents btn_WebSrch As System.Windows.Forms.Button
  Friend WithEvents table_Search As System.Windows.Forms.TableLayoutPanel
  Friend WithEvents Label2 As System.Windows.Forms.Label
  Friend WithEvents btn_Options As System.Windows.Forms.Button

End Class

By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.

If a file you wish to view isn't highlighted, and is a text file (not binary), please let us know and we'll add colourisation support for it.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Alan Burkhart
United States United States
I'm not an IT guy. Programming has been a hobby for me (and occasionally useful) ever since a sister in-law introduced me to a TI-99 4/A about a million years ago.

The creative challenge is relaxing and enjoyable. As such, I'd never mess up a fun hobby by doing it for a living.

Now, if I can just get Code Project to add "Truck Driver" to the list of job titles in the profiles...

Comments and Discussions

Permalink
Advertise
Privacy
Cookies
Terms of Use
Layout: fixed | fluid

Posted 2 Mar 2011

Article Copyright 2011 by Alan Burkhart
Everything else Copyright © CodeProject, 1999-2024

Web01 2.8:2024-04-02:1