Заменить первый символ из текстбокса - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы