Вопрос № 123508: Добрый день.
В VB6 при нажатии на кнопку должен показываться большой графический объект, проблема в том что этот объект не влезает на экран. Значит на пикчебоксе должны быть полосы прокрутки, но их там нет и картинка видна не вся. Может это долже...Вопрос № 123545: Помогите к проэкту прикрипить EXE фаил. Пробовала шел, но он не может найти фаил! Как взять фаил из текущей папки?...Вопрос № 123621: Здравствуйте!
Подскажите пример исходника для осуществления следующей задачи:
Есть локальная папка, в неё я скидываю файлы и папки. В 10.00, 13.00, 16.00 нужно из этой папки перемещать всё собранное на сетевую папку.
Спасибо.
..
Вопрос № 123.508
Добрый день.
В VB6 при нажатии на кнопку должен показываться большой графический объект, проблема в том что этот объект не влезает на экран. Значит на пикчебоксе должны быть полосы прокрутки, но их там нет и картинка видна не вся. Может это должен быть не пикчебокс, но в имедже тоже нет полос прокрути. Помогите пожалуйсто.
Отправлен: 17.02.2008, 13:37
Вопрос задала: CLov233 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Горбан Иван Фёдорович
Здравствуйте, CLov233! Предлагаю Вам такой вариант. В новом проекте добавьте следующие элементы управления: HScrollBar (имя HScroll), VScrollBar (имя VScroll), PictureBox (Pic), Frame, CommandButton (Комманда1). В окне кода добавьте код, который в приложении. Желаю удачи!
Приложение:
Ответ отправил: Горбан Иван Фёдорович (статус: 1-ый класс)
Ответ отправлен: 18.02.2008, 01:10
Вопрос № 123.545
Помогите к проэкту прикрипить EXE фаил. Пробовала шел, но он не может найти фаил! Как взять фаил из текущей папки?
Отправлен: 17.02.2008, 16:33
Вопрос задала: Alicka (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, Alicka!
Получить текущую папку, в которой находится исполняемая программа:
MsgBox App.Path
С Shell-ом та же история:
shell app.pth & "main.exe",vbnormalfocus
--------- Учиться никогда не поздно. Особенно программированию!
Здравствуйте!
Подскажите пример исходника для осуществления следующей задачи:
Есть локальная папка, в неё я скидываю файлы и папки. В 10.00, 13.00, 16.00 нужно из этой папки перемещать всё собранное на сетевую папку.
Спасибо.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Какаблишвили Игорь Валикович!
Вот Ваш код, как Вы просили. Но имейте ввиду, что если папка будет содержать вложенные папки, то код будет выглядеть немного подругому.
Sub kopy()
Do
If Time = "10:00:00" Or Time = "13:00:00" Or Time = "16:00:00" Then Exit Do
DoEvents
Loop
15
Путь = "C: emp"
Путь2 = "X: emp"
GoSub Fail
x = Dir(Путь, 16) '
x = Dir
Do While Not x = "" 'Находим первую папку
x = Dir 'Ищем следующую папку (вызвав функцию без аргументов)
If x = "" Then Exit Do
MkDir Путь2 + x + "" ' Создаём такую же папку
Путь = Путь + x + ""
Путь2 = Путь2 + x + ""
GoSub Fail 'Копируем файлы
RmDir Путь ' Удаляем папку
GoTo 15
Loop
Exit Sub
Fail:
x = Dir(Путь) 'Находим первый файл и записываем в переменную Х
If x = "" Then GoTo 5
FileCopy Путь + x, Путь2 + x 'Копируем его на сетевой диск
Kill Путь + x 'Удаляем файл
Do
x = Dir 'Ищем следующий файл (вызвав функцию без аргументов)
If x = "" Then Exit Do
FileCopy Путь + x, Путь2 + x 'Копируем его на сетевой диск
Kill Путь + x 'Удаляем файл
Loop While Not x = ""
5
Return
10 End Sub
--------- От каждого по способностям, каждому по труду
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Какаблишвили Игорь Валикович!
Прочтите http://ifolder.ru/4486094 - "VB для всех" hlp файл с примерами кода, автор Армен Мнацаканян.
Евгений.
