바코드

간이 재고관리이지만 코드가 길어서 그냥 아래 팁들을 올립니다.
바코드 리더를 이용 입력하고, 터치스크린으로 숫자를 누를 때마다
그 숫자를 텍스트 박스로 숫자 입력을 가능하게 하는 루틴입니다.
Option Explicit

Function Touch_Btn(obj1 As Object, obj2 As Object) As Integer

Select Case obj1.Caption

Case “1”
obj2.Value = Val(obj2.Text + “1”)

Case “2”
obj2.Value = Val(obj2.Text + “2”)

Case “3”
obj2.Value = Val(obj2.Text + “3”)

Case “4”
obj2.Value = Val(obj2.Text + “4”)

Case “5”
obj2.Value = Val(obj2.Text + “5”)

Case “6”
obj2.Value = Val(obj2.Text + “6”)

Case “7”
obj2.Value = Val(obj2.Text + “7”)

Case “8”
obj2.Value = Val(obj2.Text + “8”)

Case “9”
obj2.Value = Val(obj2.Text + “9”)

Case “0”
obj2.Value = Val(obj2.Text + “0”)

End Select

End Function
그리고 두번째 팁으로 ◀버튼을 누를 때마다 마지막 숫자를 지워서 다시
입력할 수 있도록 하는 팁입니다.

Private Sub Del_Last_Input()

Dim TempStr As String

If Len(TextBox4.Text) > 0 Then

TempStr = Left(TextBox4.Text, Len(TextBox4.Text) – 1)
TextBox4.Text = TempStr

End If

End Sub

나머지는 코드가 거의 1천여줄이라 엑셀파일을 제 블로그에 첨부해 두겠습니다.
찬찬히 훓어보시면 이해가 가시리라 봅니다. 거의 예제 수준이므로 공부하는데
도움이 되었으면 합니다.

첨부 : Manage_Stock