RSS

Untuk mengcapitalkan isi textbox

Sub CapitalTb()
Dim oText(100) As String
Dim i As Integer

    For Each obj In Me.Controls
        If Left(obj.Name, 3) = "txt" Then
            obj.Text = UCase(obj.Text)
            obj.Text = Replace(obj.Text, "'", "`")
        End If
    Next
          
End Sub

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 comments:

Posting Komentar