Ошибка использования Autosize

@AndreA SN · Регистрация: 26.08.2011

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
            For j = 0 To  UBound(koord)
                tbDetal(j).Text = CStr(Cells(CLng(nomer_select), koord(j)).Value)
 
                If j = 0 Or j = 1 Then
                    tbDetal(j).AutoSize
                    If tbdetal1 < tbDetal(j).Size Then
                        tbdetal1 = tbDetal(j).Size
                    ElseIf tbDetal(j).Size < 47 Then
                        tbdetal1 = 47
                        tbDetal(1).Size = 47
                    End If
                    tbDetal(j).Size = tbdetal1
                End If
                    LabDetal(1).Size = tbDetal(1).Size
                If j = 1 Then
                    tbDetal(j).AutoSize
                    If tbdetal2 < tbDetal(j).Size Then
                        tbdetal2 = tbDetal(j).Size
                    ElseIf tbDetal(j).Size < 47 Then
                        tbdetal2 = 47
                        tbDetal(2).Size = 47
                    End If
                    tbDetal(j).Size = tbdetal2
                    
                    LabDetal(2).Size = tbDetal(2).Size
                    tbDetal(2).Left = 3 + tbDetal(1).Size + 1
                    LabDetal(2).Left = tbDetal(2).Left
                    tbDetal(3).Left = 3 + tbDetal(1).Size + 1 + tbDetal(2).Size + 1
                    LabDetal(3).Left = tbDetal(3).Left
                    
                End If
                
                tbDetal(j).Visible = True
            Next j

выдает ошибку в 5 строке листинга
возможно, я неправильно использую метод?

Добавлено через 1 час 28 минут
Ребята. Мне стыдно

Накосячил сам и вас тут обзадачил
мало того, что метод со свойством спутал, так еще и вместо Width использовал Size

Вот то, что норм работает

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
            For j = 0 To UBound(koord)
            If CStr(Cells(CLng(nomer_select), koord(j)).Value) <> "" Then
                tbDetal(j).AutoSize = True
                tbDetal(j).Text = CStr(Cells(CLng(nomer_select), koord(j)).Value)
                 If j = 0 Then
                    
                    If tbdetal1 < tbDetal(j).Width Then
                        tbdetal1 = tbDetal(j).Width
                    ElseIf tbDetal(j).Width < 47 Then
                        tbdetal1 = 47
                        tbDetal(1).Size = 47
                    End If
                    tbDetal(j).AutoSize = False
                    tbDetal(j).Width = tbdetal1
                    tbDetal(j).Visible = True
                    LabDetal(j).Width = tbDetal(j).Width
                    LabDetal(j).Visible = True
                End If
                If j = 1 Then
                    
                    If tbdetal2 < tbDetal(j).Width Then
                        tbdetal2 = tbDetal(j).Width
                    ElseIf tbDetal(j).Width < 47 Then
                        tbdetal2 = 47
                        tbDetal(2).Width = 47
                    End If
                    tbDetal(j).AutoSize = False
                    tbDetal(j).Width = tbdetal2
                    
                    LabDetal(j).Width = tbDetal(j).Width
                    tbDetal(j).Left = 3 + tbDetal(0).Width + 1
                    LabDetal(j).Left = tbDetal(j).Left
                    tbDetal(j + 1).Left = 3 + tbDetal(j - 1).Width + 1 + tbDetal(j).Width + 1
                    LabDetal(j + 1).Left = tbDetal(j + 1).Left
                    
                End If
                 tbDetal(j).Visible = True
                End If
            Next j

Попутно подшаманил индексы и стало все корректно.
Вообщем тема можно сказать вчерне исчерпана.

@Игорь111 · 27.07.2017, 14:29

Добрый день помогите мне написать простенькую программку

@AndreA SN · 27.07.2017, 19:38 **[ТС]**

а что за программка? Может это маленькая базка данных с распределенными ресурсами? Я не спец. Но если проблему опишете, а я не смогу помочь - посоветую кто точно сможет.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Игорь111 0 / 0 / 0 Регистрация: 18.05.2015 Сообщений: 3
	27.07.2017, 14:29
	Добрый день помогите мне написать простенькую программку 0

@AndreA SN 1021 / 125 / 2 Регистрация: 26.08.2011 Сообщений: 1,219 Записей в блоге: 2
	27.07.2017, 19:38 [ТС]
	а что за программка? Может это маленькая базка данных с распределенными ресурсами? Я не спец. Но если проблему опишете, а я не смогу помочь - посоветую кто точно сможет. 0