tooltip.frm

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

VERSION 5.00
Object = "{75D4F767-8785-11D3-93AD-0000832EF44D}#2.4#0"; "FAST2001.ocx"
Begin VB.Form frmToolTip 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "FWToolTip demo"
   ClientHeight    =   2715
   ClientLeft      =   2055
   ClientTop       =   1995
   ClientWidth     =   6435
   ClipControls    =   0   'False
   Icon            =   "ToolTip.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2715
   ScaleWidth      =   6435
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame fraFrame 
      Caption         =   "FAST.lib 2000 ToolTip Control"
      Height          =   2025
      Index           =   1
      Left            =   3270
      TabIndex        =   1
      Top             =   180
      Width           =   3045
      Begin FLWCtrls.FWComboColor FWCCFore 
         Height          =   315
         Left            =   1590
         TabIndex        =   7
         Top             =   1530
         Width           =   1275
         _ExtentX        =   2249
         _ExtentY        =   556
         ShowButton      =   0   'False
      End
      Begin FLWCtrls.FWComboColor FWCCBack 
         Height          =   315
         Left            =   210
         TabIndex        =   6
         Top             =   1530
         Width           =   1275
         _ExtentX        =   2249
         _ExtentY        =   556
         ShowButton      =   0   'False
      End
      Begin VB.TextBox txtText2 
         Height          =   345
         Left            =   210
         TabIndex        =   3
         Text            =   "Demo"
         Top             =   900
         Width           =   1395
      End
      Begin VB.CommandButton cmdCommand2 
         Caption         =   "Demo"
         Height          =   375
         Left            =   210
         TabIndex        =   2
         Top             =   390
         Width           =   1365
      End
      Begin FLWCtrls.FWToolTip objToolTip 
         Left            =   2430
         Top             =   420
         _ExtentX        =   820
         _ExtentY        =   820
         ForeColor       =   8388608
         BackColor       =   14811135
      End
      Begin VB.Label lblLabel 
         AutoSize        =   -1  'True
         Caption         =   "Background color"
         Height          =   195
         Index           =   1
         Left            =   210
         TabIndex        =   9
         Top             =   1320
         Width           =   1260
      End
      Begin VB.Label lblLabel 
         AutoSize        =   -1  'True
         Caption         =   "Foreground color"
         Height          =   195
         Index           =   0
         Left            =   1590
         TabIndex        =   8
         Top             =   1320
         Width           =   1200
      End
   End
   Begin VB.Frame fraFrame 
      Caption         =   "Visual Basic Standard ToolTips"
      Height          =   2025
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   180
      Width           =   3045
      Begin VB.TextBox txtText1 
         Height          =   345
         Left            =   180
         TabIndex        =   5
         Text            =   "Demo"
         Top             =   900
         Width           =   1395
      End
      Begin VB.CommandButton cmdCommand1 
         Caption         =   "Demo"
         Height          =   375
         Left            =   180
         TabIndex        =   4
         Top             =   390
         Width           =   1365
      End
   End
   Begin VB.Label Label1 
      Caption         =   $"ToolTip.frx":000C
      Height          =   435
      Left            =   120
      TabIndex        =   10
      Top             =   2250
      Width           =   6210
   End
End
Attribute VB_Name = "frmToolTip"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()
  
  ' Standard ToolTip
  cmdCommand1.ToolTipText = "This is a test" & vbCrLf & "Standard ToolTip MultiLine"
  txtText1.ToolTipText = "Multiple lines of text in a tooltip control." & _
                         vbCrLf & vbCrLf & vbTab & _
                         "You can write very long messages in this ToolTip control"
  
  ' FWToolTip
  objToolTip(cmdCommand2) = "This is a test" & vbCrLf & "Standard ToolTip MultiLine"
  objToolTip(txtText2) = "Multiple lines of text in a tooltip control" & _
                         vbCrLf & vbCrLf & _
                         "You can write very long messages in this ToolTip control"
  FWCCBack.Color = objToolTip.BackColor
  FWCCFore.Color = objToolTip.ForeColor
End Sub

Private Sub FWCCBack_Change()
  objToolTip.BackColor = FWCCBack.Color
End Sub

Private Sub FWCCFore_Change()
  objToolTip.ForeColor = FWCCFore.Color
End Sub