form1.frm

收集的100多个适合不同层次VB爱好者编程的实例源码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "定制自己的提示栏"
   ClientHeight    =   2565
   ClientLeft      =   2070
   ClientTop       =   2010
   ClientWidth     =   4605
   ClipControls    =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   2565
   ScaleWidth      =   4605
   Begin VB.TextBox Text1 
      Height          =   705
      Left            =   120
      Locked          =   -1  'True
      TabIndex        =   1
      Text            =   "文本图形提示栏"
      Top             =   480
      Width           =   2235
   End
   Begin VB.CommandButton Command1 
      Caption         =   "多行文本提示栏"
      Height          =   615
      Left            =   2520
      TabIndex        =   0
      Top             =   480
      Width           =   1635
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim m_cTT As New cTooltip
'

Private Sub Form_Load()
  Dim ctrl As Control
  
  With m_cTT
    
    ' Creat the tooltip window
    Call .Create(Me)

    ' Set the tooltip's width so that it displays multiline text,
    ' and that no tool's line length exceeds roughly 240 pixels.
    .MaxTipWidth = 240

    ' Set the tooltip window to show for 20 secs
    .DelayTime(ttDelayShow) = 20000
    
    ' Add a tooltip tool to each control on the Form
    For Each ctrl In Controls: Call .AddTool(ctrl): Next
    
    ' Set the text for Command1's tool.
    .ToolText(Command1) = "一个特别长的文本行将会显示为多行," _
                       & _
                          "并且如果 MaxTipWidth 未设置为-1, 文本格式等特点将会大致设置..." & _
                          "35345435444444444444446465464564564566663453rfg sfdg45y674563434563533"
    
    ' Set the text for Text1's tool.
    .ToolText(Text1) = " 您可以制作优美的文本图形... :-) " & vbCrLf & _
      "          +-----oOO----(_)----------------+" & vbCrLf & _
      "    |    表达特别的含义    |" & vbCrLf & _
      "         +********************************+" & vbCrLf & _
      "                        |__|  |__|" & vbCrLf & _
      "                         ||      ||" & vbCrLf & _
      "                      ooO   Ooo"
  End With   ' m_cTT

End Sub