「見積一覧」 終了処理 ■ frmList 00277 '終了 00278 Private Sub cmdExit_Click() 00279 If MsgBox("終了します。", vbOKCancel Or vbInformation, "確認") = vbOK Then 00280 Unload Me 00281 End If 00282 End Sub

「見積一覧」 画面クリア ■ frmList 00135 '表示 00136 Private Sub UserForm_Activate() 00137 '画面 初期化 00138 ClearScreen 00139 00140 '選択状態にならないので... 00141 txtDateMin.SelStart = 0 00142 txtDateMin.SelLength = txtDateMin.TextLengt…

「見積一覧」 変数定義 ■ frmList 00001 Option Explicit 00002 00003 Private Const ROW_NUM As Integer = 12 00004 00005 Public WithEvents txtDateMin As MSForms.TextBox 00006 Public WithEvents txtDateMax As MSForms.TextBox 00007 Public WithEven…

「見積一覧」 ボタン部 初期化 ■ 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 B…

「見積一覧」 明細部 初期化 ■ modList 00207 '明細部 初期化 00208 Private Sub CreateDetail(objForm As frmList, ByRef iTop As Integer) 00209 00210 'パネル 00211 Dim pnlDetail As MSForms.Label 00212 Set pnlDetail = objForm.Controls.Add("Forms.…

「見積一覧」 ヘッダ部 初期化 ■ modList 00035 'ヘッダ部 初期化 00036 Private Sub CreateHeader(objForm As frmList, ByRef iTop As Integer) 00037 00038 'パネル 00039 Dim pnlHeader As MSForms.Label 00040 Set pnlHeader = objForm.Controls.Add("Fo…

「見積一覧」の主処理 ■ 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 .…

「見積一覧」「見積入力」 定数の定義 一覧画面と入力画面の共通部分を、共通モジュール「modCommon」を作成し、移動。 ■ modCommon 00001 Option Explicit 00002 00003 'Public Const DEBUG_MODE As Boolean = True 00004 Public Const DEBUG_MODE As Boole…

「動的な画面作成時のイベント取得方法」の訂正 「動的な画面作成時のイベント取得方法」では、イベント処理用のクラスを、別に作成していたが、 そんなことをしなくても済むようです。■ フォームの呼び出し側 Public Sub Main() Set UserForm3.cmdExit = Us…

「見積入力」の画面構成 「一覧画面」で、検索条件を指定して、一覧表示後、 「新規」「変更」「複写」「削除」ボタンで、入力画面に移動する。 一覧画面 入力画面 「新規」「変更」「複写」「削除」ボタンを削除した。 また、数量に０を入力することで行削…

ボタンを動的に生成する 00015 Public Sub Main() 00016 Dim objForm As clsFormMain 00017 Set objForm = New clsFormMain 00018 Set objForm.Form = frmMain 00019 00020 With frmMain 00021 .Caption = "見積入力" 00022 .Font.Name = FONT_NAME 00023 .F…

フッタ部を動的に生成する 00001 Option Explicit 00002 00003 Private Const MARGIN As Integer = 4 00004 Private Const PADING As Currency = 2.8 00005 Private Const TEXT_PADING As Currency = 18 '21.75 00006 Private Const LINE_HIGHT As Integer =…

明細部を動的に生成する '明細部 初期化 Private Sub InitDetail(objForm As clsFormMain, ByRef iTop As Integer) 'パネル Dim pnlDetail As MSForms.Label Set pnlDetail = frmMain.Controls.Add("Forms.Label.1") With pnlDetail .Left = MARGIN .Top = i…

ヘッダ部を動的に生成する Option Explicit Private Const MARGIN As Integer = 6 Private Const PADING As Currency = 2.8 Private Const TEXT_PADING As Integer = 16 Private Const LINE_HIGHT As Integer = 17 Private Const FONT_SIZE As Currency = 11…

動的な画面作成時のイベント処理 しかし、これでは、ボタンをクリックしても、フォームを閉じられない。 そこで、イベント処理用クラスを変更して... ■ clsForm Option ExplicitPublic WithEvents cmdExit As MSForms.CommandButton Public Form As UserForm…

動的な画面作成時のイベント取得方法 その場合、フォーム側に、コマンドボタンクリック時のイベントを 記述できない。 そこで、どうするかと言うと...まず、イベント処理用のクラスを作成する。 ■ clsCommandButton Option ExplicitPublic WithEvents cmdExi…

動的な画面作成の簡単な例 そこで、プログラム中で、動的に画面を作成することにする。 簡単な例を示すと... Public Sub Main() Dim cmdExit As MsForms.CommandButton Set cmdExit = UserForm3.Controls.Add("Forms.CommandButton.1") UserForm3.Show End S…

フォームのファイル形式について Excel VBA ではない、普通の VB なら、xxx.frm は、ただのテキストファイルなので、 VBScript、JScript等のスクリプトを使って簡単に作成できるが、 Excel の場合、xxx.frm には、以下のような情報しかなく、 VERSION 5.00 B…

「販売管理ソフト」機能一覧 １万円程度の市販ソフトより、機能的には劣りますが．．． ・ソースコード公開 (当ブログで順次公開予定) なので、機能拡張も自由自在 ・データは、mdb なので、Excel と簡単に連携可能 販売管理 見積書検索 見積入力 見積書印刷…

何故、市販の販売管理ソフトより機能の劣るソフトに、何百万も払うのか 「市販の販売管理ソフトは、不要な項目が多いが、肝心な項目がない」 そう言った声をよく聞く。 そして、望み通りの販売管理ソフトを、何百万も掛けて一から作ってしまう。 市販の販売…