Commit: 88 - CTraining (svn)

練習用です。いろんなものがごちゃまぜです。

Commit MetaInfo

• Revision: 88 (tree)
• Time: 2015-11-29 15:46:55
• Author: bellyoshi

Log Message

Change Summary

• added: vb2010/vb2010/Form6.Designer.vb
• added: vb2010/vb2010/Form6.vb
• added: vb2010/vb2010/MyCollection.vb
• added: vb2010/vb2010/Form6.resx
• modified: vb2010/vb2010/vb2010.vbproj
• modified: vb2010/vb2010/frmMenu.Designer.vb
• modified: vb2010/vb2010/frmMenu.vb

Incremental Difference

--- vb2010/vb2010/Form6.Designer.vb	(nonexistent)
+++ vb2010/vb2010/Form6.Designer.vb	(revision 88)
@@ -0,0 +1,62 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form6
+    Inherits System.Windows.Forms.Form
+
+    'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Windows フォーム デザイナーで必要です。
+    Private components As System.ComponentModel.IContainer
+
+    'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
+    'Windows フォーム デザイナーを使用して変更できます。  
+    'コード エディターを使って変更しないでください。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.ListBox1 = New System.Windows.Forms.ListBox()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(75, 25)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "Button1"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'ListBox1
+        '
+        Me.ListBox1.FormattingEnabled = True
+        Me.ListBox1.ItemHeight = 15
+        Me.ListBox1.Location = New System.Drawing.Point(56, 78)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(120, 94)
+        Me.ListBox1.TabIndex = 1
+        '
+        'Form6
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(282, 253)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(Me.Button1)
+        Me.Name = "Form6"
+        Me.Text = "Form6"
+        Me.ResumeLayout(False)
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents ListBox1 As ListBox
+End Class

--- vb2010/vb2010/Form6.vb	(nonexistent)
+++ vb2010/vb2010/Form6.vb	(revision 88)
@@ -0,0 +1,9 @@
+Public Class Form6
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim m As New MyCollection
+
+        For Each c In m
+            ListBox1.Items.Add(c)
+        Next
+    End Sub
+End Class
\ No newline at end of file

--- vb2010/vb2010/MyCollection.vb	(nonexistent)
+++ vb2010/vb2010/MyCollection.vb	(revision 88)
@@ -0,0 +1,33 @@
+Public Class MyCollection
+    Implements IEnumerable
+
+    Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
+        Return New MyEnumerator
+    End Function
+
+End Class
+
+Public Class MyEnumerator
+    Implements IEnumerator
+
+    Private myCursor As Integer = 0
+
+    Public ReadOnly Property Current As Object Implements IEnumerator.Current
+        Get
+            Return myCursor * 2
+        End Get
+    End Property
+
+    Public Sub Reset() Implements IEnumerator.Reset
+        myCursor = 0
+    End Sub
+
+    Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext
+        If myCursor < 5 Then
+            myCursor += 1
+            Return True
+        Else
+            Return False
+        End If
+    End Function
+End Class
\ No newline at end of file

--- vb2010/vb2010/frmMenu.Designer.vb	(revision 87)
+++ vb2010/vb2010/frmMenu.Designer.vb	(revision 88)
@@ -28,6 +28,7 @@
         Me.Button4 = New System.Windows.Forms.Button()
         Me.Button5 = New System.Windows.Forms.Button()
         Me.Button6 = New System.Windows.Forms.Button()
+        Me.Button7 = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'Button1
@@ -81,14 +82,24 @@
         Me.Button6.Name = "Button6"
         Me.Button6.Size = New System.Drawing.Size(157, 23)
         Me.Button6.TabIndex = 0
-        Me.Button6.Text = "Button1"
+        Me.Button6.Text = "MyCollection"
         Me.Button6.UseVisualStyleBackColor = True
         '
+        'Button7
+        '
+        Me.Button7.Location = New System.Drawing.Point(26, 196)
+        Me.Button7.Name = "Button7"
+        Me.Button7.Size = New System.Drawing.Size(157, 23)
+        Me.Button7.TabIndex = 0
+        Me.Button7.Text = "Button1"
+        Me.Button7.UseVisualStyleBackColor = True
+        '
         'frmMenu
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(747, 253)
+        Me.Controls.Add(Me.Button7)
         Me.Controls.Add(Me.Button6)
         Me.Controls.Add(Me.Button5)
         Me.Controls.Add(Me.Button4)
@@ -107,4 +118,5 @@
     Friend WithEvents Button4 As Button
     Friend WithEvents Button5 As Button
     Friend WithEvents Button6 As Button
+    Friend WithEvents Button7 As Button
 End Class

--- vb2010/vb2010/frmMenu.vb	(revision 87)
+++ vb2010/vb2010/frmMenu.vb	(revision 88)
@@ -18,4 +18,8 @@
     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
         Form5.Show()
     End Sub
+
+    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
+        Form6.Show()
+    End Sub
 End Class
\ No newline at end of file