• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision58 (tree)
Time2017-02-09 09:02:51
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.TRN8000/TRN8210.Designer.vb (revision 57)
+++ trunk/MLApp.TRN8000/TRN8210.Designer.vb (revision 58)
@@ -1258,30 +1258,9 @@
12581258 Me.PerformLayout()
12591259
12601260 End Sub
1261- Friend WithEvents cmbTantou As ML.Controls.uc6ComboBox
1262- Friend WithEvents Uc6Label7 As ML.Controls.uc6Label
1263- Friend WithEvents Uc6Label1 As ML.Controls.uc6Label
1264- Friend WithEvents txtFurigana As ML.Controls.uc6TextBox
1265- Friend WithEvents Uc6GroupBox1 As ML.Controls.uc6GroupBox
1266- Friend WithEvents Uc6GroupBox2 As ML.Controls.uc6GroupBox
1267- Friend WithEvents cmbM130_M120CD1 As ML.Controls.uc6ComboBox
1268- Friend WithEvents txtM130_NAME1 As ML.Controls.uc6TextBox
1269- Friend WithEvents Uc6Label4 As ML.Controls.uc6Label
1270- Friend WithEvents Uc6Label3 As ML.Controls.uc6Label
1271- Friend WithEvents txtM130_CODE1 As ML.Controls.uc6TextBox
1272- Friend WithEvents Uc6Label2 As ML.Controls.uc6Label
1273- Friend WithEvents txtM130_BIKO1 As ML.Controls.uc6TextBox
1274- Friend WithEvents Uc6Label8 As ML.Controls.uc6Label
12751261 Friend WithEvents M1_TRNDataSet As MLApp.DataModel.M1_TRNDataSet
1276- Friend WithEvents lblDispMode As ML.Controls.uc6Label
12771262 Friend WithEvents dgvTRN8210S1 As ML.Controls.uc6DataGridView
1278- Friend WithEvents txtM130_FURIGANA1 As ML.Controls.uc6TextBox
1279- Friend WithEvents Uc6Label9 As ML.Controls.uc6Label
1280- Friend WithEvents ckDelMaster As ML.Controls.uc6CheckBox
1281- Friend WithEvents tbAMK8210S1 As System.Windows.Forms.TabControl
12821263 Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
1283- Friend WithEvents Uc6Label5 As ML.Controls.uc6Label
1284- Friend WithEvents cmbM130_M120CD2 As ML.Controls.uc6ComboBox
12851264 Friend WithEvents M130_CODE1 As System.Windows.Forms.DataGridViewTextBoxColumn
12861265 Friend WithEvents M130_NAME1 As System.Windows.Forms.DataGridViewTextBoxColumn
12871266 Friend WithEvents M130_FURIGANA1 As System.Windows.Forms.DataGridViewTextBoxColumn
@@ -1372,4 +1351,25 @@
13721351 Friend WithEvents M130_BIKO1 As System.Windows.Forms.DataGridViewTextBoxColumn
13731352 Friend WithEvents M130ORDER1DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
13741353 Friend WithEvents M130UPD1DataGridViewTextBoxColumn As System.Windows.Forms.DataGridViewTextBoxColumn
1354+ Protected WithEvents cmbTantou As ML.Controls.uc6ComboBox
1355+ Protected WithEvents Uc6Label7 As ML.Controls.uc6Label
1356+ Protected WithEvents Uc6Label1 As ML.Controls.uc6Label
1357+ Protected WithEvents txtFurigana As ML.Controls.uc6TextBox
1358+ Protected WithEvents Uc6GroupBox1 As ML.Controls.uc6GroupBox
1359+ Protected WithEvents Uc6GroupBox2 As ML.Controls.uc6GroupBox
1360+ Protected WithEvents cmbM130_M120CD1 As ML.Controls.uc6ComboBox
1361+ Protected WithEvents txtM130_NAME1 As ML.Controls.uc6TextBox
1362+ Protected WithEvents Uc6Label4 As ML.Controls.uc6Label
1363+ Protected WithEvents Uc6Label3 As ML.Controls.uc6Label
1364+ Protected WithEvents txtM130_CODE1 As ML.Controls.uc6TextBox
1365+ Protected WithEvents Uc6Label2 As ML.Controls.uc6Label
1366+ Protected WithEvents txtM130_BIKO1 As ML.Controls.uc6TextBox
1367+ Protected WithEvents Uc6Label8 As ML.Controls.uc6Label
1368+ Protected WithEvents lblDispMode As ML.Controls.uc6Label
1369+ Protected WithEvents txtM130_FURIGANA1 As ML.Controls.uc6TextBox
1370+ Protected WithEvents Uc6Label9 As ML.Controls.uc6Label
1371+ Protected WithEvents ckDelMaster As ML.Controls.uc6CheckBox
1372+ Protected WithEvents tbAMK8210S1 As System.Windows.Forms.TabControl
1373+ Protected WithEvents Uc6Label5 As ML.Controls.uc6Label
1374+ Protected WithEvents cmbM130_M120CD2 As ML.Controls.uc6ComboBox
13751375 End Class
--- trunk/MLApp.TRN8000/TRN8210.vb (revision 57)
+++ trunk/MLApp.TRN8000/TRN8210.vb (revision 58)
@@ -51,6 +51,8 @@
5151 ''' <summary>フォーム表示時イベント</summary>
5252 Private Sub TRN8210_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
5353
54+ If Me.DesignMode = True Then Exit Sub
55+
5456 '' 初期フォーカスのセット
5557 Me.txtFurigana.Focus()
5658
--- trunk/MLApp.Base/TRNStandardForm.vb (revision 57)
+++ trunk/MLApp.Base/TRNStandardForm.vb (revision 58)
@@ -20,7 +20,7 @@
2020 Protected m_LogOnUser As String
2121
2222 ''' <summary>カスタムコントロール共通クラス</summary>
23- Protected m_cbc As New ML.Controls.uc6.ControlsBaseClass
23+ Protected m_cbc As ML.Controls.uc6.ControlsBaseClass
2424
2525 ''' <summary>ログオンユーザー</summary>
2626 Public Property LogOnUser As String
@@ -35,10 +35,15 @@
3535 ''' <summary>フォームロード時</summary>
3636 Private Sub TRNStandardForm_Load(sender As Object, e As System.EventArgs) Handles Me.Load
3737
38+ If Me.DesignMode = True Then Exit Sub
39+
3840 '' フォームタイトルを設定する
3941 Me.Text &= " [ " & Me.Name & " ] "
4042 Me.Text = Space(1) & Me.Text
4143
44+ '' カスタムコントロール共通クラスインスタンス生成
45+ Me.m_cbc = New ML.Controls.uc6.ControlsBaseClass
46+
4247 End Sub
4348
4449 End Class
\ No newline at end of file
Show on old repository browser