ホームページ > 記事 > コンピューターのチュートリアル > vbプログラムを使用して2つのテキストボックス内の異なる数値を検索し、別のテキストボックスに表示する方法
1. VB プログラムを使用して 2 つのテキスト ボックス内の異なる数値を検索し、別のテキスト ボックスに表示するにはどうすればよいですか?
VB プログラムで 2 つのテキスト ボックス内の異なる数値を見つけて別のテキスト ボックスに表示するには、次の手順に従います。 1. 3 つのテキスト ボックスを作成し、それぞれ txtBox1、txtBox2、txtResult という名前を付けます。 2. プログラムにボタンを追加し、btnCompare という名前を付け、クリック イベントに関連付けます。 3. If ステートメントを使用して 2 つのテキスト ボックスの数値を比較するコードをクリック イベント ハンドラーに記述します。 4. Val 関数を使用してテキスト ボックス内のテキストを変換します。
インターフェイスのデザイン:
コードの作成:
Private Sub btnFindDifference_Click() ' 获取两个文本框中的数字 Dim text1 As String Dim text2 As String text1 = TextBox1.Text text2 = TextBox2.Text ' 转换为数组 Dim array1() As String = text1.Split(" ") Dim array2() As String = text2.Split(" ") ' 使用集合找到不同的数字 Dim uniqueNumbers As New List(Of String) For Each num In array1 If Not array2.Contains(num) AndAlso Not uniqueNumbers.Contains(num) Then uniqueNumbers.Add(num) End If Next ' 将不同的数字显示在第三个文本框 TextBox3.Text = String.Join(" ", uniqueNumbers) End Sub
テスト実行:
2. VB のテキスト ボックスとそれに対応する番号についてお聞きしたいのですが。
テキスト ボックスを使用して、対応する数のテキスト ボックスを VB で動的に生成する方法の問題が発生した場合は、次の手順に従って問題を解決できます。
フォームにボタンを追加してテキスト ボックスを生成します。
VB コードを使用して、ボタンのクリック イベントでテキスト ボックスを動的に生成します。
Private Sub btnGenerateTextBoxes_Click() ' 获取要生成的文本框个数(这里假设为10个) Dim numberOfTextBoxes As Integer = 10 ' 动态生成文本框 For i As Integer = 1 To numberOfTextBoxes Dim newTextBox As New TextBox newTextBox.Name = "TextBox" & i newTextBox.Text = "TextBox " & i ' 设置位置、大小等属性 newTextBox.Top = (i - 1) * 30 newTextBox.Left = 10 ' 将文本框添加到窗体上 Me.Controls.Add(newTextBox) Next End Sub
ボタンをクリックして、対応する数のテキスト ボックスを生成し、それが正しいかどうかを確認します。期待どおりに生成されました。
VB では、論理コードを記述することで 2 つのテキスト ボックス内の異なる数値を見つけることができます。さらに、VB でテキスト ボックスを使用し、対応する数のテキスト ボックスを動的に生成する必要がある場合は、ボタン クリック イベントにコードを記述してテキスト ボックスを動的に生成できます。このようにして、パズルを簡単に解くことができます。
以上がvbプログラムを使用して2つのテキストボックス内の異なる数値を検索し、別のテキストボックスに表示する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。