프로그래밍 공부노트

컨트롤 여러개를 배열로 묶어서 사용할 수 있다. VB 6.0에서는 쉽게 가능했는데 .net으로 오면서 방법이 달라졌다고 하는데 원래 방법을 모르니..

Public Class Form1

    Private txtArray(2, 1) As TextBox

->우선 txtArray라는 3x2짜리 배열을 선언해 주되 형식을 TextBox로 한다.

    Public Sub New()

        InitializeComponent()

        txtArray(0, 0) = TextBox1

        txtArray(0, 1) = TextBox2

        txtArray(1, 0) = TextBox3

        txtArray(1, 1) = TextBox4

        txtArray(2, 0) = TextBox5

        txtArray(2, 1) = TextBox6

->윗 두줄이 있어야만 txtArray에 TextBox를 할당할 수 있다. 각각의 항목(엑셀로 따지면 셀)에 TextBox를 할당해 준다. 

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 0 To 2

            For j = 0 To 1

                txtArray(i, j).Text = i & "," & j

            Next

        Next

->다중 For..Next문으로 각각의 TextBox에 주소를 넣어주었다.

    End Sub

End Class

 Function ExtractNumber(ByVal InputString As String)

        Dim i As Integer = 0

        Dim Num As String = ""

        For i = Len(InputString) To 1 Step -1

            If IsNumeric(Mid(InputString, i, 1)) Then

                Num = Mid(InputString, i, 1) & Num

            End If

        Next i

        ExtractNumber = Num

    End Function

텍스트박스에서 엔터키 감지하기 + 다른 프로시져에서 버튼 클릭 이벤트를 활성화하는 방법이다.

텍스트박스 이름은 TextBox1, 버튼 이름은 Button1

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As _ system.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.Return Then

                  Button1_Click(sender, New System.EventArgs())

        End If

    End Sub

둘다 유용하게 쓸 수 있다!

1. 영문입력시 대문자로만 입력되게 하기: 속성에서 CharacterCasting을 Upper로 설정

2. 영문과 숫자만 입력되게 하기: 속성에서 ImeMode를 Disable로 설정

3.숫자만 입력되게 하려면 코드창에서 텍스트박스의 KeyPress 이벤트를 만들고 다음과 같이 입력하면 된다.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As _ System.Windows.Forms.KeyPressEventArgs) Handles tbSticks.KeyPress

        If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then

            e.Handled = True

        End If

    End Sub