練習用です。いろんなものがごちゃまぜです。
| @@ -0,0 +1,62 @@ | ||
| 1 | +<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ | |
| 2 | +Partial Class Form1 | |
| 3 | + Inherits System.Windows.Forms.Form | |
| 4 | + | |
| 5 | + 'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。 | |
| 6 | + <System.Diagnostics.DebuggerNonUserCode()> _ | |
| 7 | + Protected Overrides Sub Dispose(ByVal disposing As Boolean) | |
| 8 | + Try | |
| 9 | + If disposing AndAlso components IsNot Nothing Then | |
| 10 | + components.Dispose() | |
| 11 | + End If | |
| 12 | + Finally | |
| 13 | + MyBase.Dispose(disposing) | |
| 14 | + End Try | |
| 15 | + End Sub | |
| 16 | + | |
| 17 | + 'Windows フォーム デザイナーで必要です。 | |
| 18 | + Private components As System.ComponentModel.IContainer | |
| 19 | + | |
| 20 | + 'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。 | |
| 21 | + 'Windows フォーム デザイナーを使用して変更できます。 | |
| 22 | + 'コード エディターを使って変更しないでください。 | |
| 23 | + <System.Diagnostics.DebuggerStepThrough()> _ | |
| 24 | + Private Sub InitializeComponent() | |
| 25 | + Me.ListBox1 = New System.Windows.Forms.ListBox() | |
| 26 | + Me.Button1 = New System.Windows.Forms.Button() | |
| 27 | + Me.SuspendLayout() | |
| 28 | + ' | |
| 29 | + 'ListBox1 | |
| 30 | + ' | |
| 31 | + Me.ListBox1.FormattingEnabled = True | |
| 32 | + Me.ListBox1.ItemHeight = 15 | |
| 33 | + Me.ListBox1.Location = New System.Drawing.Point(12, 66) | |
| 34 | + Me.ListBox1.Name = "ListBox1" | |
| 35 | + Me.ListBox1.Size = New System.Drawing.Size(258, 184) | |
| 36 | + Me.ListBox1.TabIndex = 0 | |
| 37 | + ' | |
| 38 | + 'Button1 | |
| 39 | + ' | |
| 40 | + Me.Button1.Location = New System.Drawing.Point(12, 26) | |
| 41 | + Me.Button1.Name = "Button1" | |
| 42 | + Me.Button1.Size = New System.Drawing.Size(75, 23) | |
| 43 | + Me.Button1.TabIndex = 1 | |
| 44 | + Me.Button1.Text = "Button1" | |
| 45 | + Me.Button1.UseVisualStyleBackColor = True | |
| 46 | + ' | |
| 47 | + 'Form1 | |
| 48 | + ' | |
| 49 | + Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 15.0!) | |
| 50 | + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font | |
| 51 | + Me.ClientSize = New System.Drawing.Size(282, 253) | |
| 52 | + Me.Controls.Add(Me.Button1) | |
| 53 | + Me.Controls.Add(Me.ListBox1) | |
| 54 | + Me.Name = "Form1" | |
| 55 | + Me.Text = "Form1" | |
| 56 | + Me.ResumeLayout(False) | |
| 57 | + | |
| 58 | + End Sub | |
| 59 | + | |
| 60 | + Friend WithEvents ListBox1 As ListBox | |
| 61 | + Friend WithEvents Button1 As Button | |
| 62 | +End Class |
| @@ -0,0 +1,3 @@ | ||
| 1 | +Public Class Form1 | |
| 2 | + | |
| 3 | +End Class |
| @@ -0,0 +1,62 @@ | ||
| 1 | +'------------------------------------------------------------------------------ | |
| 2 | +' <auto-generated> | |
| 3 | +' This code was generated by a tool. | |
| 4 | +' Runtime Version:4.0.30319.42000 | |
| 5 | +' | |
| 6 | +' Changes to this file may cause incorrect behavior and will be lost if | |
| 7 | +' the code is regenerated. | |
| 8 | +' </auto-generated> | |
| 9 | +'------------------------------------------------------------------------------ | |
| 10 | + | |
| 11 | +Option Strict On | |
| 12 | +Option Explicit On | |
| 13 | + | |
| 14 | + | |
| 15 | +Namespace My.Resources | |
| 16 | + | |
| 17 | + 'This class was auto-generated by the StronglyTypedResourceBuilder | |
| 18 | + 'class via a tool like ResGen or Visual Studio. | |
| 19 | + 'To add or remove a member, edit your .ResX file then rerun ResGen | |
| 20 | + 'with the /str option, or rebuild your VS project. | |
| 21 | + '''<summary> | |
| 22 | + ''' A strongly-typed resource class, for looking up localized strings, etc. | |
| 23 | + '''</summary> | |
| 24 | + <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ | |
| 25 | + Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ | |
| 26 | + Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ | |
| 27 | + Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ | |
| 28 | + Friend Module Resources | |
| 29 | + | |
| 30 | + Private resourceMan As Global.System.Resources.ResourceManager | |
| 31 | + | |
| 32 | + Private resourceCulture As Global.System.Globalization.CultureInfo | |
| 33 | + | |
| 34 | + '''<summary> | |
| 35 | + ''' Returns the cached ResourceManager instance used by this class. | |
| 36 | + '''</summary> | |
| 37 | + <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
| 38 | + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager | |
| 39 | + Get | |
| 40 | + If Object.ReferenceEquals(resourceMan, Nothing) Then | |
| 41 | + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("vb2010.Resources", GetType(Resources).Assembly) | |
| 42 | + resourceMan = temp | |
| 43 | + End If | |
| 44 | + Return resourceMan | |
| 45 | + End Get | |
| 46 | + End Property | |
| 47 | + | |
| 48 | + '''<summary> | |
| 49 | + ''' Overrides the current thread's CurrentUICulture property for all | |
| 50 | + ''' resource lookups using this strongly typed resource class. | |
| 51 | + '''</summary> | |
| 52 | + <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
| 53 | + Friend Property Culture() As Global.System.Globalization.CultureInfo | |
| 54 | + Get | |
| 55 | + Return resourceCulture | |
| 56 | + End Get | |
| 57 | + Set(ByVal value As Global.System.Globalization.CultureInfo) | |
| 58 | + resourceCulture = value | |
| 59 | + End Set | |
| 60 | + End Property | |
| 61 | + End Module | |
| 62 | +End Namespace |
| @@ -0,0 +1,35 @@ | ||
| 1 | +Imports System | |
| 2 | +Imports System.Reflection | |
| 3 | +Imports System.Runtime.InteropServices | |
| 4 | + | |
| 5 | +' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。 | |
| 6 | +' アセンブリに関連付けられている情報を変更するには、 | |
| 7 | +' これらの属性値を変更してください。 | |
| 8 | + | |
| 9 | +' アセンブリ属性の値を確認します | |
| 10 | + | |
| 11 | +<Assembly: AssemblyTitle("vb2010")> | |
| 12 | +<Assembly: AssemblyDescription("")> | |
| 13 | +<Assembly: AssemblyCompany("")> | |
| 14 | +<Assembly: AssemblyProduct("vb2010")> | |
| 15 | +<Assembly: AssemblyCopyright("Copyright © 2015")> | |
| 16 | +<Assembly: AssemblyTrademark("")> | |
| 17 | + | |
| 18 | +<Assembly: ComVisible(False)> | |
| 19 | + | |
| 20 | +'このプロジェクトが COM に公開される場合、次の GUID が typelib の ID になります | |
| 21 | +<Assembly: Guid("40d73c62-e9f6-4291-9764-edce1538cf91")> | |
| 22 | + | |
| 23 | +' アセンブリのバージョン情報は次の 4 つの値で構成されています: | |
| 24 | +' | |
| 25 | +' メジャー バージョン | |
| 26 | +' マイナー バージョン | |
| 27 | +' ビルド番号 | |
| 28 | +' Revision | |
| 29 | +' | |
| 30 | +' すべての値を指定するか、下のように '*' を使ってビルドおよびリビジョン番号を | |
| 31 | +' 既定値にすることができます: | |
| 32 | +' <Assembly: AssemblyVersion("1.0.*")> | |
| 33 | + | |
| 34 | +<Assembly: AssemblyVersion("1.0.0.0")> | |
| 35 | +<Assembly: AssemblyFileVersion("1.0.0.0")> |
| @@ -0,0 +1,73 @@ | ||
| 1 | +'------------------------------------------------------------------------------ | |
| 2 | +' <auto-generated> | |
| 3 | +' This code was generated by a tool. | |
| 4 | +' Runtime Version:4.0.30319.42000 | |
| 5 | +' | |
| 6 | +' Changes to this file may cause incorrect behavior and will be lost if | |
| 7 | +' the code is regenerated. | |
| 8 | +' </auto-generated> | |
| 9 | +'------------------------------------------------------------------------------ | |
| 10 | + | |
| 11 | +Option Strict On | |
| 12 | +Option Explicit On | |
| 13 | + | |
| 14 | + | |
| 15 | +Namespace My | |
| 16 | + | |
| 17 | + <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ | |
| 18 | + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ | |
| 19 | + Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
| 20 | + Partial Friend NotInheritable Class MySettings | |
| 21 | + Inherits Global.System.Configuration.ApplicationSettingsBase | |
| 22 | + | |
| 23 | + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) | |
| 24 | + | |
| 25 | +#Region "My.Settings Auto-Save Functionality" | |
| 26 | +#If _MyType = "WindowsForms" Then | |
| 27 | + Private Shared addedHandler As Boolean | |
| 28 | + | |
| 29 | + Private Shared addedHandlerLockObject As New Object | |
| 30 | + | |
| 31 | + <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ | |
| 32 | + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) | |
| 33 | + If My.Application.SaveMySettingsOnExit Then | |
| 34 | + My.Settings.Save() | |
| 35 | + End If | |
| 36 | + End Sub | |
| 37 | +#End If | |
| 38 | +#End Region | |
| 39 | + | |
| 40 | + Public Shared ReadOnly Property [Default]() As MySettings | |
| 41 | + Get | |
| 42 | + | |
| 43 | +#If _MyType = "WindowsForms" Then | |
| 44 | + If Not addedHandler Then | |
| 45 | + SyncLock addedHandlerLockObject | |
| 46 | + If Not addedHandler Then | |
| 47 | + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings | |
| 48 | + addedHandler = True | |
| 49 | + End If | |
| 50 | + End SyncLock | |
| 51 | + End If | |
| 52 | +#End If | |
| 53 | + Return defaultInstance | |
| 54 | + End Get | |
| 55 | + End Property | |
| 56 | + End Class | |
| 57 | +End Namespace | |
| 58 | + | |
| 59 | +Namespace My | |
| 60 | + | |
| 61 | + <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ | |
| 62 | + Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ | |
| 63 | + Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ | |
| 64 | + Friend Module MySettingsProperty | |
| 65 | + | |
| 66 | + <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ | |
| 67 | + Friend ReadOnly Property Settings() As Global.vb2010.My.MySettings | |
| 68 | + Get | |
| 69 | + Return Global.vb2010.My.MySettings.Default | |
| 70 | + End Get | |
| 71 | + End Property | |
| 72 | + End Module | |
| 73 | +End Namespace |
| @@ -0,0 +1,38 @@ | ||
| 1 | +'------------------------------------------------------------------------------ | |
| 2 | +' <auto-generated> | |
| 3 | +' This code was generated by a tool. | |
| 4 | +' Runtime Version:4.0.30319.42000 | |
| 5 | +' | |
| 6 | +' Changes to this file may cause incorrect behavior and will be lost if | |
| 7 | +' the code is regenerated. | |
| 8 | +' </auto-generated> | |
| 9 | +'------------------------------------------------------------------------------ | |
| 10 | + | |
| 11 | +Option Strict On | |
| 12 | +Option Explicit On | |
| 13 | + | |
| 14 | + | |
| 15 | +Namespace My | |
| 16 | + | |
| 17 | + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, | |
| 18 | + ' or if you encounter build errors in this file, go to the Project Designer | |
| 19 | + ' (go to Project Properties or double-click the My Project node in | |
| 20 | + ' Solution Explorer), and make changes on the Application tab. | |
| 21 | + ' | |
| 22 | + Partial Friend Class MyApplication | |
| 23 | + | |
| 24 | + <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ | |
| 25 | + Public Sub New() | |
| 26 | + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) | |
| 27 | + Me.IsSingleInstance = false | |
| 28 | + Me.EnableVisualStyles = true | |
| 29 | + Me.SaveMySettingsOnExit = true | |
| 30 | + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses | |
| 31 | + End Sub | |
| 32 | + | |
| 33 | + <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ | |
| 34 | + Protected Overrides Sub OnCreateMainForm() | |
| 35 | + Me.MainForm = Global.vb2010.Form1 | |
| 36 | + End Sub | |
| 37 | + End Class | |
| 38 | +End Namespace |