+

[VB6.0] Một số thủ thuật trong VB6.0

2.27.2014

Các thủ thuật Vb6.0.


1. Không cho người dùng gõ số vào TextBox:

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If InStr("1234567890" + Chr$(vbKeyBack), Chr$(KeyAscii)) = 0 Then
   KeyAscii = 0
   Beep
   End If
End Sub


2. Kiểm tra địa chỉ Email

Public Function kiemtraemail(EmailAddress As String) As Boolean
   kiemtraemail = EmailAddress Like "*@[A-Z,a-z,0-9]*.*"
End Function

Trong Form1 bạn thêm vào đó 1 textbox với thuộc tính name là EmailText dùng để nhập địa chỉ email và 1 command1 để kiểm tra tính hợp lệ của địa chỉ email khi người dùng ấn vào:
Private Sub Command1_Click()
   If (kiemtraemail(EmailText.Text) = False) Then ‘ Nếu địa chỉ Email không dúng
             Beep ‘ Kêu 1 tiếng beep
              MsgBox "chu y: Dia chi email khong hop le", vbOKOnly, "Thong bao"
   Else
            MsgBox "Dia chi email da hop le", vbOKOnly, "Thong bao"
   End If
End Sub



3. Tạo dòng chữ chạy liên tục

Bạn hãy mở 1 form mới, trên đó tạo 1 textbox (Text1), gán 1 dòng văn bản vào thuộc tính text của textbox, tạo 1 Timer (Timer1).
Private Sub Form_Load()
   Timer1.Interval = 100
End Sub

Và timer sẽ xử lý các lệnh theo yêu cầu của bạn mỗi khi nó phát sinh 1 sự kiện thời gian.
Private Sub Timer1_Timer()
   Dim x As String
   Dim y As String
   x = Left(Text1.Text, 1) 'gán x = 1 ký tự đầu dòng văn bản
   y = Right(Text1.Text, Len(Text1.Text) - 1) 'gán y là phần còn lại
   Text1.Text = y + x 'Hiển thị trở lại TextBox theo thứ tự ngược lại.
End Sub


4. Xóa bỏ các khoảng trống dư thừa trong 1 chuỗi

Private Function PreventDuplicateSpaces(Word)
   Dim i, WordLength, Character, LastCharacter, NewWord
   On Error GoTo ErrorHandler
   WordLength = Len(Word)
   For i = 1 To WordLength
   Character = Mid(Word, i, 1)
      If LastCharacter = " " And Character = " " Then
      Else
      NewWord = NewWord & Character
      LastCharacter = Character
      End If
   Next i
   PreventDuplicateSpaces = Trim(NewWord)
   Exit Function
   ErrorHandler:
End Function