Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> тип контролов и преобразование из строк 
:(
    Опции темы
Wedi
Дата 11.5.2019, 15:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 10.3.2019

Репутация: -1
Всего: -1



привет друзья
хочется передать параметр в метод
но что за фрукт "имя контрола"
какой у него тип и как преобразовать
его из строчной формы?
Код

Private name As String
Private Sub initHead(ByVal n As String, ByVal wi As Long, ByVal h As Long)
 name = n ' передаём "Form1.headG"
 With name 'with object must be user-defined type object or variant
    .AutoRedraw = True
    .width = wi
...
...
End Sub
'и вызов
initHead "Form1.headG", 300, 50

PM MAIL   Вверх
Akina
Дата 11.5.2019, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Бред какой-то, право слово.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Wedi
Дата 11.5.2019, 20:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 10.3.2019

Репутация: -1
Всего: -1




Модератор: Сообщение скрыто.

PM MAIL   Вверх
Oldshelf
Дата 12.5.2019, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 155
Регистрация: 22.4.2018

Репутация: 2
Всего: 4



А контрол уже существует? Если да, то вот пример передачи control'а (типа PictureBox):

Код

Private Sub initHead(obj As PictureBox, ByVal wi As Long, ByVal h As Long)
    obj.AutoRedraw = True
    obj.Width = wi
End Sub

Public Sub Form_Load()
 initHead Form1.Picture1, 2500, 50
End Sub


Вроде, работает.

Добавлено через 14 минут и 46 секунд
Или если строкой:
Код

 initHead Form1.Controls("Picture1"), 2500, 50

PM MAIL WWW   Вверх
Oldshelf
Дата 12.5.2019, 20:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 155
Регистрация: 22.4.2018

Репутация: 2
Всего: 4



И с передачей любого контрола и определением его типа:
Код

Private Sub initHead(obj As Object, ByVal wi As Long, ByVal h As Long)
    MsgBox (TypeName(obj))
    obj.AutoRedraw = True
    obj.Width = wi
End Sub

Public Sub Form_Load()
 initHead Form1.Controls("Picture1"), 2500, 50
End Sub

PM MAIL WWW   Вверх
Wedi
Дата 12.5.2019, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 16
Регистрация: 10.3.2019

Репутация: -1
Всего: -1



всем спасибо
информация принята
PM MAIL   Вверх
Akina
Дата 12.5.2019, 21:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453



Цитата(Wedi @  11.5.2019,  21:40 Найти цитируемый пост)
в чём бред то

В попытке использовать переменную типа String в качестве базы блока With.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.1454 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.