Click here to Skip to main content
15,894,460 members
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 dialog_WordSearch
  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()
    Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(dialog_WordSearch))
    Me.btn_Close = New System.Windows.Forms.Button
    Me.btn_Accept = New System.Windows.Forms.Button
    Me.lbl_Msg = New System.Windows.Forms.Label
    Me.Label3 = New System.Windows.Forms.Label
    Me.lb_Suggest = New System.Windows.Forms.ListBox
    Me.SuspendLayout()
    '
    'btn_Close
    '
    Me.btn_Close.DialogResult = System.Windows.Forms.DialogResult.Cancel
    Me.btn_Close.Location = New System.Drawing.Point(207, 236)
    Me.btn_Close.Name = "btn_Close"
    Me.btn_Close.Size = New System.Drawing.Size(72, 23)
    Me.btn_Close.TabIndex = 0
    Me.btn_Close.Text = "Cancel"
    '
    'btn_Accept
    '
    Me.btn_Accept.DialogResult = System.Windows.Forms.DialogResult.OK
    Me.btn_Accept.Location = New System.Drawing.Point(129, 236)
    Me.btn_Accept.Name = "btn_Accept"
    Me.btn_Accept.Size = New System.Drawing.Size(72, 23)
    Me.btn_Accept.TabIndex = 0
    Me.btn_Accept.TabStop = False
    Me.btn_Accept.Text = "Accept"
    Me.btn_Accept.UseVisualStyleBackColor = True
    '
    'lbl_Msg
    '
    Me.lbl_Msg.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
    Me.lbl_Msg.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
    Me.lbl_Msg.Dock = System.Windows.Forms.DockStyle.Top
    Me.lbl_Msg.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.lbl_Msg.Location = New System.Drawing.Point(0, 0)
    Me.lbl_Msg.Name = "lbl_Msg"
    Me.lbl_Msg.Size = New System.Drawing.Size(290, 87)
    Me.lbl_Msg.TabIndex = 5
    Me.lbl_Msg.Text = "Wordley didn't find your text in the dictionary. Here is a list of suggestions." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & _
        "" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Click a suggestion in the list, then click the ""Accept"" button."
    '
    'Label3
    '
    Me.Label3.AutoSize = True
    Me.Label3.Location = New System.Drawing.Point(7, 97)
    Me.Label3.Name = "Label3"
    Me.Label3.Size = New System.Drawing.Size(65, 13)
    Me.Label3.TabIndex = 9
    Me.Label3.Text = "Suggestions"
    '
    'lb_Suggest
    '
    Me.lb_Suggest.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.lb_Suggest.FormattingEnabled = True
    Me.lb_Suggest.ItemHeight = 16
    Me.lb_Suggest.Location = New System.Drawing.Point(10, 113)
    Me.lb_Suggest.Name = "lb_Suggest"
    Me.lb_Suggest.Size = New System.Drawing.Size(269, 116)
    Me.lb_Suggest.TabIndex = 10
    '
    'dialog_WordSearch
    '
    Me.AcceptButton = Me.btn_Close
    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(290, 268)
    Me.Controls.Add(Me.btn_Close)
    Me.Controls.Add(Me.btn_Accept)
    Me.Controls.Add(Me.lb_Suggest)
    Me.Controls.Add(Me.Label3)
    Me.Controls.Add(Me.lbl_Msg)
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
    Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
    Me.MaximizeBox = False
    Me.MinimizeBox = False
    Me.Name = "dialog_WordSearch"
    Me.ShowIcon = False
    Me.ShowInTaskbar = False
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
    Me.Text = "Word Search"
    Me.ResumeLayout(False)
    Me.PerformLayout()

  End Sub
  Friend WithEvents btn_Close As System.Windows.Forms.Button
  Friend WithEvents btn_Accept As System.Windows.Forms.Button
  Friend WithEvents lbl_Msg As System.Windows.Forms.Label
  Friend WithEvents Label3 As System.Windows.Forms.Label
  Friend WithEvents lb_Suggest As System.Windows.Forms.ListBox

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
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