home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / ct_ocx / ct_mdi.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-03  |  19.3 KB  |  612 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm w_mdi_main 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "Component Toolbox OCX Demo Program"
  5.    ClientHeight    =   6465
  6.    ClientLeft      =   1260
  7.    ClientTop       =   1485
  8.    ClientWidth     =   9915
  9.    Height          =   7155
  10.    Icon            =   "ct_mdi.frx":0000
  11.    Left            =   1200
  12.    LinkTopic       =   "MDIForm1"
  13.    Top             =   855
  14.    Width           =   10035
  15.    WindowState     =   2  'Maximized
  16.    Begin FrameLibCtl.ctFrame Frame_Status 
  17.       Align           =   2  'Align Bottom
  18.       Height          =   525
  19.       Left            =   0
  20.       TabIndex        =   1
  21.       Top             =   5940
  22.       Visible         =   0   'False
  23.       Width           =   9915
  24.       _version        =   65536
  25.       _extentx        =   17489
  26.       _extenty        =   926
  27.       _stockprops     =   32
  28.       outerborder     =   2
  29.       backcolor       =   12632256
  30.       Begin TextLib.ctText ctText1 
  31.          Height          =   375
  32.          Left            =   120
  33.          TabIndex        =   3
  34.          Top             =   90
  35.          Width           =   5475
  36.          _version        =   65536
  37.          _extentx        =   9657
  38.          _extenty        =   661
  39.          _stockprops     =   70
  40.          backcolor       =   16777215
  41.          bordertype      =   3
  42.       End
  43.       Begin ClockLib.ctClock ctClock1 
  44.          Height          =   375
  45.          Left            =   5700
  46.          TabIndex        =   2
  47.          Top             =   90
  48.          Width           =   1275
  49.          _version        =   65536
  50.          _extentx        =   2249
  51.          _extenty        =   661
  52.          _stockprops     =   68
  53.          bordertype      =   3
  54.          currenthour     =   12
  55.          currentminute   =   2
  56.          currentsecond   =   36
  57.       End
  58.    End
  59.    Begin FrameLibCtl.ctFrame Frame_Menu 
  60.       Align           =   1  'Align Top
  61.       Height          =   555
  62.       Left            =   0
  63.       TabIndex        =   0
  64.       Top             =   0
  65.       Width           =   9915
  66.       _version        =   65536
  67.       _extentx        =   17489
  68.       _extenty        =   979
  69.       _stockprops     =   32
  70.       showright       =   0   'False
  71.       showleft        =   0   'False
  72.       backcolor       =   12632256
  73.       Begin PushLib.ctPush bt_check 
  74.          Height          =   345
  75.          Left            =   4440
  76.          TabIndex        =   16
  77.          Top             =   120
  78.          Width           =   360
  79.          _version        =   65536
  80.          _extentx        =   635
  81.          _extenty        =   608
  82.          _stockprops     =   70
  83.          caption         =   "ctCheck"
  84.          picture         =   "ct_mdi.frx":030A
  85.          picposition     =   1
  86.          buttonheight    =   21
  87.          buttonwidth     =   29
  88.          piconly         =   -1  'True
  89.          drawfocus       =   0   'False
  90.       End
  91.       Begin PushLib.ctPush bt_misc 
  92.          Height          =   345
  93.          Left            =   5160
  94.          TabIndex        =   18
  95.          Top             =   120
  96.          Width           =   360
  97.          _version        =   65536
  98.          _extentx        =   635
  99.          _extenty        =   608
  100.          _stockprops     =   70
  101.          caption         =   "ctMisc"
  102.          picture         =   "ct_mdi.frx":062C
  103.          picposition     =   1
  104.          buttonheight    =   24
  105.          buttonwidth     =   28
  106.          piconly         =   -1  'True
  107.          drawfocus       =   0   'False
  108.       End
  109.       Begin PushLib.ctPush bt_tips 
  110.          Height          =   345
  111.          Left            =   4080
  112.          TabIndex        =   15
  113.          Top             =   120
  114.          Width           =   360
  115.          _version        =   65536
  116.          _extentx        =   635
  117.          _extenty        =   608
  118.          _stockprops     =   70
  119.          caption         =   "Tips"
  120.          picture         =   "ct_mdi.frx":094E
  121.          picposition     =   1
  122.          buttonheight    =   37
  123.          buttonwidth     =   41
  124.          piconly         =   -1  'True
  125.          drawfocus       =   0   'False
  126.       End
  127.       Begin TipsLib.ctTips ctTips1 
  128.          Height          =   420
  129.          Left            =   9420
  130.          TabIndex        =   19
  131.          Top             =   60
  132.          Width           =   420
  133.          _version        =   65536
  134.          _extentx        =   740
  135.          _extenty        =   740
  136.          _stockprops     =   68
  137.          BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  138.             name            =   "MS Sans Serif"
  139.             charset         =   0
  140.             weight          =   700
  141.             size            =   8.25
  142.             underline       =   0   'False
  143.             italic          =   0   'False
  144.             strikethrough   =   0   'False
  145.          EndProperty
  146.       End
  147.       Begin PushLib.ctPush bt_dialogue 
  148.          Height          =   345
  149.          Left            =   4800
  150.          TabIndex        =   17
  151.          Top             =   120
  152.          Width           =   360
  153.          _version        =   65536
  154.          _extentx        =   635
  155.          _extenty        =   608
  156.          _stockprops     =   70
  157.          caption         =   "ctPush"
  158.          picture         =   "ct_mdi.frx":0C70
  159.          picposition     =   1
  160.          buttonheight    =   17
  161.          buttonwidth     =   29
  162.          roundcorners    =   0   'False
  163.          piconly         =   -1  'True
  164.          drawfocus       =   0   'False
  165.       End
  166.       Begin PushLib.ctPush bt_push 
  167.          Height          =   345
  168.          Left            =   3720
  169.          TabIndex        =   14
  170.          Top             =   120
  171.          Width           =   360
  172.          _version        =   65536
  173.          _extentx        =   635
  174.          _extenty        =   608
  175.          _stockprops     =   70
  176.          caption         =   "ctPush"
  177.          picture         =   "ct_mdi.frx":0F92
  178.          picposition     =   1
  179.          buttonheight    =   25
  180.          buttonwidth     =   25
  181.          roundcorners    =   0   'False
  182.          piconly         =   -1  'True
  183.          drawfocus       =   0   'False
  184.       End
  185.       Begin PushLib.ctPush bt_fold 
  186.          Height          =   345
  187.          Left            =   3360
  188.          TabIndex        =   13
  189.          Top             =   120
  190.          Width           =   360
  191.          _version        =   65536
  192.          _extentx        =   635
  193.          _extenty        =   608
  194.          _stockprops     =   70
  195.          caption         =   "ctPush"
  196.          picture         =   "ct_mdi.frx":12B4
  197.          picposition     =   1
  198.          buttonheight    =   25
  199.          buttonwidth     =   29
  200.          roundcorners    =   0   'False
  201.          piconly         =   -1  'True
  202.          drawfocus       =   0   'False
  203.       End
  204.       Begin PushLib.ctPush bt_text 
  205.          Height          =   345
  206.          Left            =   3000
  207.          TabIndex        =   12
  208.          Top             =   120
  209.          Width           =   360
  210.          _version        =   65536
  211.          _extentx        =   635
  212.          _extenty        =   608
  213.          _stockprops     =   70
  214.          caption         =   "ctPush"
  215.          picture         =   "ct_mdi.frx":15D6
  216.          picposition     =   1
  217.          buttonheight    =   29
  218.          buttonwidth     =   29
  219.          roundcorners    =   0   'False
  220.          piconly         =   -1  'True
  221.          drawfocus       =   0   'False
  222.       End
  223.       Begin PushLib.ctPush bt_split 
  224.          Height          =   345
  225.          Left            =   2640
  226.          TabIndex        =   11
  227.          Top             =   120
  228.          Width           =   360
  229.          _version        =   65536
  230.          _extentx        =   635
  231.          _extenty        =   608
  232.          _stockprops     =   70
  233.          caption         =   "ctPush"
  234.          picture         =   "ct_mdi.frx":18F8
  235.          picposition     =   1
  236.          buttonheight    =   25
  237.          buttonwidth     =   25
  238.          roundcorners    =   0   'False
  239.          piconly         =   -1  'True
  240.          drawfocus       =   0   'False
  241.       End
  242.       Begin PushLib.ctPush bt_tabs 
  243.          Height          =   345
  244.          Left            =   2280
  245.          TabIndex        =   10
  246.          Top             =   120
  247.          Width           =   360
  248.          _version        =   65536
  249.          _extentx        =   635
  250.          _extenty        =   608
  251.          _stockprops     =   70
  252.          caption         =   "ctPush"
  253.          BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  254.             name            =   "Arial"
  255.             charset         =   0
  256.             weight          =   400
  257.             size            =   7.49
  258.             underline       =   0   'False
  259.             italic          =   0   'False
  260.             strikethrough   =   0   'False
  261.          EndProperty
  262.          picture         =   "ct_mdi.frx":1C1A
  263.          picposition     =   1
  264.          buttonheight    =   21
  265.          buttonwidth     =   17
  266.          roundcorners    =   0   'False
  267.          piconly         =   -1  'True
  268.          drawfocus       =   0   'False
  269.       End
  270.       Begin PushLib.ctPush bt_slide 
  271.          Height          =   345
  272.          Left            =   1920
  273.          TabIndex        =   9
  274.          Top             =   120
  275.          Width           =   360
  276.          _version        =   65536
  277.          _extentx        =   635
  278.          _extenty        =   608
  279.          _stockprops     =   70
  280.          caption         =   "ctSlide"
  281.          picture         =   "ct_mdi.frx":1F3C
  282.          picposition     =   1
  283.          buttonheight    =   21
  284.          buttonwidth     =   25
  285.          roundcorners    =   0   'False
  286.          piconly         =   -1  'True
  287.          drawfocus       =   0   'False
  288.       End
  289.       Begin PushLib.ctPush bt_move 
  290.          Height          =   345
  291.          Left            =   1560
  292.          TabIndex        =   8
  293.          Top             =   120
  294.          Width           =   360
  295.          _version        =   65536
  296.          _extentx        =   635
  297.          _extenty        =   608
  298.          _stockprops     =   70
  299.          caption         =   "ctMove"
  300.          picture         =   "ct_mdi.frx":225E
  301.          picposition     =   1
  302.          buttonheight    =   21
  303.          buttonwidth     =   21
  304.          roundcorners    =   0   'False
  305.          piconly         =   -1  'True
  306.          drawfocus       =   0   'False
  307.       End
  308.       Begin PushLib.ctPush bt_sched 
  309.          Height          =   345
  310.          Left            =   1200
  311.          TabIndex        =   7
  312.          Top             =   120
  313.          Width           =   360
  314.          _version        =   65536
  315.          _extentx        =   635
  316.          _extenty        =   608
  317.          _stockprops     =   70
  318.          caption         =   "ctSched"
  319.          picture         =   "ct_mdi.frx":2580
  320.          picposition     =   1
  321.          buttonheight    =   25
  322.          buttonwidth     =   25
  323.          roundcorners    =   0   'False
  324.          piconly         =   -1  'True
  325.          drawfocus       =   0   'False
  326.       End
  327.       Begin PushLib.ctPush bt_meter 
  328.          Height          =   345
  329.          Left            =   840
  330.          TabIndex        =   6
  331.          Top             =   120
  332.          Width           =   360
  333.          _version        =   65536
  334.          _extentx        =   635
  335.          _extenty        =   608
  336.          _stockprops     =   70
  337.          caption         =   "ctMeter"
  338.          BeginProperty font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  339.             name            =   "Modern"
  340.             charset         =   255
  341.             weight          =   400
  342.             size            =   6
  343.             underline       =   0   'False
  344.             italic          =   0   'False
  345.             strikethrough   =   0   'False
  346.          EndProperty
  347.          picture         =   "ct_mdi.frx":28A2
  348.          picposition     =   1
  349.          buttonheight    =   25
  350.          buttonwidth     =   25
  351.          roundcorners    =   0   'False
  352.          piconly         =   -1  'True
  353.          drawfocus       =   0   'False
  354.       End
  355.       Begin PushLib.ctPush bt_clock 
  356.          Height          =   345
  357.          Left            =   480
  358.          TabIndex        =   5
  359.          Top             =   120
  360.          Width           =   360
  361.          _version        =   65536
  362.          _extentx        =   635
  363.          _extenty        =   608
  364.          _stockprops     =   70
  365.          caption         =   "ctClock"
  366.          picture         =   "ct_mdi.frx":2BC4
  367.          picposition     =   1
  368.          buttonheight    =   17
  369.          buttonwidth     =   45
  370.          roundcorners    =   0   'False
  371.          piconly         =   -1  'True
  372.          drawfocus       =   0   'False
  373.       End
  374.       Begin PushLib.ctPush bt_date 
  375.          Height          =   345
  376.          Left            =   120
  377.          TabIndex        =   4
  378.          Top             =   120
  379.          Width           =   360
  380.          _version        =   65536
  381.          _extentx        =   635
  382.          _extenty        =   608
  383.          _stockprops     =   70
  384.          caption         =   "ctDate"
  385.          picture         =   "ct_mdi.frx":2EE6
  386.          picposition     =   1
  387.          buttonheight    =   20
  388.          buttonwidth     =   25
  389.          roundcorners    =   0   'False
  390.          piconly         =   -1  'True
  391.          drawfocus       =   0   'False
  392.       End
  393.    End
  394.    Begin VB.Menu m_File 
  395.       Caption         =   "&File"
  396.       Begin VB.Menu m_exit 
  397.          Caption         =   "E&xit"
  398.       End
  399.    End
  400.    Begin VB.Menu m_controls 
  401.       Caption         =   "&Controls"
  402.       Begin VB.Menu m_calendar 
  403.          Caption         =   "Standard Calendar Control"
  404.       End
  405.       Begin VB.Menu m_clock 
  406.          Caption         =   "Clock Control"
  407.       End
  408.       Begin VB.Menu m_gauge 
  409.          Caption         =   "Gauge and Meter Control"
  410.       End
  411.       Begin VB.Menu m_sched 
  412.          Caption         =   "Scheduling Bar Control"
  413.       End
  414.       Begin VB.Menu m_animate 
  415.          Caption         =   "Animated Push Buttons"
  416.       End
  417.       Begin VB.Menu m_slide 
  418.          Caption         =   "Slider Control"
  419.       End
  420.       Begin VB.Menu m_tabs 
  421.          Caption         =   "Page Tabs Control"
  422.       End
  423.       Begin VB.Menu m_split 
  424.          Caption         =   "Splitter Bar Control"
  425.       End
  426.       Begin VB.Menu m_text 
  427.          Caption         =   "Enhanced Text Box Control"
  428.       End
  429.       Begin VB.Menu m_folder 
  430.          Caption         =   "Tabbed File Folder Control"
  431.       End
  432.       Begin VB.Menu m_push 
  433.          Caption         =   "Enhanced Push Button"
  434.       End
  435.       Begin VB.Menu m_popup 
  436.          Caption         =   "Popup Tool Tips Control"
  437.       End
  438.       Begin VB.Menu m_general 
  439.          Caption         =   "Common General Controls"
  440.       End
  441.       Begin VB.Menu m_dialogue 
  442.          Caption         =   "Common Dialogue Controls"
  443.       End
  444.       Begin VB.Menu m_misc 
  445.          Caption         =   "Miscellaneous Controls"
  446.       End
  447.    End
  448.    Begin VB.Menu m_options 
  449.       Caption         =   "&Options"
  450.       Begin VB.Menu m_toolbar 
  451.          Caption         =   "Toolbar"
  452.          Checked         =   -1  'True
  453.       End
  454.       Begin VB.Menu m_status 
  455.          Caption         =   "Status Bar"
  456.       End
  457.    End
  458.    Begin VB.Menu m_help 
  459.       Caption         =   "&Help"
  460.       Begin VB.Menu m_order 
  461.          Caption         =   "Ordering Information"
  462.       End
  463.       Begin VB.Menu m_about 
  464.          Caption         =   "About Component Toolbox"
  465.       End
  466.    End
  467. Attribute VB_Name = "w_mdi_main"
  468. Attribute VB_Creatable = False
  469. Attribute VB_Exposed = False
  470. Private Sub bt_check_Click()
  471.    Load w_general_demo
  472. End Sub
  473. Private Sub bt_clock_Click()
  474.    Load w_clock_demo
  475. End Sub
  476. Private Sub bt_date_Click()
  477.    Load w_date_demo
  478. End Sub
  479. Private Sub bt_dialogue_Click()
  480.    Load w_dialogue_demo
  481. End Sub
  482. Private Sub bt_fold_Click()
  483.    Load w_fold_demo
  484. End Sub
  485. Private Sub bt_meter_Click()
  486.    Load w_gauge_demo
  487. End Sub
  488. Private Sub bt_misc_Click()
  489.    Load w_misc_demo
  490. End Sub
  491. Private Sub bt_move_Click()
  492.    Load w_move_demo
  493. End Sub
  494. Private Sub bt_push_Click()
  495.    Load w_push_demo
  496. End Sub
  497. Private Sub bt_sched_Click()
  498.    Load w_sched_demo
  499. End Sub
  500. Private Sub bt_slide_Click()
  501.    Load w_slide_demo
  502. End Sub
  503. Private Sub bt_split_Click()
  504.     Load w_split_demo
  505. End Sub
  506. Private Sub bt_tabs_Click()
  507.    Load w_tabs_demo
  508. End Sub
  509. Private Sub bt_text_Click()
  510.    Load w_text_demo
  511. End Sub
  512. Private Sub bt_tips_Click()
  513.    Load w_tips_demo
  514. End Sub
  515. Private Sub ctTips1_ItemCheck(HANDLE As Integer)
  516.    If (HANDLE = bt_date.hWnd) Then
  517.       ctTips1.TipsText = "Calendar"
  518.    ElseIf (HANDLE = bt_clock.hWnd) Then
  519.       ctTips1.TipsText = "Clock"
  520.    ElseIf (HANDLE = bt_meter.hWnd) Then
  521.       ctTips1.TipsText = "Meter and Gauge"
  522.    ElseIf (HANDLE = bt_sched.hWnd) Then
  523.       ctTips1.TipsText = "Scheduling Bars"
  524.    ElseIf (HANDLE = bt_slide.hWnd) Then
  525.       ctTips1.TipsText = "Slider"
  526.    ElseIf (HANDLE = bt_move.hWnd) Then
  527.       ctTips1.TipsText = "Animated Buttons"
  528.    ElseIf (HANDLE = bt_tabs.hWnd) Then
  529.       ctTips1.TipsText = "Page Tabs"
  530.    ElseIf (HANDLE = bt_split.hWnd) Then
  531.       ctTips1.TipsText = "Splitter Bars"
  532.    ElseIf (HANDLE = bt_text.hWnd) Then
  533.       ctTips1.TipsText = "Enhanced Text"
  534.    ElseIf (HANDLE = bt_fold.hWnd) Then
  535.       ctTips1.TipsText = "Tabbed File Folder"
  536.    ElseIf (HANDLE = bt_push.hWnd) Then
  537.       ctTips1.TipsText = "Push Button"
  538.    ElseIf (HANDLE = bt_tips.hWnd) Then
  539.       ctTips1.TipsText = "Tool Tips"
  540.    ElseIf (HANDLE = bt_check.hWnd) Then
  541.       ctTips1.TipsText = "Common Controls"
  542.    ElseIf (HANDLE = bt_dialogue.hWnd) Then
  543.       ctTips1.TipsText = "Common Dialogues"
  544.    ElseIf (HANDLE = bt_misc.hWnd) Then
  545.       ctTips1.TipsText = "Miscellaneous Controls"
  546.    End If
  547. End Sub
  548. Private Sub m_about_Click()
  549.    w_about.Show 1
  550. End Sub
  551. Private Sub m_animate_Click()
  552.    Load w_move_demo
  553. End Sub
  554. Private Sub m_calendar_Click()
  555.    Load w_date_demo
  556. End Sub
  557. Private Sub m_clock_Click()
  558.    Load w_clock_demo
  559. End Sub
  560. Private Sub m_dialogue_Click()
  561.    Load w_dialogue_demo
  562. End Sub
  563. Private Sub m_exit_Click()
  564.    If MsgBox("Do you really want to exit this program", vbYesNo + vbQuestion, "Exit Toolbox Demo") = vbYes Then
  565.       End
  566.    End If
  567. End Sub
  568. Private Sub m_folder_Click()
  569.    Load w_fold_demo
  570. End Sub
  571. Private Sub m_gauge_Click()
  572.    Load w_gauge_demo
  573. End Sub
  574. Private Sub m_general_Click()
  575.    Load w_general_demo
  576. End Sub
  577. Private Sub m_misc_Click()
  578.    Load w_misc_demo
  579. End Sub
  580. Private Sub m_order_Click()
  581.    w_order.Show 1
  582. End Sub
  583. Private Sub m_popup_Click()
  584.    Load w_tips_demo
  585. End Sub
  586. Private Sub m_push_Click()
  587.    Load w_push_demo
  588. End Sub
  589. Private Sub m_sched_Click()
  590.    Load w_sched_demo
  591. End Sub
  592. Private Sub m_slide_Click()
  593.    Load w_slide_demo
  594. End Sub
  595. Private Sub m_split_Click()
  596.     Load w_split_demo
  597. End Sub
  598. Private Sub m_status_Click()
  599.    m_status.Checked = Not m_status.Checked
  600.    Frame_Status.Visible = m_status.Checked
  601. End Sub
  602. Private Sub m_tabs_Click()
  603.    Load w_tabs_demo
  604. End Sub
  605. Private Sub m_text_Click()
  606.    Load w_text_demo
  607. End Sub
  608. Private Sub m_toolbar_Click()
  609.    m_toolbar.Checked = Not m_toolbar.Checked
  610.    Frame_Menu.Visible = m_toolbar.Checked
  611. End Sub
  612.