Commit: 84 - CTraining (svn)

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

Commit MetaInfo

• Revision: 84 (tree)
• Time: 2015-11-23 11:05:51
• Author: bellyoshi

Log Message

Change Summary

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

Incremental Difference

--- vb2010/vb2010/Form3.Designer.vb	(nonexistent)
+++ vb2010/vb2010/Form3.Designer.vb	(revision 84)
@@ -0,0 +1,73 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class Form3
+    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.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(12, 12)
+        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(12, 41)
+        Me.ListBox1.Name = "ListBox1"
+        Me.ListBox1.Size = New System.Drawing.Size(258, 199)
+        Me.ListBox1.TabIndex = 1
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(122, 12)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(100, 22)
+        Me.TextBox1.TabIndex = 2
+        '
+        'Form3
+        '
+        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.TextBox1)
+        Me.Controls.Add(Me.ListBox1)
+        Me.Controls.Add(Me.Button1)
+        Me.Name = "Form3"
+        Me.Text = "Form3"
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents Button1 As Button
+    Friend WithEvents ListBox1 As ListBox
+    Friend WithEvents TextBox1 As TextBox
+End Class

--- vb2010/vb2010/Form3.vb	(nonexistent)
+++ vb2010/vb2010/Form3.vb	(revision 84)
@@ -0,0 +1,22 @@
+Imports System.Globalization
+
+Public Class Form3
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim dt As New StringInfo(TextBox1.Text)
+        Dim num As Integer
+        num = dt.LengthInTextElements
+
+        If num <> 1 Then
+            ListBox1.Items.Add("1文字で入力してください。")
+            ListBox1.Items.Add($"入力した文字数は{num}文字です。")
+        Else
+            ListBox1.Items.Add($"入力した文字は'{dt.String}'です。")
+            ListBox1.Items.Add($"入力した文字数は{num}文字です。")
+        End If
+        ListBox1.Items.Add("")
+        For Each c In dt.String
+            Dim v = Convert.ToUInt16(c)
+            ListBox1.Items.Add($"{v:X4}")
+        Next
+    End Sub
+End Class
\ No newline at end of file

--- vb2010/vb2010/frmMenu.Designer.vb	(revision 83)
+++ vb2010/vb2010/frmMenu.Designer.vb	(revision 84)
@@ -48,11 +48,11 @@
         '
         'Button3
         '
-        Me.Button3.Location = New System.Drawing.Point(59, 120)
+        Me.Button3.Location = New System.Drawing.Point(26, 80)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(75, 23)
+        Me.Button3.Size = New System.Drawing.Size(157, 23)
         Me.Button3.TabIndex = 0
-        Me.Button3.Text = "Button1"
+        Me.Button3.Text = "1文字は何バイト"
         Me.Button3.UseVisualStyleBackColor = True
         '
         'Button4

--- vb2010/vb2010/frmMenu.vb	(revision 83)
+++ vb2010/vb2010/frmMenu.vb	(revision 84)
@@ -6,4 +6,8 @@
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Form2.Show()
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        Form3.Show()
+    End Sub
 End Class
\ No newline at end of file