[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Наш сайт » Visual basic » Умная табуляция, одинаковая табуляция текста (Умная табуляция, одинаковая табуляция текста)
Умная табуляция, одинаковая табуляция текста
ilimДата: Среда, 09.11.2011, 22:28 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 680
Награды: 17
Репутация: 4
Статус: Offline
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


www.ilim.kz
 
Форум » Наш сайт » Visual basic » Умная табуляция, одинаковая табуляция текста (Умная табуляция, одинаковая табуляция текста)
Страница 1 из 11
Поиск: