Welcome Guest [Log In] [Register]
Welcome to VITINHTHANHSON. We hope you enjoy your visit.


You're currently viewing our forum as a guest. This means you are limited to certain areas of the board and there are some features you can't use. If you join our community, you'll be able to access member-only sections, and use many member-only features such as customizing your profile, sending personal messages, and voting in polls. Registration is simple, fast, and completely free.


Join our community!


If you're already a member please log in to your account to access all of our features:

Username:   Password:
Add Reply
Cắt khoảng trống
Topic Started: Jul 10 2006, 11:30 PM (373 Views)
Dinhvanquanglk
Member Avatar
Tổng thư ký
Administration
Ví dụ như:
Posted Image


'+==============================
Private Sub CmdRemoveBlankSpaces_Click()
Dim i, TLen, TMess
TMess = "" ' Initialise temporary String to null string
For i = 1 To Len(txtOriginalString.Text) ' Iterate from the first chracter to the last character
of the string
' Check if chracter is NOT a blank space
If Mid(txtOriginalString.Text, i, 1) <> " " Then
' Character is not a blank space - so append it to TMess
TMess = TMess & Mid(txtOriginalString.Text, i, 1)
End If
Next
txtResultString.Text = TMess ' Disaplay TMess by assigning it to txtResultString.text
End Sub


Posted Image

[size=5]Nhà 0 số-Mố Cầu Long Biên-Long Biên-Hà Nội[/size]
Offline Profile Quote Post Goto Top
 
1 user reading this topic (1 Guest and 0 Anonymous)
« Previous Topic · Visual Basic · Next Topic »
Add Reply