CD Shareware Magazine 1999 April/CD_Shareware_Magazine_31.iso/Free/Prg/csplitdc.exe/mfrmMain.frm

Visual Basic Form | 1998-07-29 | 8.2 KB | 245 lines

VERSION 5.00
Begin VB.MDIForm mfrmMain
   BackColor       =   &H8000000C&
   Caption         =   "vbaccelerator Generic Splitter"
   ClientHeight    =   6990
   ClientLeft      =   3780
   ClientTop       =   2865
   ClientWidth     =   9645
   Icon            =   "mfrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   Begin VB.PictureBox picStatus
      Align           =   2  'Align Bottom
      BorderStyle     =   0  'None
      Height          =   345
      Left            =   0
      ScaleHeight     =   345
      ScaleWidth      =   9645
      TabIndex        =   2
      Top             =   6645
      Width           =   9645
      Begin VB.Label lblMain
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Label1"
         Height          =   255
         Left            =   0
         TabIndex        =   3
         Top             =   60
         Width           =   8235
      End
   End
   Begin VB.PictureBox picSearchBar
      Align           =   3  'Align Left
      BorderStyle     =   0  'None
      Height          =   6645
      Left            =   0
      ScaleHeight     =   6645
      ScaleWidth      =   2160
      TabIndex        =   0
      Top             =   0
      Width           =   2160
      Begin VB.PictureBox picProductBar
         BackColor       =   &H80000010&
         Height          =   5775
         Left            =   0
         ScaleHeight     =   5715
         ScaleWidth      =   1995
         TabIndex        =   4
         Top             =   0
         Width           =   2055
         Begin VB.CommandButton cmdVBAccel
            Height          =   420
            Left            =   60
            Picture         =   "mfrmMain.frx":014A
            Style           =   1  'Graphical
            TabIndex        =   12
            ToolTipText     =   "Visit vbAccelerator on the Web"
            Top             =   1980
            Width           =   1875
         End
         Begin VB.CommandButton cmdActiveChannel
            Height          =   420
            Left            =   60
            Picture         =   "mfrmMain.frx":06A3
            Style           =   1  'Graphical
            TabIndex        =   11
            ToolTipText     =   "Add vbAccelerator's Active Channel"
            Top             =   2460
            Width           =   1875
         End
         Begin VB.ComboBox cboDemo
            Height          =   315
            Index           =   2
            Left            =   60
            TabIndex        =   9
            Top             =   1440
            Width           =   1515
         End
         Begin VB.ComboBox cboDemo
            Height          =   315
            Index           =   1
            Left            =   60
            TabIndex        =   7
            Top             =   840
            Width           =   1515
         End
         Begin VB.ComboBox cboDemo
            Height          =   315
            Index           =   0
            Left            =   60
            TabIndex        =   5
            Top             =   240
            Width           =   1515
         End
         Begin VB.Label lblDemo
            BackStyle       =   0  'Transparent
            Caption         =   "Price Range:"
            ForeColor       =   &H80000014&
            Height          =   195
            Index           =   2
            Left            =   60
            TabIndex        =   10
            Top             =   1200
            Width           =   1515
         End
         Begin VB.Label lblDemo
            BackStyle       =   0  'Transparent
            Caption         =   "Category:"
            ForeColor       =   &H80000014&
            Height          =   195
            Index           =   1
            Left            =   60
            TabIndex        =   8
            Top             =   600
            Width           =   1515
         End
         Begin VB.Label lblDemo
            BackStyle       =   0  'Transparent
            Caption         =   "Product:"
            ForeColor       =   &H80000014&
            Height          =   195
            Index           =   0
            Left            =   60
            TabIndex        =   6
            Top             =   0
            Width           =   1515
         End
      End
      Begin VB.PictureBox picSplitter
         Height          =   6135
         Left            =   1980
         ScaleHeight     =   6075
         ScaleWidth      =   75
         TabIndex        =   1
         Top             =   0
         Width           =   135
      End
   End
   Begin VB.Menu mnuF0MAIN
      Caption         =   "&File"
      Begin VB.Menu mnuFile
         Caption         =   "&New..."
         Index           =   0
         Shortcut        =   ^N
      End
      Begin VB.Menu mnuFile
         Caption         =   "-"
         Index           =   1
      End
      Begin VB.Menu mnuFile
         Caption         =   "&Close"
         Index           =   2
      End
   End
   Begin VB.Menu mnuHelpTOP
      Caption         =   "&Help"
      Begin VB.Menu mnuHelp
         Caption         =   "&About..."
         Index           =   0
      End
   End
Attribute VB_Name = "mfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cS As New cSplitDDC
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub ShellEx(ByVal sLocation As String)
Dim lR As Long
    lR = ShellExecute(Me.hWnd, "open", sLocation, "", "", vbNormalFocus)
    If (lR < 0) Or (lR > 32) Then
        'ok
    Else
        MsgBox "Sorry, I could not go to " & sLocation & ".", vbInformation
    End If
End Sub
Private Sub cmdActiveChannel_Click()
    ShellEx "http://www.dogma.demon.co.uk/vbaccel.cdf"
End Sub
Private Sub cmdVBAccel_Click()
    ShellEx "http://www.dogma.demon.co.uk"
End Sub
Private Sub MDIForm_Load()
Dim i As Long
Dim j As Long
    With cS
        .SplitObject = picSplitter
        .Orientation = espVertical
        .Border(espbLeft) = 32
        .Border(espbRight) = 32
        .Border(espbBottom) = picStatus.Height \ Screen.TwipsPerPixelY
    End With
    lblMain.Caption = " Test Splitting..."
    For i = 0 To 2
        For j = 0 To 10
            cboDemo(i).AddItem "Item" & j
        Next j
    Next i
    frmSplittable.Show
End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cS.SplitterFormMouseMove X, Y
End Sub
Private Sub MDIForm_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (cS.SplitterFormMouseUp(X, Y)) Then
        MDIForm_Resize
    End If
End Sub
Private Sub MDIForm_Resize()
    picSplitter.Height = Me.ScaleHeight
    picSearchBar.Width = picSplitter.Left + picSplitter.Width
End Sub
Private Sub mnuFile_Click(Index As Integer)
    Select Case Index
    Case 0
        Dim fS As New frmSplittable
        fS.Show
    Case 2
        Unload Me
    End Select
End Sub
Private Sub mnuHelp_Click(Index As Integer)
    frmAbout.Show vbModal, Me
End Sub
Private Sub picSearchBar_Resize()
Dim i As Long
    With picProductBar
        .Move .Left, .Top, picSearchBar.ScaleWidth - .Left * 2 - 4 * Screen.TwipsPerPixelX, picSearchBar.ScaleHeight - .Top * 2
        For i = 0 To 2
            lblDemo(i).Width = .ScaleWidth - lblDemo(i).Left * 2
            cboDemo(i).Width = .ScaleWidth - lblDemo(i).Left * 2
        Next i
        If .ScaleWidth > cmdVBAccel.Width Then
            cmdVBAccel.Left = (.ScaleWidth - cmdVBAccel.Width) \ 2
        Else
            cmdVBAccel.Left = lblDemo(i).Left
        End If
        cmdActiveChannel.Left = cmdVBAccel.Left
    End With
End Sub
Private Sub picSplitter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cS.SplitterMouseDown Me.hWnd, X, Y
End Sub