Visual
Basic - Советы
[Файлы]
Как проигрывать файлы любого формата
Как встроить в форму существующий файл Еxcel
Как автоматически создавать файлы
Сергей Сорокин
Как проигрывать файлы любого формата
'объявляем в разделе формы General Declarations
'следующую API-функцию:
Private Declare Function
mciExecute Lib
"winmm.dll" _
(ByVal lpstrCommand As
String) As Long
Private Sub Command2_Click() 'чтобы
воспроизвести файл
Call
mciExecute("play d:\SilentCikle\05.mp3")
End Sub
Private Sub
Command1_Click() 'чтобы закрыть файл
Call
mciExecute("close d:\SilentCikle\05.mp3")
End Sub
Назад
Андей Туманов
Как лучше встроить в мою форму существующий файл Еxcel ? Закрывать,
открывать, работать с VBA.
Встроить в форму существующий файл Excel можно многими способами - всё
зависит то того, как Вы хотите видеть этот файл на своей форме? Поскольку
точно это не описано, то я понимаю, что содержимое файла должно отображаться
на экране и при желании редактироваться. Сделать это очень просто с помощью
объекта OLE:
1.Создаём стандартную форму.
2.На ToolBox'e выбираем инструмент OLE и создаём окно на форме.
3.Как только Вы отпустите мышку, тут же появится диалоговое окно "Insert
Object" (Ввести объект).
4.Слева выбираем CheckBox "Create from file" (Создать из файла) и выбирете
нужный файл. Настоятельно рекомендую создать резеpвную
копию вашего XLS-файла.
5.Если Вы хотели бы видеть в окне весь файл, то в свойствах окна OLE1
свойство SizeMode установите равным 2 (AutoSize).
6.Это всё! Чтобы активизировать таблицу, кликните на неё два раза. На
форме появится меню, позволяющее редактировать файл.
7. Чтобы сохранить внесённые изменения создайте командную кнопку. Переименуйте
имя кнопки Command1 в cmdSaveToFile
Private Sub cmdSaveToFile_Click()
'открываем
файл, как двоичный
Open OLE1.SourceDoc
For Binary As #1
'сохраняем в файл
OLE1.SaveToFile
1
'закрываем файл
Close
#1
End Sub
А в событие Form_Load нужно вписать следующий код, чтобы при загрузке
формы файл загружался в созданный OLE-контейнер:
Private Sub Form_Load()
'открываем
файл, как двоичный
Open
OLE1.SourceDoc For
Binary As #1
'считываем мз файла
OLE1.ReadFromFile 1
'закрываем файл
Close #1
End Sub
Важно: при применении следующих процедур формат XLS-файла будет изменён
и Вы не сможете больше открыть и редактировать его с помощью приложения
Excel, а только с помощью вашей программы!
Могу также предложить второй способ использования существующего файла
Excel в своей форме:
1.Создаём стандартную форму.
2.На ToolBox'e выбираем инструмент OLE и создаём окно на форме.
3.Как только Вы отпустите мышку, тут же появится диалоговое окно "Insert
Object" (Ввести объект).
4.Слева выбираем CheckBox "Create from file" (Создать из файла)и выбирете
нужный файл, но не кликайте на ОК!
5.Теперь следует выбрать CheckBox либо "Link" (Ярлык), либо "Display As
Icon" (Отображать как символ). При выборе "Link" в окне OLE будет отображаться
содержание файла и при двойном клике будет открываться желаемый файл как
обычно - через Excel. При выборе "Display As Icon" на вашей форме будет
также ярлык к файлу, но в виде иконки.
6.Чтобы при загрузке отображалось каждый раз новое содержания файла в
событие Form_Load введите:
Private Sub Form_Load()
OLE1.Update
End Sub
Назад
Serg
Необходимо создавать автоматом каждый день log-file типа: 20000102.log
1.Установите таймер, интервал 1000.
2. В таймер пишите:
If Time = "00:00:00"
Then ' если Вы в Америке,
то строка
'должна быть "0:00:00 AM"
Open
Format(Date; "yyyymmdd") & ".log" For
Output As #1
Print
#1, 'теперь печатаете в лог всё, что хотите...
Close
End If
Назад
На
главную Назад
к списку
|