Составить программу автоматического переноса слов - VB

Узнай цену своей работы

Формулировка задачи:

Товарищи, помогите пожалуйста. Необходимо составить программу автоматического переноса слов. Исходная информация вводится с клавиатуры. Заранее благодарен, за любую помощь!

Решение задачи: «Составить программу автоматического переноса слов»

textual
Листинг программы
Option Explicit
Const r = 300
Dim WithEvents t As TextBox, l  As Label
 
Private Sub Form_Resize()
    On Error Resume Next
    l.Move 0, r, ScaleWidth, ScaleHeight - r
End Sub
 
Private Sub t_KeyPress(KeyAscii As Integer)
    Dim i&
    If KeyAscii = 13 Then
        With t
            i = .SelStart
            t = Left(t, i) & vbCrLf & Mid(t, i + 1)
            .SelStart = i + 2
        End With
    End If
End Sub
 
Private Sub Form_Load()
    Move 1000, 1000, 4000, 3000
    Set t = Controls.Add("vb.textbox", "t"): With t
            .Move 0, 0, r * 5, r
            .Text = "Ввод текста"
            .SelLength = r
            .Visible = 1
    End With
    Set l = Controls.Add("vb.Label", "l"): With l
        .BorderStyle = 1
        .BackColor = vbActiveTitleBarText
        .Visible = 1
    End With
End Sub
 
Private Sub t_Change()
    On Error Resume Next: l = t
End Sub

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

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