home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 January / VPR9701A.ISO / PROJ95 / EXAMPLES / ANALYZER / MOST.FRM < prev    next >
Text File  |  1996-08-21  |  11KB  |  343 lines
  1. VERSION 2.00
  2. Begin Form Most 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  '固定 - 二重線
  5.    Caption         =   "Microsoft Project Analyzer - "
  6.    ClientHeight    =   3885
  7.    ClientLeft      =   1710
  8.    ClientTop       =   2505
  9.    ClientWidth     =   7365
  10.    FontBold        =   0   'False
  11.    FontItalic      =   0   'False
  12.    FontName        =   "ＭＳ Ｐゴシック"
  13.    FontSize        =   9
  14.    FontStrikethru  =   0   'False
  15.    FontUnderline   =   0   'False
  16.    Height          =   4290
  17.    Left            =   1650
  18.    LinkTopic       =   "Form2"
  19.    ScaleHeight     =   3885
  20.    ScaleWidth      =   7365
  21.    Top             =   2160
  22.    Width           =   7485
  23.    Begin CommandButton Exit 
  24.       BackColor       =   &H00C0C0C0&
  25.       Caption         =   "終了(&X)"
  26.       FontBold        =   0   'False
  27.       FontItalic      =   0   'False
  28.       FontName        =   "ＭＳ Ｐゴシック"
  29.       FontSize        =   9
  30.       FontStrikethru  =   0   'False
  31.       FontUnderline   =   0   'False
  32.       Height          =   375
  33.       Left            =   6120
  34.       TabIndex        =   13
  35.       Top             =   840
  36.       Width           =   1095
  37.    End
  38.    Begin CommandButton SelectButton 
  39.       BackColor       =   &H00C0C0C0&
  40.       Cancel          =   -1  'True
  41.       Caption         =   "選択(&S)..."
  42.       FontBold        =   0   'False
  43.       FontItalic      =   0   'False
  44.       FontName        =   "ＭＳ Ｐゴシック"
  45.       FontSize        =   9
  46.       FontStrikethru  =   0   'False
  47.       FontUnderline   =   0   'False
  48.       Height          =   375
  49.       Left            =   6120
  50.       TabIndex        =   12
  51.       Top             =   120
  52.       Width           =   1095
  53.    End
  54.    Begin SSFrame Frame3D3 
  55.       Caption         =   "作業時間が超過したﾘｿｰｽ (作業時間の差異)"
  56.       FontBold        =   0   'False
  57.       FontItalic      =   0   'False
  58.       FontName        =   "ＭＳ Ｐゴシック"
  59.       FontSize        =   9
  60.       FontStrikethru  =   0   'False
  61.       FontUnderline   =   0   'False
  62.       Height          =   1095
  63.       Left            =   120
  64.       TabIndex        =   2
  65.       Top             =   2520
  66.       Width           =   5775
  67.       Begin CommandButton More_MWV 
  68.          BackColor       =   &H00C0C0C0&
  69.          Caption         =   "一覧(&R)..."
  70.          Enabled         =   0   'False
  71.          FontBold        =   0   'False
  72.          FontItalic      =   0   'False
  73.          FontName        =   "ＭＳ Ｐゴシック"
  74.          FontSize        =   9
  75.          FontStrikethru  =   0   'False
  76.          FontUnderline   =   0   'False
  77.          Height          =   375
  78.          Left            =   4560
  79.          TabIndex        =   11
  80.          Top             =   480
  81.          Width           =   1095
  82.       End
  83.       Begin SSPanel Panel_MWV 
  84.          Alignment       =   1  'Left Justify - MIDDLE
  85.          AutoSize        =   2  'AutoSize Panel Height To Caption
  86.          BackColor       =   &H00FFFFFF&
  87.          BevelOuter      =   1  'Inset
  88.          FontBold        =   0   'False
  89.          FontItalic      =   0   'False
  90.          FontName        =   "ＭＳ Ｐゴシック"
  91.          FontSize        =   9
  92.          FontStrikethru  =   0   'False
  93.          FontUnderline   =   0   'False
  94.          Height          =   270
  95.          Left            =   120
  96.          TabIndex        =   8
  97.          Top             =   600
  98.          Width           =   4335
  99.       End
  100.       Begin Label Label3 
  101.          AutoSize        =   -1  'True
  102.          BackColor       =   &H00C0C0C0&
  103.          Caption         =   "基準作業時間を最も超過したﾘｿｰｽ"
  104.          FontBold        =   0   'False
  105.          FontItalic      =   0   'False
  106.          FontName        =   "ＭＳ Ｐゴシック"
  107.          FontSize        =   9
  108.          FontStrikethru  =   0   'False
  109.          FontUnderline   =   0   'False
  110.          Height          =   195
  111.          Left            =   120
  112.          TabIndex        =   5
  113.          Top             =   360
  114.          Width           =   3015
  115.       End
  116.    End
  117.    Begin SSFrame Frame3D2 
  118.       Caption         =   "ｺｽﾄが超過したﾘｿｰｽ (ｺｽﾄの差異)"
  119.       FontBold        =   0   'False
  120.       FontItalic      =   0   'False
  121.       FontName        =   "ＭＳ Ｐゴシック"
  122.       FontSize        =   9
  123.       FontStrikethru  =   0   'False
  124.       FontUnderline   =   0   'False
  125.       ForeColor       =   &H00000000&
  126.       Height          =   1095
  127.       Left            =   105
  128.       TabIndex        =   1
  129.       Top             =   1335
  130.       Width           =   5775
  131.       Begin CommandButton More_MCV 
  132.          BackColor       =   &H00C0C0C0&
  133.          Caption         =   "一覧(&O)..."
  134.          Enabled         =   0   'False
  135.          FontBold        =   0   'False
  136.          FontItalic      =   0   'False
  137.          FontName        =   "ＭＳ Ｐゴシック"
  138.          FontSize        =   9
  139.          FontStrikethru  =   0   'False
  140.          FontUnderline   =   0   'False
  141.          Height          =   375
  142.          Left            =   4560
  143.          TabIndex        =   10
  144.          Top             =   480
  145.          Width           =   1095
  146.       End
  147.       Begin SSPanel Panel_MCV 
  148.          Alignment       =   1  'Left Justify - MIDDLE
  149.          AutoSize        =   2  'AutoSize Panel Height To Caption
  150.          BackColor       =   &H00FFFFFF&
  151.          BevelOuter      =   1  'Inset
  152.          FontBold        =   0   'False
  153.          FontItalic      =   0   'False
  154.          FontName        =   "ＭＳ Ｐゴシック"
  155.          FontSize        =   9
  156.          FontStrikethru  =   0   'False
  157.          FontUnderline   =   0   'False
  158.          Height          =   270
  159.          Left            =   120
  160.          TabIndex        =   7
  161.          Top             =   600
  162.          Width           =   4335
  163.       End
  164.       Begin Label Label2 
  165.          AutoSize        =   -1  'True
  166.          BackColor       =   &H00C0C0C0&
  167.          Caption         =   "基準ｺｽﾄを最も超過したﾘｿｰｽ"
  168.          FontBold        =   0   'False
  169.          FontItalic      =   0   'False
  170.          FontName        =   "ＭＳ Ｐゴシック"
  171.          FontSize        =   9
  172.          FontStrikethru  =   0   'False
  173.          FontUnderline   =   0   'False
  174.          Height          =   195
  175.          Left            =   120
  176.          TabIndex        =   4
  177.          Top             =   360
  178.          Width           =   2940
  179.       End
  180.    End
  181.    Begin SSFrame Frame3D1 
  182.       Caption         =   "遅れたﾀｽｸ (終了日の差異)"
  183.       FontBold        =   0   'False
  184.       FontItalic      =   0   'False
  185.       FontName        =   "ＭＳ Ｐゴシック"
  186.       FontSize        =   9
  187.       FontStrikethru  =   0   'False
  188.       FontUnderline   =   0   'False
  189.       Height          =   1095
  190.       Left            =   120
  191.       TabIndex        =   0
  192.       Top             =   120
  193.       Width           =   5775
  194.       Begin CommandButton More_MFV 
  195.          BackColor       =   &H00C0C0C0&
  196.          Caption         =   "一覧(&M)..."
  197.          Enabled         =   0   'False
  198.          FontBold        =   0   'False
  199.          FontItalic      =   0   'False
  200.          FontName        =   "ＭＳ Ｐゴシック"
  201.          FontSize        =   9
  202.          FontStrikethru  =   0   'False
  203.          FontUnderline   =   0   'False
  204.          Height          =   375
  205.          Left            =   4560
  206.          TabIndex        =   9
  207.          Top             =   480
  208.          Width           =   1095
  209.       End
  210.       Begin SSPanel Panel_MFV 
  211.          Alignment       =   1  'Left Justify - MIDDLE
  212.          AutoSize        =   3  'AutoSize Child To Panel
  213.          BackColor       =   &H00FFFFFF&
  214.          BevelOuter      =   1  'Inset
  215.          FontBold        =   0   'False
  216.          FontItalic      =   0   'False
  217.          FontName        =   "ＭＳ Ｐゴシック"
  218.          FontSize        =   9
  219.          FontStrikethru  =   0   'False
  220.          FontUnderline   =   0   'False
  221.          Height          =   270
  222.          Left            =   120
  223.          TabIndex        =   6
  224.          Top             =   600
  225.          Width           =   4335
  226.       End
  227.       Begin Label Label1 
  228.          AutoSize        =   -1  'True
  229.          BackColor       =   &H00C0C0C0&
  230.          Caption         =   "現在のｽｹｼﾞｭｰﾙに最も遅れたﾀｽｸ"
  231.          FontBold        =   0   'False
  232.          FontItalic      =   0   'False
  233.          FontName        =   "ＭＳ Ｐゴシック"
  234.          FontSize        =   9
  235.          FontStrikethru  =   0   'False
  236.          FontUnderline   =   0   'False
  237.          Height          =   195
  238.          Left            =   120
  239.          TabIndex        =   3
  240.          Top             =   360
  241.          Width           =   3150
  242.       End
  243.    End
  244. End
  245. Option Explicit
  246.  
  247. Sub Exit_Click ()
  248.     TerminateApplication
  249. End Sub
  250.  
  251. Sub Form_Load ()
  252.  
  253.     If gnTasks = 0 Then
  254.         More_MFV.Enabled = False
  255.     Else
  256.  
  257.     End If
  258.  
  259.     Left = (Screen.Width - Width) / 2       'フォームを左右中央に配置します。
  260.     Top = (Screen.Height - Height) / 2      'フォームを上下中央に配置します。
  261.     
  262. End Sub
  263.  
  264. Sub Form_Unload (Cancel As Integer)
  265.  
  266.     Exit_Click
  267.  
  268. End Sub
  269.  
  270. Sub More_MCV_Click ()
  271. 'More フォームを設定し、
  272. '各リソースの ID を保存します。
  273.    Dim x As Integer
  274.  
  275.     Screen.MousePointer = HOURGLASS
  276.  
  277.     More.Caption = sMORE_MCV
  278.     More.MoreList.Clear
  279.     ReDim gsaIDOrder(gnCostVar)
  280.     For x = 1 To gnCostVar
  281.         More.MoreList.AddItem gautCostVar(x).sCostVar + Space$(gnCVLongest - Len(gautCostVar(x).sCostVar)) + Chr$(9) + gautCostVar(x).sName
  282.         More.MoreList.ItemData(More.MoreList.NewIndex) = Val(gautCostVar(x).sID)
  283.     Next x
  284.  
  285.     gnResOrTask = RESOURCE
  286.     Most.Hide
  287.     More.Show
  288.     Screen.MousePointer = DEFAULT
  289. End Sub
  290.  
  291. Sub More_MFV_Click ()
  292. 'More フォームを設定し、
  293. '各タスクの ID を保存します。
  294.  
  295.    Dim x As Integer
  296.  
  297.     Screen.MousePointer = HOURGLASS
  298.  
  299.     More.Caption = sMORE_MFV
  300.     More.MoreList.Clear
  301.     ReDim gsaIDOrder(1 To gnFinVar)
  302.     For x = 1 To gnFinVar ' gnFinVar To 1 Step -1
  303.         More.MoreList.AddItem gautFinVar(x).sFinVar + Space$(gnFVLongest - Len(gautFinVar(x).sFinVar)) + Chr$(9) + gautFinVar(x).sName
  304.         More.MoreList.ItemData(More.MoreList.NewIndex) = Val(gautFinVar(x).sID)
  305.         'gsaIDOrder(x) = gautFinVar(x).sID
  306.     Next x
  307.     
  308.     gnResOrTask = TASK
  309.     Most.Hide
  310.     More.Show
  311.     Screen.MousePointer = DEFAULT
  312.  
  313. End Sub
  314.  
  315. Sub More_MWV_Click ()
  316. 'More フォームを設定し、
  317. '各リソースの ID を保存します。
  318.    Dim x As Integer
  319.  
  320.     Screen.MousePointer = HOURGLASS
  321.  
  322.     More.Caption = sMORE_MWV
  323.     More.MoreList.Clear
  324.     ReDim gsaIDOrder(gnWorkVar)
  325.     For x = 1 To gnWorkVar
  326.         More.MoreList.AddItem gautWorkVar(x).sWorkVar + Space$(gnWVLongest - Len(gautWorkVar(x).sWorkVar)) + Chr$(9) + gautWorkVar(x).sName
  327.         More.MoreList.ItemData(More.MoreList.NewIndex) = Val(gautWorkVar(x).sID)
  328.     Next x
  329.  
  330.     gnResOrTask = RESOURCE
  331.     Most.Hide
  332.     More.Show
  333.     Screen.MousePointer = DEFAULT
  334.  
  335. End Sub
  336.  
  337. Sub SelectButton_Click ()
  338. 'プロジェクト一覧で新しいタスク/リソースを選択します。
  339.     Most.Hide
  340.     ProjList.Show
  341. End Sub
  342.  
  343.