販売管理ソフトを作る - 「見積一覧」の主処理

フリー 販売管理 Excel ユーザフォーム

「見積一覧」の主処理

■ modList



00001 Option Explicit

00002 

00003 Private Const ROW_NUM As Integer = 13

00004 

00005 Public Sub Main()

00006     Dim objForm As frmList: Set objForm = frmList

00007     With objForm

00008         .Caption = "見積検索"

00009         .Font.Name = FONT_NAME

00010         .Font.Size = FONT_SIZE

00011         .Height = 480 '適当に調整する

00012         .Width = 640 '適当に調整する

00013     End With

00014 

00015     Dim iTop As Integer: iTop = MARGIN

00016 

00017     'ヘッダ部 初期化

00018     Call CreateHeader(objForm, iTop)

00019 

00020     '明細部 初期化

00021     Call CreateDetail(objForm, iTop)

00022 

00023     'ボタン部 初期化

00024     Call CreateButton(objForm, iTop)

00025 

00026     'フォームの高さを 微調整

00027     With objForm

00028         .Height = .cmdExit.Top + .cmdExit.Height + MARGIN + 23 '23 は 微調整

00029     End With

00030 

00031     '表示

00032     objForm.Show

00033 End Sub