Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.142.97.235] |
|
Сообщ.
#1
,
|
|
|
1. Как сохранить текст в файл?
Для сохранения текста в файл используйте такой код: Open ПУТЬ_К_ФАЙЛУ for Output as #X Print #X, ТЕКСТ_КОТОРЫЙ_НУЖНО_СОХРАНИТЬ Close #X Здесь всесто X нужно поставить номер (от 1 до 255). Также можно использовать функцию FreeFile. Пример: Open "C:\Temp\VB.txt" for Output as #1 Print #1, "Visual Basic - самый лучший язык программирования!" Close #1 2. Как прочитать текст из файла? Для чтения текста из файла используйте такой код: Open ПУТЬ_К_ФАЙЛУ for Input as #X Input #X, StrPerem Close #X Представленная процедура прочитает первую строчку из файла и запишет в переменную StrPerem. Для чтения всего текста, как правило, используется такой код: Open ПУТЬ_К_ФАЙЛУ for Input as #X While not(EOF (X)) Input #X, StrTemp StrPerem = StrPerem & StrTemp Loop Close #X Здесь всесто X нужно поставить номер (от 1 до 255). Также можно использовать функцию FreeFile. 3. Как добавить, удалить элемент в списке (listbox)? Для добавления элемента в список используется метод AddItem. Пример: List1.AddItem "Меня добавили в список" Для удаления используется метод RemoveItem с номером элемента, который нужно удалить. Пример (удалит первый элемент в списке): List1.RemoveItem 0 4. Как использовать элементы DirListBox, FileListBox, DriveListBox ? Перечисленные элементы используются для навигации по диску. Например, для создания формы, в которой будет выбираться файл следует: Создать все 3 элемента. Затем обработать событие Change у DirListBox, вписав в него такой вот код: File1.Path = Dir1.Path Теперь обработайте событие Change у DriveListBox: Dir1.Path = Drive1.Drive Вот и всё! Теперь запустите проект и походите по каталогам и дискам. Кстати имя текущего выбранного файла в FileListBox содержится в св-ве filename. 5. Каким образом можно узнать какой элемент выбран в списке? Используйте свойство ListIndex. Пример: Form1.Caption = List1.ListIndex 6. Как программно загрузить картинку в PictureBox или Image? Делается это так: Obj.Picture = LoadPicture (ПУТЬ_К_ФАЙЛУ) Где Obj - имя PictureBox, Image или формы. Пример: Picture1.Picture = LoadPicture ("C:\Images\vblogo.jpg") 7. Можно ли в VB проиграть wav файл? Можно! В VB всё можно! С помощью API ф-ции sndPlaySound из библиотеки winmm.dll (windows multimedia). Вот её объявление: Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Пример: sndPlaySound "C:\youpath\vavchik.wav", 1 8. Как распечатать текст на принтере? В Visual Basic есть такой объект Printer. С его помощью с принтером можно делать почти всё, что угодно. Например, вам нужно распечатать текст, находящийся в текстовом поле Text1. Для этого: Printer.Print Text1.Text Printer.EndDoc 9. Как можно узнать текущее разрешение экрана? Используя свойства Height и Width объекта Screen. Пример: Form1.Caption = Screen.Height ' отобразится в твипах Form1.Caption = Screen.Height / Screen.TwipsPerPixelY ' отобразится в пикселах 10. Можно ли узнать где находится exe файл запущенной программы? Можно, использовав объект App. Кстати в нём хранятся и другая полезная инфа. Пример: Form1.Caption = App.Path ' на капшне отобразится путь, где находится запущенный exe |