1つのウィンドウ上に配置された左右のテキストボックスに値アルファベットを入力し、その実行結果をその下のテキストボックスに表示する文字比較プログラムのシステムである。本発明の効果は、文字を比較し結果を真正しいか偽正しくないかでかえすものであるが、ウィンドウの配列等に工夫をした。本発明は、コンピュータ上から実行する形態である。図1は、本発明の左右のテキストボックスのアルファベットが同じ場合の実行結果である。左のテキストボックスはabcdeで、右のテキストボックスもabcdeの場合に正しいを出力する例を示したものである。ファイル名:Form1vbPublicClassForm1Dimtext1text2text3AsStringPrivateSubTextBox1TextChangedHandlesTextBox1TextChangedtext1TextBox1TextEndSubPrivateSubTextBox2TextChangedHandlesTextBox2TextChangedtext2TextBox2TextEndSubPrivateSubButton1ClickHandlesButton1ClickIftext1text2Thentext3trueElsetext3falseEndIfTextBox3Texttext3EndSubPrivateSubButton2ClickHandlesButton2ClickEndEndSubPrivateSubForm1LoadHandlesMyBaseLoadEndSubEndClassファイル名:Form1designervbPartialClassForm1InheritsSystemWindowsFormsFormフォームがコンポーネントの一覧をクリーンアップするためにdisposeをオーバーライドします。ProtectedOverridesSubDisposeTryIfdisposingAndAlsocomponentsIsNotNothingThencomponentsDisposeEndIfFinallyMyBaseDisposeEndTryEndSubWindowsフォームデザイナで必要です。PrivatecomponentsAsSystemComponentModelIContainerメモ以下のプロシージャはWindowsフォームデザイナで必要です。Windowsフォームデザイナを使用して変更できます。コードエディタを使って変更しないでください。PrivateSubInitializeComponentMeButton1NewSystemWindowsFormsButtonMeTextBox1NewSystemWindowsFormsTextBoxMeTextBox2NewSystemWindowsFormsTextBoxMeTextBox3NewSystemWindowsFormsTextBoxMeButton2NewSystemWindowsFormsButtonMeSuspendLayoutButton1MeButton1LocationNewSystemDrawingPointMeButton1NameButton1MeButton1SizeNewSystemDrawingSizeMeButton1TabIndex0MeButton1TextcompareMeButton1UseVisualStyleBackColorTrueTextBox1MeTextBox1LocationNewSystemDrawingPointMeTextBox1NameTextBox1MeTextBox1SizeNewSystemDrawingSizeMeTextBox1TabIndex1TextBox2MeTextBox2LocationNewSystemDrawingPointMeTextBox2NameTextBox2MeTextBox2SizeNewSystemDrawingSizeMeTextBox2TabIndex2TextBox3MeTextBox3LocationNewSystemDrawingPointMeTextBox3NameTextBox3MeTextBox3SizeNewSystemDrawingSizeMeTextBox3TabIndex4Button2MeButton2LocationNewSystemDrawingPointMeButton2NameButton2MeButton2SizeNewSystemDrawingSizeMeButton2TabIndex6MeButton2TextendMeButton2UseVisualStyleBackColorTrueForm1MeAutoScaleDimensionsNewSystemDrawingSizeFMeAutoScaleModeSystemWindowsFormsAutoScaleModeFontMeClientSizeNewSystemDrawingSizeMeControlsAddMeControlsAddMeControlsAddMeControlsAddMeControlsAddMeNameForm1MeTextForm1MeResumeLayoutMePerformLayoutEndSubFriendWithEventsButton1AsSystemWindowsFormsButtonFriendWithEventsTextBox1AsSystemWindowsFormsTextBoxFriendWithEventsTextBox2AsSystemWindowsFormsTextBoxFriendWithEventsTextBox3AsSystemWindowsFormsTextBoxFriendWithEventsButton2AsSystemWindowsFormsButtonEndClass図2は左のテキストボックスがabcdeで、右のテキストボックスがbadecの場合の実行例である。結果は、正しくないfalseの値を出力する。