ActiveX Programming Unleashed CD/AXU.iso/activex/demos/oletrial/samples/vb/mhmarq/mhmq200.frm

Visual Basic Form | 1995-11-28 | 9.6 KB | 293 lines

VERSION 4.00
Begin VB.Form MhMQ200
   Caption         =   "MhMQ200.MAK"
   ClientHeight    =   4620
   ClientLeft      =   1248
   ClientTop       =   2076
   ClientWidth     =   7368
   BeginProperty Font
      name            =   "MS Sans Serif"
      charset         =   0
      weight          =   700
      size            =   7.8
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   5220
   Left            =   1200
   LinkTopic       =   "Form1"
   ScaleHeight     =   4620
   ScaleWidth      =   7368
   Top             =   1524
   Width           =   7464
   Begin VB.PictureBox picStatus
      Align           =   2  'Align Bottom
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   372
      Left            =   0
      ScaleHeight     =   348
      ScaleWidth      =   7344
      TabIndex        =   0
      Top             =   4248
      Width           =   7368
   End
   Begin Mhmq200Lib.MhMarque MhMarque1
      Height          =   3972
      Left            =   144
      TabIndex        =   1
      Top             =   120
      Width           =   3972
      _Version        =   65536
      _ExtentX        =   7011
      _ExtentY        =   7011
      _StockProps     =   79
      Caption         =   "MhMarque Custom Control"
      TintColor       =   16711935
      MouseIcon       =   "Mhmq200.frx":0000
      FontTransparent =   -1  'True
      LightColor      =   16777215
      OuterFillColor  =   -2147483633
      ShadowColor     =   8421504
      TextFillColor   =   -2147483633
      Interval        =   100
      Picture1        =   "Mhmq200.frx":001C
      Picture2        =   "Mhmq200.frx":E1BE
      Picture3        =   "Mhmq200.frx":1C360
      Direction       =   0
      FontStyle       =   0
      PictureTop      =   10
      PictureLeft     =   10
      PictureRight    =   10
      PictureBottom   =   10
      CaptionTop      =   40
      CaptionLeft     =   40
      CaptionRight    =   40
      CaptionBottom   =   40
   End
   Begin VB.Menu mnuAutoSize
      Caption         =   "AutoSize"
   End
   Begin VB.Menu mnuColor
      Caption         =   "Color"
      Begin VB.Menu mnuBorderColor
         Caption         =   "BorderColor"
      End
      Begin VB.Menu mnuLightColor
         Caption         =   "LightColor"
      End
      Begin VB.Menu mnuOuterFillColor
         Caption         =   "OuterFillColor"
      End
      Begin VB.Menu mnuShadowColor
         Caption         =   "ShadowColor"
      End
      Begin VB.Menu mnuTextColor
         Caption         =   "TextColor"
      End
      Begin VB.Menu mnuTextFillColor
         Caption         =   "TextFillColor"
      End
   End
   Begin VB.Menu mnuCaption
      Caption         =   "Caption"
      Begin VB.Menu mnuCaptionBottom
         Caption         =   "CaptionBottom"
      End
      Begin VB.Menu mnuCaptionLeft
         Caption         =   "CaptionLeft"
      End
      Begin VB.Menu mnuCaptionRight
         Caption         =   "CaptionRight"
      End
      Begin VB.Menu mnuCaptionTop
         Caption         =   "CaptionTop"
      End
   End
   Begin VB.Menu mnuDirection
      Caption         =   "Direction"
   End
   Begin VB.Menu mnuMiscellaneous
      Caption         =   "Miscellaneous"
      Begin VB.Menu mnuFontStyle
         Caption         =   "FontStyle"
      End
      Begin VB.Menu mnuInterval
         Caption         =   "Interval"
      End
      Begin VB.Menu mnuStyle
         Caption         =   "Style"
      End
   End
   Begin VB.Menu mnuPicture
      Caption         =   "Picture"
      Begin VB.Menu mnuPicture1
         Caption         =   "Picture1"
      End
      Begin VB.Menu mnuPicture2
         Caption         =   "Picture2"
      End
      Begin VB.Menu mnuPicture3
         Caption         =   "Picture3"
      End
      Begin VB.Menu mnuPictureBottom
         Caption         =   "PictureBottom"
      End
      Begin VB.Menu mnuPictureLeft
         Caption         =   "PictureLeft"
      End
      Begin VB.Menu mnuPictureRight
         Caption         =   "PictureRight"
      End
      Begin VB.Menu mnuPictureTop
         Caption         =   "PictureTop"
      End
   End
Attribute VB_Name = "MhMQ200"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Form_Load()
    Me.Top = (Screen.Height - Me.Height) / 2
    Me.Left = (Screen.Width - Me.Width) / 2
End Sub
Private Sub mnuAutoSize_Click()
    ReDim sgOptionArray(0 To 1)
    sgOptionArray(0) = "False"
    sgOptionArray(1) = "True"
    igOptionState = MhMarque1.AutoSize
    MhMarque1.AutoSize = GetOption("AutoSize")
End Sub
Private Sub mnuBorderColor_Click()
    ColorSelect.Show 1
    MhMarque1.BorderColor = lgCurrentColor
End Sub
Private Sub mnuCaptionBottom_Click()
    igRangeArray(0) = MhMarque1.CaptionTop
    igRangeArray(1) = MhMarque1.CaptionBottom
    igRangeArray(2) = 100
    MhMarque1.CaptionBottom = GetRange("CaptionBottom")
