• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision74 (tree)
Time2018-03-01 09:04:35
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.Base/TRNBaseForm.vb (revision 73)
+++ trunk/MLApp.Base/TRNBaseForm.vb (revision 74)
@@ -122,31 +122,36 @@
122122 Next
123123
124124 '' DataGridView設定変更
125- For Each c As Control In Me.Controls
125+ 'For Each c As Control In Me.Controls
126126
127- If TypeOf c Is ML.Controls.uc6DataGridView Then
127+ ' If TypeOf c Is ML.Controls.uc6DataGridView Then
128128
129- '' 列幅設定
130- CType(c, ML.Controls.uc6DataGridView).LoadColumnSettingXml(Me.Name)
129+ ' '' 列幅設定
130+ ' CType(c, ML.Controls.uc6DataGridView).LoadColumnSettingXml(Me.Name)
131131
132- '' ADD 002 Y.MIURA >>
132+ ' '' ADD 002 Y.MIURA >>
133133
134- '' フォント名取得
135- Dim sFontName As String = Me.m_cbc.SetMemberVariable( _
136- "MS UI Gothic", _
137- ML.Controls.uc6.enSectionName.InputControlFontName)
134+ ' '' フォント名取得
135+ ' Dim sFontName As String = Me.m_cbc.SetMemberVariable( _
136+ ' "MS UI Gothic", _
137+ ' ML.Controls.uc6.enSectionName.InputControlFontName)
138138
139- '' フォントサイズ取得
140- Dim sglFontSize As Single = Me.m_cbc.SetMemberVariable( _
141- 9.5, _
142- ML.Controls.uc6.enSectionName.InputControlFontSize)
143- '' DefaultCellStyle.Font設定
144- CType(c, ML.Controls.uc6DataGridView).DefaultCellStyle.Font = New System.Drawing.Font(sFontName, sglFontSize)
139+ ' '' フォントサイズ取得
140+ ' Dim sglFontSize As Single = Me.m_cbc.SetMemberVariable( _
141+ ' 9.5, _
142+ ' ML.Controls.uc6.enSectionName.InputControlFontSize)
143+ ' '' DefaultCellStyle.Font設定
144+ ' CType(c, ML.Controls.uc6DataGridView).DefaultCellStyle.Font = New System.Drawing.Font(sFontName, sglFontSize)
145145
146- '' ADD 002 Y.MIURA <<
146+ ' '' ADD 002 Y.MIURA <<
147147
148- End If
148+ ' End If
149149
150+ 'Next
151+ For Each c As Control In Me.Controls
152+
153+ Me.SettingDataGridView(c)
154+
150155 Next
151156
152157 '' 現在日付をメンバ変数にセットする
@@ -157,6 +162,59 @@
157162
158163 End Sub
159164
165+ ''' <summary>DataGridView設定処理</summary>
166+ Private Sub SettingDataGridView(ByVal MyControl As Control)
167+ Try
168+ '' 引数で渡されたコントロール種類を判断
169+ Select Case True
170+
171+ Case TypeOf MyControl Is Panel
172+ '' Panelコントロール内のuc6DataGridViewを探す
173+ For Each PanelControl As Control In CType(MyControl, Panel).Controls
174+ Me.SettingDataGridView(PanelControl)
175+ Next
176+ Case TypeOf MyControl Is TabControl
177+ '' TabControlコントロール内のuc6DataGridViewを探す
178+ For Each TabControl As Control In CType(MyControl, TabControl).Controls
179+ Me.SettingDataGridView(TabControl)
180+ Next
181+ Case TypeOf MyControl Is GroupBox
182+ '' TabControlコントロール内のuc6DataGridViewを探す
183+ For Each GroupBoxControl As Control In CType(MyControl, GroupBox).Controls
184+ Me.SettingDataGridView(GroupBoxControl)
185+ Next
186+ Case TypeOf MyControl Is ML.Controls.uc6DataGridView
187+
188+ '' 列幅設定
189+ CType(MyControl, ML.Controls.uc6DataGridView).LoadColumnSettingXml(Me.Name)
190+
191+ '' ADD 002 Y.MIURA >>
192+
193+ '' フォント名取得
194+ Dim sFontName As String = Me.m_cbc.SetMemberVariable( _
195+ "MS UI Gothic", _
196+ ML.Controls.uc6.enSectionName.InputControlFontName)
197+
198+ '' フォントサイズ取得
199+ Dim sglFontSize As Single = Me.m_cbc.SetMemberVariable( _
200+ 9.5, _
201+ ML.Controls.uc6.enSectionName.InputControlFontSize)
202+ '' DefaultCellStyle.Font設定
203+ CType(MyControl, ML.Controls.uc6DataGridView).DefaultCellStyle.Font = New System.Drawing.Font(sFontName, sglFontSize)
204+
205+ '' ADD 002 Y.MIURA <<
206+
207+ End Select
208+
209+ Catch ex As Exception
210+
211+ '' エラーログ出力
212+ Me.Logger.WriteErrorLog(ex.Message)
213+
214+ End Try
215+
216+ End Sub
217+
160218 ''' <summary>現在日付取得処理</summary>
161219 Protected Overridable Function GetNowDate() As Date
162220 Dim db As ML.DBAccess.Base.Db5 = ML.DBAccess.Base.Db5.CurrentDb
Show on old repository browser