กระทู้เก่าบอร์ด อ.Yeadram
1,260 1
URL.หัวข้อ /
URL
แปลงตัวพิมพ์จากใหญ่เป็นเล็กจากเล็กเป็นใหญ่
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3329s
Private Sub cmdClear_Click() 'ปุ่ม Clear หน้าจอ
On Error Resume Next
Me.txtOriginal.Value = ""
Me.txtLeft.Value = ""
Me.txtRight.Value = ""
Me.txtLCase.Value = ""
Me.txtUCase.Value = ""
Me.txtValue1.Value = ""
Me.txtValue2.Value = ""
End Sub
Private Sub cmdOK_Click() 'ปุ่ม OK
'Created by iBasskung
On Error GoTo ErrDesc
Dim funLeft, strLeft, funRight, strRight, funLCase, strLCase, funUCase, strUCase
Dim Value1 As Long
Dim Value2 As Long
Value1 = Me.txtValue1.Value
Value2 = Me.txtValue2.Value
funLeft = Me.txtOriginal.Value
strLeft = Left(funLeft, Value1)
funRight = Me.txtOriginal.Value
strRight = Right(funRight, Value2)
funLCase = Me.txtOriginal.Value
strLCase = LCase(funLCase)
funUCase = Me.txtOriginal.Value
strUCase = UCase(funUCase)
Me.txtLeft.Value = strLeft
Me.txtRight.Value = strRight
Me.txtLCase.Value = strLCase
Me.txtUCase.Value = strUCase
txtFocus.SetFocus
ErrExit:
Exit Sub
ErrDesc:
MsgBox "Error Number หมายเลข" & " " & Err.Number & " " & Err.Description, vbCritical, "Error ครับ"
Resume ErrExit
End Sub