リビジョン | 78 (tree) |
---|---|
日時 | 2018-07-18 13:27:44 |
作者 | yukio_miura |
(メッセージはありません)
@@ -12,6 +12,7 @@ | ||
12 | 12 | ''' |更新者 |日付 |連番 |変更内容 | |
13 | 13 | ''' +------------+-----------+-----+-------------------------------------------+ |
14 | 14 | ''' y.miura 2014.11.30 001 新規作成 |
15 | +''' y.miura 2018.07.17 002 RadioButton上でEnter押下時に次コントロールへ移動する処理を追加 | |
15 | 16 | ''' </history> |
16 | 17 | Public Class BaseForm |
17 | 18 |
@@ -108,7 +109,10 @@ | ||
108 | 109 | AddHandler MyControl.KeyDown, AddressOf Me.KeyDownEvent |
109 | 110 | Case TypeOf MyControl Is CheckBox |
110 | 111 | AddHandler MyControl.KeyDown, AddressOf Me.KeyDownEvent |
111 | - | |
112 | + '' ADD 002 Y.MIURA >> | |
113 | + Case TypeOf MyControl Is RadioButton | |
114 | + AddHandler MyControl.KeyDown, AddressOf Me.KeyDownEvent | |
115 | + '' ADD 002 Y.MIURA << | |
112 | 116 | End Select |
113 | 117 | Next |
114 | 118 |
@@ -0,0 +1,13 @@ | ||
1 | +'------------------------------------------------------------------------------ | |
2 | +' <auto-generated> | |
3 | +' このコードはツールによって生成されました。 | |
4 | +' ランタイム バージョン:4.0.30319.42000 | |
5 | +' | |
6 | +' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、 | |
7 | +' コードが再生成されるときに損失したりします。 | |
8 | +' </auto-generated> | |
9 | +'------------------------------------------------------------------------------ | |
10 | + | |
11 | +Option Strict On | |
12 | +Option Explicit On | |
13 | + |
@@ -0,0 +1,35 @@ | ||
1 | +Imports System | |
2 | +Imports System.Reflection | |
3 | +Imports System.Runtime.InteropServices | |
4 | + | |
5 | +' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。 | |
6 | +' アセンブリに関連付けられている情報を変更するには、 | |
7 | +' これらの属性値を変更してください。 | |
8 | + | |
9 | +' アセンブリ属性の値を確認します。 | |
10 | + | |
11 | +<Assembly: AssemblyTitle("MLApp.TRN5000")> | |
12 | +<Assembly: AssemblyDescription("")> | |
13 | +<Assembly: AssemblyCompany("HP Inc.")> | |
14 | +<Assembly: AssemblyProduct("MLApp.TRN5000")> | |
15 | +<Assembly: AssemblyCopyright("Copyright © HP Inc. 2018")> | |
16 | +<Assembly: AssemblyTrademark("")> | |
17 | + | |
18 | +<Assembly: ComVisible(False)> | |
19 | + | |
20 | +'このプロジェクトが COM に公開される場合、次の GUID がタイプ ライブラリの ID になります。 | |
21 | +<Assembly: Guid("d5243ab7-29f4-4257-8002-250c3527283a")> | |
22 | + | |
23 | +' アセンブリのバージョン情報は、以下の 4 つの値で構成されています: | |
24 | +' | |
25 | +' Major Version | |
26 | +' Minor Version | |
27 | +' Build Number | |
28 | +' Revision | |
29 | +' | |
30 | +' すべての値を指定するか、下のように '*' を使ってビルドおよびリビジョン番号を | |
31 | +' 既定値にすることができます: | |
32 | +' <Assembly: AssemblyVersion("1.0.*")> | |
33 | + | |
34 | +<Assembly: AssemblyVersion("1.0.0.0")> | |
35 | +<Assembly: AssemblyFileVersion("1.0.0.0")> |
@@ -0,0 +1,63 @@ | ||
1 | +'------------------------------------------------------------------------------ | |
2 | +' <auto-generated> | |
3 | +' このコードはツールによって生成されました。 | |
4 | +' ランタイム バージョン:4.0.30319.42000 | |
5 | +' | |
6 | +' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、 | |
7 | +' コードが再生成されるときに損失したりします。 | |
8 | +' </auto-generated> | |
9 | +'------------------------------------------------------------------------------ | |
10 | + | |
11 | +Option Strict On | |
12 | +Option Explicit On | |
13 | + | |
14 | +Imports System | |
15 | + | |
16 | +Namespace My.Resources | |
17 | + | |
18 | + 'このクラスは StronglyTypedResourceBuilder クラスが ResGen | |
19 | + 'または Visual Studio のようなツールを使用して自動生成されました。 | |
20 | + 'メンバーを追加または削除するには、.ResX ファイルを編集して、/str オプションと共に | |
21 | + 'ResGen を実行し直すか、または VS プロジェクトをビルドし直します。 | |
22 | + '''<summary> | |
23 | + ''' ローカライズされた文字列などを検索するための、厳密に型指定されたリソース クラスです。 | |
24 | + '''</summary> | |
25 | + <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ | |
26 | + Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ | |
27 | + Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ | |
28 | + Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ | |
29 | + Friend Module Resources | |
30 | + | |
31 | + Private resourceMan As Global.System.Resources.ResourceManager | |
32 | + | |
33 | + Private resourceCulture As Global.System.Globalization.CultureInfo | |
34 | + | |
35 | + '''<summary> | |
36 | + ''' このクラスで使用されているキャッシュされた ResourceManager インスタンスを返します。 | |
37 | + '''</summary> | |
38 | + <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
39 | + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager | |
40 | + Get | |
41 | + If Object.ReferenceEquals(resourceMan, Nothing) Then | |
42 | + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("MLApp.TRN5000.Resources", GetType(Resources).Assembly) | |
43 | + resourceMan = temp | |
44 | + End If | |
45 | + Return resourceMan | |
46 | + End Get | |
47 | + End Property | |
48 | + | |
49 | + '''<summary> | |
50 | + ''' 厳密に型指定されたこのリソース クラスを使用して、すべての検索リソースに対し、 | |
51 | + ''' 現在のスレッドの CurrentUICulture プロパティをオーバーライドします。 | |
52 | + '''</summary> | |
53 | + <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
54 | + Friend Property Culture() As Global.System.Globalization.CultureInfo | |
55 | + Get | |
56 | + Return resourceCulture | |
57 | + End Get | |
58 | + Set | |
59 | + resourceCulture = value | |
60 | + End Set | |
61 | + End Property | |
62 | + End Module | |
63 | +End Namespace |
@@ -0,0 +1,73 @@ | ||
1 | +'------------------------------------------------------------------------------ | |
2 | +' <auto-generated> | |
3 | +' このコードはツールによって生成されました。 | |
4 | +' ランタイム バージョン:4.0.30319.42000 | |
5 | +' | |
6 | +' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、 | |
7 | +' コードが再生成されるときに損失したりします。 | |
8 | +' </auto-generated> | |
9 | +'------------------------------------------------------------------------------ | |
10 | + | |
11 | +Option Strict On | |
12 | +Option Explicit On | |
13 | + | |
14 | + | |
15 | +Namespace My | |
16 | + | |
17 | + <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ | |
18 | + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _ | |
19 | + Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
20 | + Partial Friend NotInheritable Class MySettings | |
21 | + Inherits Global.System.Configuration.ApplicationSettingsBase | |
22 | + | |
23 | + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) | |
24 | + | |
25 | +#Region "My.Settings 自動保存機能" | |
26 | +#If _MyType = "WindowsForms" Then | |
27 | + Private Shared addedHandler As Boolean | |
28 | + | |
29 | + Private Shared addedHandlerLockObject As New Object | |
30 | + | |
31 | + <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
32 | + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) | |
33 | + If My.Application.SaveMySettingsOnExit Then | |
34 | + My.Settings.Save() | |
35 | + End If | |
36 | + End Sub | |
37 | +#End If | |
38 | +#End Region | |
39 | + | |
40 | + Public Shared ReadOnly Property [Default]() As MySettings | |
41 | + Get | |
42 | + | |
43 | +#If _MyType = "WindowsForms" Then | |
44 | + If Not addedHandler Then | |
45 | + SyncLock addedHandlerLockObject | |
46 | + If Not addedHandler Then | |
47 | + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings | |
48 | + addedHandler = True | |
49 | + End If | |
50 | + End SyncLock | |
51 | + End If | |
52 | +#End If | |
53 | + Return defaultInstance | |
54 | + End Get | |
55 | + End Property | |
56 | + End Class | |
57 | +End Namespace | |
58 | + | |
59 | +Namespace My | |
60 | + | |
61 | + <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ | |
62 | + Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ | |
63 | + Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ | |
64 | + Friend Module MySettingsProperty | |
65 | + | |
66 | + <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ | |
67 | + Friend ReadOnly Property Settings() As Global.MLApp.TRN5000.My.MySettings | |
68 | + Get | |
69 | + Return Global.MLApp.TRN5000.My.MySettings.Default | |
70 | + End Get | |
71 | + End Property | |
72 | + End Module | |
73 | +End Namespace |
@@ -0,0 +1,44 @@ | ||
1 | +<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ | |
2 | +Partial Class TRN5000 | |
3 | + Inherits MLApp.Base.TRNBaseMenuForm | |
4 | + | |
5 | + 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 | |
6 | + <System.Diagnostics.DebuggerNonUserCode()> _ | |
7 | + Protected Overrides Sub Dispose(ByVal disposing As Boolean) | |
8 | + Try | |
9 | + If disposing AndAlso components IsNot Nothing Then | |
10 | + components.Dispose() | |
11 | + End If | |
12 | + Finally | |
13 | + MyBase.Dispose(disposing) | |
14 | + End Try | |
15 | + End Sub | |
16 | + | |
17 | + 'Windows フォーム デザイナーで必要です。 | |
18 | + Private components As System.ComponentModel.IContainer | |
19 | + | |
20 | + 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。 | |
21 | + 'Windows フォーム デザイナーを使用して変更できます。 | |
22 | + 'コード エディターを使って変更しないでください。 | |
23 | + <System.Diagnostics.DebuggerStepThrough()> _ | |
24 | + Private Sub InitializeComponent() | |
25 | + Me.MenuBtnPanel.SuspendLayout() | |
26 | + Me.SuspendLayout() | |
27 | + ' | |
28 | + 'cmdF12 | |
29 | + ' | |
30 | + Me.cmdF12.Enabled = True | |
31 | + ' | |
32 | + 'TRN9600 | |
33 | + ' | |
34 | + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!) | |
35 | + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font | |
36 | + Me.ClientSize = New System.Drawing.Size(865, 453) | |
37 | + Me.Name = "TRN9600" | |
38 | + Me.Text = "TRN9600" | |
39 | + Me.MenuBtnPanel.ResumeLayout(False) | |
40 | + Me.ResumeLayout(False) | |
41 | + Me.PerformLayout() | |
42 | + | |
43 | + End Sub | |
44 | +End Class |
@@ -0,0 +1,29 @@ | ||
1 | + | |
2 | +''' <summary> | |
3 | +''' 【クラス名】TRN5000 | |
4 | +''' 【機能概要】在庫管理メニュー画面 | |
5 | +''' </summary> | |
6 | +''' <history> | |
7 | +''' +------------+-----------+-----+-------------------------------------------+ | |
8 | +''' |更新者 |日付 |連番 |変更内容 | | |
9 | +''' +------------+-----------+-----+-------------------------------------------+ | |
10 | +''' y.miura 2018.07.17 001 新規作成 | |
11 | +''' </history> | |
12 | +Public Class TRN5000 | |
13 | + | |
14 | + ''' <summary>終了ボタンクリック時イベント</summary> | |
15 | + Protected Overrides Sub cmdF12_Click(sender As Object, e As System.EventArgs) | |
16 | + | |
17 | + '' システムメニューへ戻る | |
18 | + Me.Former.ShowForm("TRN0020", _ | |
19 | + "MLApp.TRN0000", _ | |
20 | + "システムメニュー", _ | |
21 | + Me.MdiParent, _ | |
22 | + ML.Common.Const.En.enWindowMode.Show) | |
23 | + | |
24 | + '' 自身を閉じる | |
25 | + Me.Close() | |
26 | + | |
27 | + End Sub | |
28 | + | |
29 | +End Class | |
\ No newline at end of file |