• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision78 (tree)
Time2018-07-18 13:27:44
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/ML.Common.Base.Form/BaseForm.vb (revision 77)
+++ trunk/ML.Common.Base.Form/BaseForm.vb (revision 78)
@@ -12,6 +12,7 @@
1212 ''' |更新者 |日付 |連番 |変更内容 |
1313 ''' +------------+-----------+-----+-------------------------------------------+
1414 ''' y.miura 2014.11.30 001 新規作成
15+''' y.miura 2018.07.17 002 RadioButton上でEnter押下時に次コントロールへ移動する処理を追加
1516 ''' </history>
1617 Public Class BaseForm
1718
@@ -108,7 +109,10 @@
108109 AddHandler MyControl.KeyDown, AddressOf Me.KeyDownEvent
109110 Case TypeOf MyControl Is CheckBox
110111 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 <<
112116 End Select
113117 Next
114118
--- trunk/MLApp.TRN5000/My Project/Application.Designer.vb (nonexistent)
+++ trunk/MLApp.TRN5000/My Project/Application.Designer.vb (revision 78)
@@ -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+
--- trunk/MLApp.TRN5000/My Project/AssemblyInfo.vb (nonexistent)
+++ trunk/MLApp.TRN5000/My Project/AssemblyInfo.vb (revision 78)
@@ -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")>
--- trunk/MLApp.TRN5000/My Project/Resources.Designer.vb (nonexistent)
+++ trunk/MLApp.TRN5000/My Project/Resources.Designer.vb (revision 78)
@@ -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
--- trunk/MLApp.TRN5000/My Project/Settings.Designer.vb (nonexistent)
+++ trunk/MLApp.TRN5000/My Project/Settings.Designer.vb (revision 78)
@@ -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
--- trunk/MLApp.TRN5000/TRN5000.Designer.vb (nonexistent)
+++ trunk/MLApp.TRN5000/TRN5000.Designer.vb (revision 78)
@@ -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
--- trunk/MLApp.TRN5000/TRN5000.vb (nonexistent)
+++ trunk/MLApp.TRN5000/TRN5000.vb (revision 78)
@@ -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
Show on old repository browser