• R/O
  • SSH
  • HTTPS

mlapplication: Commit


Commit MetaInfo

Revision64 (tree)
Time2017-04-04 22:03:22
Authoryukio_miura

Log Message

(empty log message)

Change Summary

Incremental Difference

--- trunk/MLApp.Base/ucSearchBox.vb (revision 63)
+++ trunk/MLApp.Base/ucSearchBox.vb (revision 64)
@@ -404,6 +404,14 @@
404404
405405 End Sub
406406
407+ ''' <summary>TabIndex変更時イベント</summary>
408+ Private Sub ucSearchBox_TabIndexChanged(sender As Object, e As System.EventArgs) Handles Me.TabIndexChanged
409+
410+ '' 名称欄のフォントをコード欄のフォントに置き換える
411+ Me.txtMasterCode.Font = Me.txtMasterName.Font
412+
413+ End Sub
414+
407415 #End Region
408416
409417 #Region " メソッド"
--- trunk/MLApp.TRN0000/Form2.Designer.vb (revision 63)
+++ trunk/MLApp.TRN0000/Form2.Designer.vb (revision 64)
@@ -22,8 +22,52 @@
2222 'コード エディターを使って変更しないでください。
2323 <System.Diagnostics.DebuggerStepThrough()> _
2424 Private Sub InitializeComponent()
25- components = New System.ComponentModel.Container
25+ Me.UcSearchBox1 = New MLApp.Base.ucSearchBox()
26+ Me.Button1 = New System.Windows.Forms.Button()
27+ Me.SuspendLayout()
28+ '
29+ 'UcSearchBox1
30+ '
31+ Me.UcSearchBox1.CodeControlEnabled = True
32+ Me.UcSearchBox1.CodeControlLengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
33+ Me.UcSearchBox1.CodeControlMaxLength = 12
34+ Me.UcSearchBox1.CodeControlText = ""
35+ Me.UcSearchBox1.CodeControlWidth = 55
36+ Me.UcSearchBox1.CodeFieldName = Nothing
37+ Me.UcSearchBox1.FuriganaFieldName = Nothing
38+ Me.UcSearchBox1.Location = New System.Drawing.Point(12, 28)
39+ Me.UcSearchBox1.Name = "UcSearchBox1"
40+ Me.UcSearchBox1.NameControlEnabled = True
41+ Me.UcSearchBox1.NameControlLengthCheckMode = ML.Common.[Const].En.enLengthCheckMode.ByteMode
42+ Me.UcSearchBox1.NameControlMaxLength = 12
43+ Me.UcSearchBox1.NameControlText = ""
44+ Me.UcSearchBox1.NameControlWidth = 192
45+ Me.UcSearchBox1.NameFieldName = Nothing
46+ Me.UcSearchBox1.NameFieldName2 = Nothing
47+ Me.UcSearchBox1.Size = New System.Drawing.Size(272, 20)
48+ Me.UcSearchBox1.TabIndex = 0
49+ '
50+ 'Button1
51+ '
52+ Me.Button1.Location = New System.Drawing.Point(50, 133)
53+ Me.Button1.Name = "Button1"
54+ Me.Button1.Size = New System.Drawing.Size(75, 23)
55+ Me.Button1.TabIndex = 1
56+ Me.Button1.Text = "Button1"
57+ Me.Button1.UseVisualStyleBackColor = True
58+ '
59+ 'Form2
60+ '
61+ Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
2662 Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
63+ Me.ClientSize = New System.Drawing.Size(284, 261)
64+ Me.Controls.Add(Me.Button1)
65+ Me.Controls.Add(Me.UcSearchBox1)
66+ Me.Name = "Form2"
2767 Me.Text = "Form2"
68+ Me.ResumeLayout(False)
69+
2870 End Sub
71+ Friend WithEvents UcSearchBox1 As MLApp.Base.ucSearchBox
72+ Friend WithEvents Button1 As System.Windows.Forms.Button
2973 End Class
--- trunk/MLApp.TRN0000/Form2.vb (revision 63)
+++ trunk/MLApp.TRN0000/Form2.vb (revision 64)
@@ -1,3 +1,6 @@
11 Public Class Form2
22
3+ Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
4+
5+ End Sub
36 End Class
\ No newline at end of file
Show on old repository browser