Заменить первый символ из текстбокса - VB
Формулировка задачи:
Что то с синтаксом никак не разберусь нужно первый символ слева заменить на запятую т.е пробел
box(1).Text = Replace(Left(box(1).Text, "0"), " ", ",")
Почему вся строка заменяется не пойму
Решение задачи: «Заменить первый символ из текстбокса»
textual
Листинг программы
Option Explicit
Const r = 90
Dim WithEvents cb As CommandButton, WithEvents tx As TextBox, s$
Private Sub cb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
tx = "," & Mid$(tx, 2)
End Sub
Private Sub cb_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
tx = "h" & Mid$(tx, 2)
End Sub
Private Sub Form_Load()
Set tx = Controls.Add("vb.TextBox", "tx"): With tx
.Move r, r
.Text = "hello"
.Visible = 1
End With
Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
.Move r + tx.Width, r
.Caption = "Сменить"
.Visible = 1
End With
End Sub