ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передать в функцию ссылку на элемент формы
13 сообщений из 13, страница 1 из 1
Передать в функцию ссылку на элемент формы
    #34876834
detail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
detail
Участник
Хочу сделать такое:
в форме - несколько текстовых полей и кнопок напротив каждого из них. В текстовых полях - пути к папкам. Нажав кнопку можно найти папку, и путь должен записаться в соответствующее кнопке текстовое поле.

хочу написать код такого вида:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub browseErp_Click()
        browseDir (Forms![Импорт]!erpPath)
End Sub

Public Sub browseDir(ByRef element As Variant)
        Dim fdd As FileDialog: Set fdd = Application.FileDialog(msoFileDialogFolderPicker)

        With fdd
                .title = "Выберите папку"
    
                If .Show = - 1  Then
                        If .SelectedItems.Count >  0  Then element.Value = .SelectedItems( 1 )
                End If
        End With
End Sub
Такой код не работает, потому что в процедуре значение element - null. Хочу держать минимум кода в функции нажатия на кнопку. В принципе, есть другой вариант, но хотелось бы знать, как передать ссылку, чтобы из функции можно было в неё записать.
...
Рейтинг: 0 / 0
18.10.2007, 07:36
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34876976
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Возможно вам следует написать
Код: plaintext
Call browseDir(Forms![Импорт]!erpPath)
или
Код: plaintext
browseDir Forms![Импорт]!erpPath

А что это за библиотека с FileDialog ?
...
Рейтинг: 0 / 0
18.10.2007, 09:48
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34876987
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
попробуй так, без всяких ссылок
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub browseErp_Click()
    Dim sh As New Shell 'Внимательней. Microsoft Shell, должен быть определён раньше чем Microsoft ScrRun
    Dim pt As Folder
    Set sh = CreateObject("shell.application")
    Set pt = sh.BrowseForFolder(hWnd, "  Выберите папку  -  ОТКУДА",  0 )
    If pt Is Nothing Then
    Else
        Me.OTKUDA = pt.Items.Item.Path
    End If
    Me.OTKUDA.SetFocus
End Sub
...
Рейтинг: 0 / 0
18.10.2007, 09:54
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877152
detail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
detail
Участник
Worobjoff: спасибо, заработало! Библиотека - Microsoft common dialog control 6.0 (comdlg32.ocx)

klen_: я так тоже могу, суть в том чтобы вынести код, повторяющийся для нескольких кнопок.
...
Рейтинг: 0 / 0
18.10.2007, 10:51
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877168
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
а если сделать массив элементов и текстбоксов и кнопок?
тогда на все элементы всего одна процедура будет


I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
18.10.2007, 10:54
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877413
detail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
detail
Участник
Да, хотелось бы сделать так. Где можно прочитать пример?
...
Рейтинг: 0 / 0
18.10.2007, 12:03
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877424
detail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
detail
Участник
Ещё одна особенность - эти пути к папкам сохраняются в таблице настроек ("пресетов"). Если форма будет генериться при загрузке, и я на ходу пишу свойство "данные" поля, оно нормально будет работать?
...
Рейтинг: 0 / 0
18.10.2007, 12:05
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877478
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
detailДа, хотелось бы сделать так. Где можно прочитать пример?

назначить всем элементам (к примеру текстбокс) одно имя
в результате в св-вах объекта можно будет проставить его индекс и от него плясать

пример выложить не могу, т.к у меня нет просто под рукой Васика. :(



I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
18.10.2007, 12:19
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877508
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
detailсуть в том чтобы вынести код, повторяющийся для нескольких кнопок.ещё вариантик, создать функцию в отдельном модуле
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub browseErp_Click()
    Me.OTKUDA = BrowseDir(Me.OTKUDA, "Выберите папку  -  ОТКУДА")
    Me.OTKUDA.SetFocus
End Sub

' Модуль1
Public Function BrowseDir(ByVal pt_OLD As String, ByVal msg As String) As String
    Dim pt As Folder
    Dim sh As New Shell
    Set sh = CreateObject("shell.application")
    Set pt = sh.BrowseForFolder(hWnd, msg,  0 )
    If pt Is Nothing Then
        BrowseDir = pt_OLD
    Else
        BrowseDir = pt.Items.Item.Path
    End If
End Function
только, я не знаю как открыть прежнюю папку, используя pt_OLD
...
Рейтинг: 0 / 0
18.10.2007, 12:24
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877662
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
Есть два способа "вынести повторяющийся код за скобки":
1) Процедурный стиль - создать глобальную процедуру и обращаться к ней передавая все нужные параметры.
2) Создать класс со всеми нужными полями и размещать в коде экземпляры этого класса, а они будут рабоать как бы "сами по себе". В данном случае этот вариант - создать UserControl на котором поля - текстбокс, кнопка, диалог_выбора_файла. Отдельные поля отдельных класса (изер-контрола) могут ссылаться и на одни единственный объект - например диалог_выбора_файла может быть общий для всех.

Второй путь требует кой-чему подучиться, но это основное направление в котором развиваются современные языки программирования.
...
Рейтинг: 0 / 0
18.10.2007, 12:56
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34877675
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Worobjoff
Участник
WorobjoffОтдельные поля отдельных класса (изер-контрола) могут ссылаться и на одни единственный объект - например диалог_выбора_файла может быть общий для всех.
Читать как

Отдельные поля класса (изер-контрола) могут ссылаться и на один единственный объект. Например диалог_выбора_файла может быть общий для всех.
...
Рейтинг: 0 / 0
18.10.2007, 12:57
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34878001
detail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
detail
Участник
klen_ detailсуть в том чтобы вынести код, повторяющийся для нескольких кнопок.ещё вариантик, создать функцию в отдельном модуле
Вы читали код в первом сообщеии? Я, собственно, по сути то же самое и написал.
...
Рейтинг: 0 / 0
18.10.2007, 14:01
| Ответить | Цитировать | Написать  
Передать в функцию ссылку на элемент формы
    #34878172
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
согласен
суть одинакова
...
Рейтинг: 0 / 0
18.10.2007, 14:43
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Передать в функцию ссылку на элемент формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34877662&tid=2163236]:
 0ms
get settings:
 6ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 50ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 217ms
total:  331ms
созд. / загр.: 331ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]