На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
Дорогие друзья! Поздравляем вас с днём Победы!
msm.ru
Модераторы: SCINER, B.V.
  
    > Пару Факов
      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
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0184 ]   [ 16 queries used ]   [ Generated: 12.05.24, 14:52 GMT ]