Форматирование текста в TextBox (выравнивание по столбикам)

@dr_Morro · Регистрация: 05.08.2013

Студворк — интернет-сервис помощи студентам

Вот фрагмент:

VB.NET
1
2
3
4
5
6
7
8
9
10
s = CInt(txtNumPages.Text)
n = s / 4
txtMainWindow.Text = ""
For Me.x = 1 To n
    a = (s - 2 * x) + 2
    b = 2 * x - 1
    c = 2 * x
    d = (s - 2 * x) + 1
    txtMainWindow.Text = txtMainWindow.Text + CStr(Format(a, "#####")) & CStr(Format(b, "#####")) & CStr(Format(c, "#####")) & CStr(Format(d, "#####")) + vbCrLf
Next x

в текстовое окно выводит к примеру так:
181217
163415
145613
127811

а мне надо примерно так:

VB.NET
1
2
3
4
18           1           2           17
16           3           4           15
14           5           6           13
12           7           8           11

Как этого добиться? Эти вот ##### нифига не помогают.

Добавлено через 38 минут
Сделал пока так:

VB.NET
1
txtMainWindow.Text = txtMainWindow.Text + CStr(a) & vbTab & CStr(b) & vbTab & CStr(c) & vbTab & CStr(d) + vbCrLf

Но не устраивает. Выравнивание нужно по правому краю в столбцах.

Памирыч · 11.06.2014, 10:20

Вам наверно нужен PadLeft и PadRight

VB.NET
1
TextBox1.Text = "12".ToString.PadLeft(10)

@dr_Morro · 11.06.2014, 10:30 **[ТС]**

Памирыч, сделал так:

VB.NET
1
txtMainWindow.Text = txtMainWindow.Text + CStr(a).ToString.PadLeft(10) & CStr(b).ToString.PadLeft(10) & CStr(c).ToString.PadLeft(10) & CStr(d).ToString.PadLeft(10) + vbCrLf

НО! в текстбоксе теперь ничего не отражается.

Добавлено через 5 минут
Сорри, там в другом месте случайно строчку закомментил. Работает, но немного не так.

Памирыч · 11.06.2014, 10:33

У меня выводится с Вашим кодом

@dr_Morro · 11.06.2014, 10:34 **[ТС]**

Вот скрин

@dr_Morro · 11.06.2014, 10:35 **[ТС]**

))) скрин выше. Сверху криво

Памирыч · 11.06.2014, 10:37

dr_Morro, правильно, так и будет ибо:
ширина пробела не в каждом шрифте равна ширине символа.

Выход: заюзать моноширинный шрифт

@dr_Morro · 11.06.2014, 10:37 **[ТС]**

ТОЧНО!!! Вот лох то... Ток с табуляцией ничё нормального придумать низзя? Или там с этим FORMAT?

Памирыч · 11.06.2014, 10:40

Альтернатива - использовать символы табуляции

VB.NET
1
txtMainWindow.Text = txtMainWindow.Text + CStr(120).ToString & vbTab & CStr(12).ToString & vbTab & CStr(8).ToString & vbCrLf

Если числа небольшие

@dr_Morro · 11.06.2014, 10:42 **[ТС]**

Сообщение от dr_Morro

CStr(Format(a, "#####"))

А с этими фиговинами тогда чо? Ну ведь не работают...
С табуляцией тоже выравнивание не там.

В общем спс. дальше ковырять буду.

Памирыч · 11.06.2014, 10:52

Сообщение от dr_Morro

Format

Есть такое

VB.NET
1
txtMainWindow.Text &= String.Format("{0,-10}", 100) & String.Format("{0,-10}", 40) & String.Format("{0,-10}", 4) & vbCrLf

Но там тоже пробелы, все поедет

@ovva · 11.06.2014, 14:49

VB.NET
1
CStr(Format(a, "#####"))

??
Format уже возвращает тип String

VB.NET
1
CStr(a).ToString.PadLeft(10)

??
Зачем строку еще раз приводить к типу String.

@dr_Morro · 11.06.2014, 14:52 **[ТС]**

Сообщение от ovva

Format уже возвращает тип String

Сообщение от ovva

Зачем строку еще раз приводить к типу String.

Та проехали уже всё.

это все следствие скоростного копипаста. один фиг работает. я уже потом всё вылизываю

Добавлено через 1 минуту
Вот оно в итоге как выглядит:

VB.NET
1
txtMainWindow.Text &= a.ToString.PadLeft(9) & b.ToString.PadLeft(8) & c.ToString.PadLeft(8) & d.ToString.PadLeft(8) + vbCrLf

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	11.06.2014, 10:33
	У меня выводится с Вашим кодом Миниатюры 0

@dr_Morro 195 / 115 / 30 Регистрация: 05.08.2013 Сообщений: 491
	11.06.2014, 10:34 [ТС]
	Вот скрин Миниатюры 0

@dr_Morro 195 / 115 / 30 Регистрация: 05.08.2013 Сообщений: 491
	11.06.2014, 10:35 [ТС]
	))) скрин выше. Сверху криво 0

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	11.06.2014, 10:37
	dr_Morro, правильно, так и будет ибо: ширина пробела не в каждом шрифте равна ширине символа. Выход: заюзать моноширинный шрифт 1

@dr_Morro 195 / 115 / 30 Регистрация: 05.08.2013 Сообщений: 491
	11.06.2014, 10:37 [ТС]
	ТОЧНО!!! Вот лох то... Ток с табуляцией ничё нормального придумать низзя? Или там с этим FORMAT? 0