Заменить первый символ из текстбокса - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д