GFTabString/TabStringfrm2.frm

VERSION 5.00
Begin VB.Form TabStringfrm2
   Caption         =   "TabString2"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4635
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4635
   StartUpPosition =   3 'Windows‑Standard
   Begin VB.CommandButton Command1
      Caption         =   "change font"
      Height          =   315
      Left            =   3180
      TabIndex        =   1
      Top             =   2880
      Width           =   1455
   End
   Begin VB.CommandButton Command2
      Caption         =   "Move"
      Height          =   315
      Left            =   1860
      TabIndex        =   3
      Top             =   2880
      Width           =   1335
   End
   Begin VB.PictureBox Picture1
      Height          =   2715
      Left            =   0
      ScaleHeight     =   2655
      ScaleWidth      =   4575
      TabIndex        =   2
      Top             =   0
      Width           =   4635
      Begin VB.Line GFTabStringLine
         BorderColor     =   &H00000000&
         Index           =   0
         Visible         =   0 'False
         X1              =   0
         X2              =   1335
         Y1              =   0
         Y2              =   0
      End
   End
   Begin VB.PictureBox TabHeaderTextSizePicture
      Enabled         =   0 'False
      Height          =   270
      Left            =   0
      ScaleHeight     =   210
      ScaleWidth      =   120
      TabIndex        =   0
      Top             =   0
      Visible         =   0 'False
      Width           =   180
   End
End
Attribute VB_Name = "TabStringfrm2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim TabString2 As New GFTabStringcls

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'on error resume next
    With TabString2
        If .GFTabString_MouseDown(X, Y) = True Then
            Call .TabHeader_Refresh
            Call .TabBox_Refresh
        Else
            'do nothing
        End If
    End With
End Sub

Private Sub Form_Load()
    'on error resume next
    With TabString2
        Call .TabString_Create("Test2", Picture1, TabStringfrm2, 10, 30, 190, 100)
        Call .TabBox_Add
        Call .TabHeader_Add("Editor")
        Call .TabHeader_Add("Editorformat")
        Call .TabHeader_Add("Dampfschiff")
        'Call .TabString_AddControl(List1, 1)
        'Call .TabString_AddControl(Text1, 2)
        'Call .TabString_AddControl(HScroll1, 3)
        Call .TabHeader_Refresh
        Call .TabBox_Refresh
    End With
End Sub

Private Sub Command1_Click()
    'on error resume next
    TabString2.ForeColor = RGB(255, 200, 0)
    Call TabString2.SetFont("Arial", 8, True, True, False, False)
End Sub

Private Sub Command2_Click()
    'on error resume next
    Picture1.Left = 20 * Screen.TwipsPerPixelX
End Sub


[END OF FILE]