autocomp.frm

不错的一个VB菜单设计 界面和功能都不错

VERSION 5.00
Object = "{75D4F767-8785-11D3-93AD-0000832EF44D}#2.5#0"; "FAST2001.ocx"
Begin VB.Form frmAutoComplete 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "FWAutoComplete"
   ClientHeight    =   1365
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5685
   Icon            =   "AutoComp.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1365
   ScaleWidth      =   5685
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin FLWCtrls.FWAutoComplete objAutoComplete1 
      Height          =   345
      Left            =   150
      TabIndex        =   3
      Top             =   900
      Width           =   2505
      _ExtentX        =   4419
      _ExtentY        =   609
      Text            =   "FWAutoComplete1"
   End
   Begin FLWCtrls.FWAutoComplete objAutoComplete2 
      Height          =   345
      Left            =   3000
      TabIndex        =   4
      Top             =   900
      Width           =   2505
      _ExtentX        =   4419
      _ExtentY        =   609
      Style           =   2
      Text            =   "FWAutoComplete2"
   End
   Begin VB.Label Label2 
      Caption         =   "Autocomplete TextBox"
      Height          =   195
      Index           =   1
      Left            =   3030
      TabIndex        =   2
      Top             =   690
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "Autocomplete ComboBox"
      Height          =   195
      Index           =   0
      Left            =   180
      TabIndex        =   1
      Top             =   690
      Width           =   1935
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "Try to write in the fields and the control help you to autocomplete the text..."
      Height          =   195
      Left            =   120
      TabIndex        =   0
      Top             =   150
      Width           =   5265
   End
End
Attribute VB_Name = "frmAutoComplete"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
  Call objAutoComplete1.ClearHistory
  Call objAutoComplete1.AddHistory("http://welcome.to/fastlib")
  Call objAutoComplete1.AddHistory("http://www.ibm.com")
  Call objAutoComplete1.AddHistory("http://www.microsoft.com")
  Call objAutoComplete1.AddHistory("http://www.sun.com")
  objAutoComplete1.Text = objAutoComplete1.History(0)

  With objAutoComplete2
    Call .ClearHistory
    Call .AddHistory("http://welcome.to/fastlib")
    Call .AddHistory("http://www.ibm.com")
    Call .AddHistory("http://www.microsoft.com")
    Call .AddHistory("http://www.sun.com")
    .Text = .History(0)
  End With
End Sub