Умная табуляция, одинаковая табуляция текста

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_SETTABSTOPS = &HCB

Private Sub Form_Load()
Dim tabs(1 To 2) As Long
Dim txt As String

tabs(1) = 20
tabs(2) = 130

' Set the tabs.
SendMessage Text1.hwnd, EM_SETTABSTOPS, 2, tabs(1)

' Enter some values.
txt = "Bacon Burger" & vbTab & "3.00" & vbCrLf
txt = txt & vbTab & "Tomato" & vbTab & "0.15" & vbCrLf
txt = txt & vbTab & "Extra Cheese" & vbTab & "0.20" & vbCrLf
txt = txt & "Large Fries" & vbTab & "0.99" & vbCrLf
txt = txt & "Medium Softdrink" & vbTab & "1.05" & vbCrLf
txt = txt & "" & vbCrLf
txt = txt & "Subtotal" & vbTab & "5.39" & vbCrLf
txt = txt & "Tax" & vbTab & vbTab & "0.38" & vbCrLf
txt = txt & "Total" & vbTab & vbTab & "5.77" & vbCrLf
Text1.Text = txt
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Умная табуляция, одинаковая табуляция текста", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!