Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "а", "")
End Sub
в textbox
Как удалить в textbox не весь текст, например букву (а)… из написанного текста. На Visual Basic 6.0
Код:
В противном случае, для удаления а и А которое можно осуществить заменой этих букв на "" нужно использовать :
Код:
Private Sub Command1_Click()
TextBox1.Text = Replace(TextBox1.Text, "а", "", , , vbTextCompare)
End Sub
TextBox1.Text = Replace(TextBox1.Text, "а", "", , , vbTextCompare)
End Sub
Код:
Option Compare Text
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "а", "")
End Sub
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, "а", "")
End Sub
Не забывайте, что изменение текста в TextBox вызывает события, например Change()
Как написать в textbox, например “a” один раз.
Как заменить в textbox «точку» на «запятую» чтобы через запятую могло слаживать дробные числа.
Как VB6 поменять «точку» на «запятую» чтобы можно было считать дробные числа
Text1.Text = String(1, "а")
Если же Вам нужно "ограничить" количество вводов определённых символов, то используйте соответствующие события, например, Change() KeyPress(), KeyUp()
Заменить точку на запятую в TextBox можно используя функцию Replace() (см. выше)
IMHO Разделитель целой и дробной части, определяется исходя из настроек конкретной машины [Пуск-Настройки-Панель управления-Язык и стандарты]
например чтобы прописанном тексте можно была написать 1 раз «а».
Вариант I.
Код:
Option Compare Text
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 192 Or KeyAscii = 224 Then
If Text1.Text Like "*А*" Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyDown( _
KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And Shift = 2 Then
KeyCode = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 192 Or KeyAscii = 224 Then
If Text1.Text Like "*А*" Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyDown( _
KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And Shift = 2 Then
KeyCode = 0
End If
End Sub
Вариант II.
Код:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 192 Or KeyAscii = 224 Then
If InStr(1, Text1.Text, "А", _
vbTextCompare) > 0 Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyDown( _
KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And Shift = 2 Then
KeyCode = 0
End If
End Sub
If KeyAscii = 192 Or KeyAscii = 224 Then
If InStr(1, Text1.Text, "А", _
vbTextCompare) > 0 Then KeyAscii = 0
End If
End Sub
Private Sub Text1_KeyDown( _
KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyV And Shift = 2 Then
KeyCode = 0
End If
End Sub
Спасибо тебе!!!!