Imports Insiders.Windows.Forms Public Class MainWindow Inherits System.Windows.Forms.Form #Region " Windows フォーム デザイナで生成されたコード " Public Sub New() MyBase.New() ' この呼び出しは Windows フォーム デザイナで必要です。 InitializeComponent() ' InitializeComponent() 呼び出しの後に初期化を追加します。 End Sub ' Form は dispose をオーバーライドしてコンポーネント一覧を消去します。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Windows フォーム デザイナで必要です。 Private components As System.ComponentModel.IContainer ' メモ : 以下のプロシージャは、Windows フォーム デザイナで必要です。 ' Windows フォーム デザイナを使って変更してください。 ' コード エディタは使用しないでください。 Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents menuItemFile As System.Windows.Forms.MenuItem Friend WithEvents menuItemStartMenu As System.Windows.Forms.MenuItem Friend WithEvents menuItem12 As System.Windows.Forms.MenuItem Friend WithEvents menuItemDataSelect As System.Windows.Forms.MenuItem Friend WithEvents menuItem7 As System.Windows.Forms.MenuItem Friend WithEvents menuItemDataBackup As System.Windows.Forms.MenuItem Friend WithEvents menuItemDataRestore As System.Windows.Forms.MenuItem Friend WithEvents menuItem8 As System.Windows.Forms.MenuItem Friend WithEvents menuItemDataCreate As System.Windows.Forms.MenuItem Friend WithEvents menuItemDataDelete As System.Windows.Forms.MenuItem Friend WithEvents menuItem6 As System.Windows.Forms.MenuItem Friend WithEvents menuItemClose As System.Windows.Forms.MenuItem Friend WithEvents menuItemDonyu As System.Windows.Forms.MenuItem Friend WithEvents menuItemBasicInfo As System.Windows.Forms.MenuItem Friend WithEvents menuItemSettingInfo As System.Windows.Forms.MenuItem Friend WithEvents menuItemGyoumu As System.Windows.Forms.MenuItem Friend WithEvents menuItemKokyakuEntry As System.Windows.Forms.MenuItem Friend WithEvents menuItemKokyakuTableEntry As System.Windows.Forms.MenuItem Friend WithEvents menuItemRirekiEntry As System.Windows.Forms.MenuItem Friend WithEvents menuItemRirekiTableEntry As System.Windows.Forms.MenuItem Friend WithEvents menuItemWindow As System.Windows.Forms.MenuItem Friend WithEvents menuItemCascade As System.Windows.Forms.MenuItem Friend WithEvents menuItemTileHorizontal As System.Windows.Forms.MenuItem Friend WithEvents menuItemTileVertical As System.Windows.Forms.MenuItem Friend WithEvents menuItem11 As System.Windows.Forms.MenuItem Friend WithEvents menuItemAllClose As System.Windows.Forms.MenuItem Friend WithEvents menuItemHelp As System.Windows.Forms.MenuItem Friend WithEvents menuItemHelpContents As System.Windows.Forms.MenuItem Friend WithEvents menuItemHelpIndex As System.Windows.Forms.MenuItem Friend WithEvents menuItemHelpSearch As System.Windows.Forms.MenuItem Friend WithEvents menuItem13 As System.Windows.Forms.MenuItem Friend WithEvents menuItemAboutBox As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.StatusBar1 = New System.Windows.Forms.StatusBar Me.mainMenu1 = New System.Windows.Forms.MainMenu Me.menuItemFile = New System.Windows.Forms.MenuItem Me.menuItemStartMenu = New System.Windows.Forms.MenuItem Me.menuItem12 = New System.Windows.Forms.MenuItem Me.menuItemDataSelect = New System.Windows.Forms.MenuItem Me.menuItem7 = New System.Windows.Forms.MenuItem Me.menuItemDataBackup = New System.Windows.Forms.MenuItem Me.menuItemDataRestore = New System.Windows.Forms.MenuItem Me.menuItem8 = New System.Windows.Forms.MenuItem Me.menuItemDataCreate = New System.Windows.Forms.MenuItem Me.menuItemDataDelete = New System.Windows.Forms.MenuItem Me.menuItem6 = New System.Windows.Forms.MenuItem Me.menuItemClose = New System.Windows.Forms.MenuItem Me.menuItemDonyu = New System.Windows.Forms.MenuItem Me.menuItemBasicInfo = New System.Windows.Forms.MenuItem Me.menuItemSettingInfo = New System.Windows.Forms.MenuItem Me.menuItemGyoumu = New System.Windows.Forms.MenuItem Me.menuItemKokyakuEntry = New System.Windows.Forms.MenuItem Me.menuItemKokyakuTableEntry = New System.Windows.Forms.MenuItem Me.menuItemRirekiEntry = New System.Windows.Forms.MenuItem Me.menuItemRirekiTableEntry = New System.Windows.Forms.MenuItem Me.menuItemWindow = New System.Windows.Forms.MenuItem Me.menuItemCascade = New System.Windows.Forms.MenuItem Me.menuItemTileHorizontal = New System.Windows.Forms.MenuItem Me.menuItemTileVertical = New System.Windows.Forms.MenuItem Me.menuItem11 = New System.Windows.Forms.MenuItem Me.menuItemAllClose = New System.Windows.Forms.MenuItem Me.menuItemHelp = New System.Windows.Forms.MenuItem Me.menuItemHelpContents = New System.Windows.Forms.MenuItem Me.menuItemHelpIndex = New System.Windows.Forms.MenuItem Me.menuItemHelpSearch = New System.Windows.Forms.MenuItem Me.menuItem13 = New System.Windows.Forms.MenuItem Me.menuItemAboutBox = New System.Windows.Forms.MenuItem Me.SuspendLayout() ' 'StatusBar1 ' Me.StatusBar1.Location = New System.Drawing.Point(0, 424) Me.StatusBar1.Name = "StatusBar1" Me.StatusBar1.Size = New System.Drawing.Size(572, 22) Me.StatusBar1.TabIndex = 1 Me.StatusBar1.Text = "ready" ' 'mainMenu1 ' Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItemFile, Me.menuItemDonyu, Me.menuItemGyoumu, Me.menuItemWindow, Me.menuItemHelp}) ' 'menuItemFile ' Me.menuItemFile.Index = 0 Me.menuItemFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItemStartMenu, Me.menuItem12, Me.menuItemDataSelect, Me.menuItem7, Me.menuItemDataBackup, Me.menuItemDataRestore, Me.menuItem8, Me.menuItemDataCreate, Me.menuItemDataDelete, Me.menuItem6, Me.menuItemClose}) Me.menuItemFile.MergeOrder = 1 Me.menuItemFile.Text = "ファイル(&F)" ' 'menuItemStartMenu ' Me.menuItemStartMenu.Index = 0 Me.menuItemStartMenu.Shortcut = System.Windows.Forms.Shortcut.CtrlM Me.menuItemStartMenu.Text = "スタート メニュー(&M)" ' 'menuItem12 ' Me.menuItem12.Index = 1 Me.menuItem12.Text = "-" ' 'menuItemDataSelect ' Me.menuItemDataSelect.Index = 2 Me.menuItemDataSelect.Shortcut = System.Windows.Forms.Shortcut.CtrlD Me.menuItemDataSelect.Text = "データ選択(&D)..." ' 'menuItem7 ' Me.menuItem7.Index = 3 Me.menuItem7.Text = "-" ' 'menuItemDataBackup ' Me.menuItemDataBackup.Index = 4 Me.menuItemDataBackup.Shortcut = System.Windows.Forms.Shortcut.CtrlS Me.menuItemDataBackup.Text = "データ バックアップ(&S)..." ' 'menuItemDataRestore ' Me.menuItemDataRestore.Index = 5 Me.menuItemDataRestore.Text = "データ リストア(&R)..." ' 'menuItem8 ' Me.menuItem8.Index = 6 Me.menuItem8.Text = "-" ' 'menuItemDataCreate ' Me.menuItemDataCreate.Index = 7 Me.menuItemDataCreate.Text = "データ新規作成(&C)..." ' 'menuItemDataDelete ' Me.menuItemDataDelete.Index = 8 Me.menuItemDataDelete.Text = "データ削除(&D)..." ' 'menuItem6 ' Me.menuItem6.Index = 9 Me.menuItem6.Text = "-" ' 'menuItemClose ' Me.menuItemClose.Index = 10 Me.menuItemClose.Shortcut = System.Windows.Forms.Shortcut.AltF4 Me.menuItemClose.Text = "終了(&X)" ' 'menuItemDonyu ' Me.menuItemDonyu.Index = 1 Me.menuItemDonyu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItemBasicInfo, Me.menuItemSettingInfo}) Me.menuItemDonyu.MergeOrder = 3 Me.menuItemDonyu.Text = "導入処理(&D)" ' 'menuItemBasicInfo ' Me.menuItemBasicInfo.Index = 0 Me.menuItemBasicInfo.Text = "基本情報(&I)" ' 'menuItemSettingInfo ' Me.menuItemSettingInfo.Index = 1 Me.menuItemSettingInfo.Text = "設定情報(&O)" ' 'menuItemGyoumu ' Me.menuItemGyoumu.Index = 2 Me.menuItemGyoumu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItemKokyakuEntry, Me.menuItemKokyakuTableEntry, Me.menuItemRirekiEntry, Me.menuItemRirekiTableEntry}) Me.menuItemGyoumu.MergeOrder = 5 Me.menuItemGyoumu.Text = "業務処理(&G)" ' 'menuItemKokyakuEntry ' Me.menuItemKokyakuEntry.Index = 0 Me.menuItemKokyakuEntry.Shortcut = System.Windows.Forms.Shortcut.CtrlK Me.menuItemKokyakuEntry.Text = "顧客登録(個別形式)(&K)" ' 'menuItemKokyakuTableEntry ' Me.menuItemKokyakuTableEntry.Index = 1 Me.menuItemKokyakuTableEntry.Shortcut = System.Windows.Forms.Shortcut.CtrlT Me.menuItemKokyakuTableEntry.Text = "顧客登録(一覧表形式)(&T)" ' 'menuItemRirekiEntry ' Me.menuItemRirekiEntry.Index = 2 Me.menuItemRirekiEntry.Shortcut = System.Windows.Forms.Shortcut.CtrlR Me.menuItemRirekiEntry.Text = "履歴登録(個別形式)(&R)" ' 'menuItemRirekiTableEntry ' Me.menuItemRirekiTableEntry.Index = 3 Me.menuItemRirekiTableEntry.Shortcut = System.Windows.Forms.Shortcut.CtrlH Me.menuItemRirekiTableEntry.Text = "履歴登録(一覧表記式)(&H)" ' 'menuItemWindow ' Me.menuItemWindow.Index = 3 Me.menuItemWindow.MdiList = True Me.menuItemWindow.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItemCascade, Me.menuItemTileHorizontal, Me.menuItemTileVertical, Me.menuItem11, Me.menuItemAllClose}) Me.menuItemWindow.MergeOrder = 7 Me.menuItemWindow.Text = "ウィンドウ(&W)" ' 'menuItemCascade ' Me.menuItemCascade.Index = 0 Me.menuItemCascade.Text = "重ねて表示(&C)" ' 'menuItemTileHorizontal ' Me.menuItemTileHorizontal.Index = 1 Me.menuItemTileHorizontal.Text = "上下に並べて表示(&H)" ' 'menuItemTileVertical ' Me.menuItemTileVertical.Index = 2 Me.menuItemTileVertical.Text = "左右に並べて表示(&V)" ' 'menuItem11 ' Me.menuItem11.Index = 3 Me.menuItem11.Text = "-" ' 'menuItemAllClose ' Me.menuItemAllClose.Index = 4 Me.menuItemAllClose.Text = "すべて閉じる(&A)" ' 'menuItemHelp ' Me.menuItemHelp.Index = 4 Me.menuItemHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItemHelpContents, Me.menuItemHelpIndex, Me.menuItemHelpSearch, Me.menuItem13, Me.menuItemAboutBox}) Me.menuItemHelp.MergeOrder = 9 Me.menuItemHelp.Text = "ヘルプ(&H)" ' 'menuItemHelpContents ' Me.menuItemHelpContents.Index = 0 Me.menuItemHelpContents.Shortcut = System.Windows.Forms.Shortcut.CtrlF1 Me.menuItemHelpContents.Text = "目次(&C)..." ' 'menuItemHelpIndex ' Me.menuItemHelpIndex.Index = 1 Me.menuItemHelpIndex.Shortcut = System.Windows.Forms.Shortcut.CtrlF2 Me.menuItemHelpIndex.Text = "インデックス(&I)..." ' 'menuItemHelpSearch ' Me.menuItemHelpSearch.Index = 2 Me.menuItemHelpSearch.Shortcut = System.Windows.Forms.Shortcut.CtrlF3 Me.menuItemHelpSearch.Text = "検索(&S)..." ' 'menuItem13 ' Me.menuItem13.Index = 3 Me.menuItem13.Text = "-" ' 'menuItemAboutBox ' Me.menuItemAboutBox.Index = 4 Me.menuItemAboutBox.Text = "バージョン情報(&A)..." ' 'MainWindow ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 12) Me.ClientSize = New System.Drawing.Size(572, 446) Me.Controls.Add(Me.StatusBar1) Me.IsMdiContainer = True Me.Menu = Me.mainMenu1 Me.Name = "MainWindow" Me.Text = "顧客.NET" Me.ResumeLayout(False) End Sub #End Region Private Sub menuItemStartMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemStartMenu.Click MenuUtil.RunStartMenu(Me) End Sub Private Sub menuItemClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemClose.Click Me.Close() End Sub Private Sub menuItemCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemCascade.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub menuItemTileHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemTileHorizontal.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub menuItemTileVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemTileVertical.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub menuItemAllClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemAllClose.Click Dim children() As Form = Me.MdiChildren Dim child As Form For Each child In children child.Close() child.Dispose() Next End Sub Private Sub menuItemAboutBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemAboutBox.Click MessageBox.Show("顧客.NET" & vbCrLf & " ver. 0.1") End Sub Private Sub MainWindow_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MenuUtil.RunForm1(Me) ' for TEST MenuUtil.RunForm2(Me) ' for TEST MenuUtil.RunStartMenu(Me) End Sub Private Sub menuItemDataSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemDataSelect.Click MenuUtil.RunDataSelect(Me) End Sub Private Sub menuItemDataBackup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemDataBackup.Click MenuUtil.RunDataBackup(Me) End Sub Private Sub menuItemDataRestore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemDataRestore.Click MenuUtil.RunDataRestore(Me) End Sub Private Sub menuItemDataCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemDataCreate.Click MenuUtil.RunDataCreate(Me) End Sub Private Sub menuItemDataDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemDataDelete.Click MenuUtil.RunDataDelete(Me) End Sub Private Sub menuItemBasicInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemBasicInfo.Click MenuUtil.RunBasicInfo(Me) End Sub Private Sub menuItemSettingInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemSettingInfo.Click MenuUtil.RunSettingInfo(Me) End Sub Private Sub menuItemKokyakuEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemKokyakuEntry.Click MenuUtil.RunKokyakuEnTry(Me) End Sub Private Sub menuItemKokyakuTableEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemKokyakuTableEntry.Click MenuUtil.RunKokyakuTableEnTry(Me) End Sub Private Sub menuItemRirekiEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemRirekiEntry.Click MenuUtil.RunRirekiEnTry(Me) End Sub Private Sub menuItemRirekiTableEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemRirekiTableEntry.Click MenuUtil.RunRirekiTableEnTry(Me) End Sub Private Sub menuItemHelpContents_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemHelpContents.Click MenuUtil.RunHelpContents(Me) End Sub Private Sub menuItemHelpIndex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemHelpIndex.Click MenuUtil.RunHelpIndex(Me) End Sub Private Sub menuItemHelpSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuItemHelpSearch.Click MenuUtil.RunHelpSearch(Me) End Sub ' [Escape]キーが押されたら子MDIウィンドウを閉じます。 Protected Overrides Function ProcessDialogKey(ByVal keyData As Keys) As Boolean ' 基底クラスのProcessDialogKeyを事前に呼び出す If MyBase.ProcessDialogKey(keyData) = True Then ' 基底クラスで処理された場合には ' 処理済み(true)の戻り値を返す Return True End If ' MDI親ウィンドウで[Escape]キーを取得 If keyData = Keys.Escape Then ' それをメニュー・バーに通知 Return FunctionMenu.ProcessEscapeKey(ActiveMdiChild) End If Return False End Function End Class