End Sub
Private Sub mnuCaptionLeft_Click()
    igRangeArray(0) = MhMarque1.CaptionLeft - 500
    igRangeArray(1) = MhMarque1.CaptionLeft
    igRangeArray(2) = MhMarque1.CaptionRight
    MhMarque1.CaptionLeft = GetRange("CaptionLeft")
End Sub
Private Sub mnuCaptionRight_Click()
    igRangeArray(0) = MhMarque1.CaptionLeft
    igRangeArray(1) = MhMarque1.CaptionRight
    igRangeArray(2) = MhMarque1.CaptionRight + 500
    MhMarque1.CaptionRight = GetRange("CaptionRight")
End Sub
Private Sub mnuCaptionTop_Click()
    igRangeArray(0) = 0
    igRangeArray(1) = MhMarque1.CaptionTop
    igRangeArray(2) = MhMarque1.CaptionBottom
    MhMarque1.CaptionTop = GetRange("CaptionTop")
End Sub
Private Sub mnuDirection_Click()
    ReDim sgOptionArray(0 To 1)
    sgOptionArray(0) = "Text moves forward"
    sgOptionArray(1) = "Text moves backward"
    igOptionState = MhMarque1.Direction
    MhMarque1.Direction = GetOption("Direction")
End Sub
Private Sub mnuFontStyle_Click()
    ReDim sgOptionArray(0 To 4)
    sgOptionArray(0) = "None"
    sgOptionArray(1) = "Raised"
    sgOptionArray(2) = "Raised with more shading"
    sgOptionArray(3) = "Lowered"
    sgOptionArray(4) = "Lowered with more shading"
    igOptionState = MhMarque1.FontStyle
    MhMarque1.FontStyle = GetOption("FontStyle")
End Sub
Private Sub mnuInterval_Click()
    igRangeArray(0) = 0
    igRangeArray(1) = MhMarque1.Interval
    igRangeArray(2) = 100
    MhMarque1.Interval = GetRange("Interval")
End Sub
Private Sub mnuLightColor_Click()
    ColorSelect.Show 1
    MhMarque1.LightColor = lgCurrentColor
End Sub
Private Sub mnuOuterFillColor_Click()
    ColorSelect.Show 1
    MhMarque1.OuterFillColor = lgCurrentColor
End Sub
Private Sub mnuPicture1_Click()
    Dim spResp As String
    spResp = InputBox$("Enter the name of the picture", ".Picture1", "", Me.Left + 120, Me.Top + 120)
    If Len(spResp) And Dir$(spResp) <> "" Then
        MhMarque1.Picture1 = LoadPicture(spResp)
    Else
        MsgBox "Action canceled", , "Error"
    End If
End Sub
Private Sub mnuPicture2_Click()
    Dim spResp As String
    spResp = InputBox$("Enter the name of the picture", ".Picture2", "", Me.Left + 120, Me.Top + 120)
    If Len(spResp) And Dir$(spResp) <> "" Then
        MhMarque1.Picture2 = LoadPicture(spResp)
    Else
        MsgBox "Action canceled", , "Error"
    End If
End Sub
Private Sub mnuPicture3_Click()
    Dim spResp As String
    spResp = InputBox$("Enter the name of the picture", ".Picture3", "", Me.Left + 120, Me.Top + 120)
    If Len(spResp) And Dir$(spResp) <> "" Then
        MhMarque1.Picture3 = LoadPicture(spResp)
    Else
        MsgBox "Action canceled", , "Error"
    End If
End Sub
Private Sub mnuPictureBottom_Click()
    igRangeArray(0) = MhMarque1.PictureTop
    igRangeArray(1) = MhMarque1.PictureBottom
    igRangeArray(2) = 100
    MhMarque1.PictureBottom = GetRange("PictureBottom")
End Sub
Private Sub mnuPictureLeft_Click()
    igRangeArray(0) = 0
    igRangeArray(1) = MhMarque1.PictureLeft
    igRangeArray(2) = MhMarque1.PictureRight
    MhMarque1.PictureLeft = GetRange("PictureLeft")
End Sub
Private Sub mnuPictureRight_Click()
    igRangeArray(0) = MhMarque1.PictureLeft
    igRangeArray(1) = MhMarque1.PictureRight
    igRangeArray(2) = 500
    MhMarque1.PictureRight = GetRange("PictureRight")
End Sub
Private Sub mnuPictureTop_Click()
    igRangeArray(0) = 0
    igRangeArray(1) = MhMarque1.PictureTop
    igRangeArray(2) = MhMarque1.PictureBottom
    MhMarque1.CaptionTop = GetRange("CaptionTop")
End Sub
Private Sub mnuShadowColor_Click()
    ColorSelect.Show 1
    MhMarque1.ShadowColor = lgCurrentColor
End Sub
Private Sub mnuStyle_Click()
    ReDim sgOptionArray(0 To 3)
    sgOptionArray(0) = "Moving caption cycles through picture 1,2,3"
    sgOptionArray(1) = "Moving caption static picture1 or 3d effect"
    sgOptionArray(2) = "Static caption cycles through picture 1,2,3"
    sgOptionArray(3) = "Static caption static picture1 or 3d effect"
    igOptionState = MhMarque1.Style
    MhMarque1.Style = GetOption("Style")
End Sub
Private Sub mnuTextColor_Click()
    ColorSelect.Show 1
    MhMarque1.TextColor = lgCurrentColor
End Sub
Private Sub mnuTextFillColor_Click()
    ColorSelect.Show 1
    MhMarque1.TextFillColor = lgCurrentColor
End Sub