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