販売管理ソフトを作る - 「見積一覧」 ボタン部 初期化

「見積一覧」 ボタン部 初期化

■ modList

00448 'ボタン部 初期化

00449 Private Sub CreateButton(objForm As frmList, ByRef iTop As Integer)

00450     iTop = iTop + MARGIN

00451 

00452     Const BUTTON_WIDTH As Integer = 66 '適当に調整する

00453     Const BUTTON_HEIGHT As Integer = 21 '適当に調整する

00454 

00455     Dim iLeft As Integer: iLeft = MARGIN

00456     Dim btnDummy As MSForms.CommandButton

00457 

00458     Dim i As Integer

00459     For i = 0 To 4

00460         Select Case i

00461             Case 0: Set btnDummy = objForm.Controls.Add("Forms.CommandButton.1", "cmdSearch") '"検索"

00462             Case 1: Set btnDummy = objForm.Controls.Add("Forms.CommandButton.1", "cmdAppend") '"新規"

00463             Case 2: Set btnDummy = objForm.Controls.Add("Forms.CommandButton.1", "cmdUpdate") '"変更"

00464             Case 3: Set btnDummy = objForm.Controls.Add("Forms.CommandButton.1", "cmdCopy")   '"複写"

00465             Case 4: Set btnDummy = objForm.Controls.Add("Forms.CommandButton.1", "cmdDelete") '"削除"

00466         End Select

00467 

00468         With btnDummy

00469             .Width = BUTTON_WIDTH

00470             .Height = BUTTON_HEIGHT

00471             .Left = iLeft

00472             .Top = iTop

00473 

00474             Select Case i

00475                 Case 0: .Caption = "検索"

00476                 Case 1: .Caption = "新規"

00477                 Case 2: .Caption = "変更"

00478                 Case 3: .Caption = "複写"

00479                 Case 4: .Caption = "削除"

00480             End Select

00481         End With

00482         'コントロールの割り当て

00483         Select Case i

00484             Case 0: Set objForm.cmdSearch = btnDummy '"検索"

00485             Case 1: Set objForm.cmdAppend = btnDummy '"新規"

00486             Case 2: Set objForm.cmdUpdate = btnDummy '"変更"

00487             Case 3: Set objForm.cmdCopy = btnDummy '"複写"

00488             Case 4: Set objForm.cmdDelete = btnDummy '"削除"

00489         End Select

00490 

00491         iLeft = iLeft + BUTTON_WIDTH + MARGIN

00492         If i = 0 Then

00493             iLeft = iLeft + BUTTON_WIDTH

00494         End If

00495     Next

00496 

00497     '終了ボタン

00498     Set btnDummy = objForm.Controls.Add("Forms.CommandButton.1", "cmdExit")

00499     With btnDummy

00500         .Width = BUTTON_WIDTH

00501         .Height = BUTTON_HEIGHT

00502         .Left = objForm.Width - BUTTON_WIDTH - MARGIN - 5 '5 は 微調整

00503         .Top = iTop

00504         .Caption = "終了"

00505     End With

00506     'コントロールの割り当て

00507     Set objForm.cmdExit = btnDummy

00508 End Sub

00509