Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 178.


VBNet VBMania
Голосование:



Рассылки Subscribe.Ru
VB.NET-World
Новости сайта IgorykSoft и советы по программированию
DanSoft о Visual Basic
Visual Basic.NET Уроки.

Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • VB по русски
  • MDesign
  • IgorykSoft
  • DanSoft
  • Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Новый выпуск!
    Читайте!


    Содержание выпуска




    Книги

    Переход на VB .NET. Стратегии, концепции, код (цена ~ 158 руб.)

    Эта книга была задумана как одна из первых книг о.NET, которая ознакомит читателя с основными идеями новой архитектуры и подготовит его к знакомству с более детальной литературой, например документацией Microsoft и ее толкованиями, которая неизбежно появится на рынке. Она поможет вам взглянуть на эту технологию с позиций ваших собственных рабочих планов и быстро освоить те концепции, которые покажутся необычными для большинства прогр...

    Автор(ы): Дан Эпплман, Издательство: Питер, 2002 г.


    Программирование на VB.NET. Учебный курс (цена ~ 119 руб.)

    Эта книга является вводным курсом по изучению языка программирования Visual Basic .NET. Даны основные принципы объектно-ориентированного программирования в контексте языка VB .NET, поскольку без хорошей подготовки в этой области невозможно в полной мере пользоваться всеми преимуществами VB .NET.
    Изложены азы всех аспектов языка, которыми должен владеть любой профессиональный разработчик VB .NET

    Автор(ы): Г. Корнелл, Дж. Моррисон, Издательство: Питер, 2002 г.


    VB.NET для разработчиков (цена ~ 125 руб.)

    Основная задача книги - быстро ознакомить разработчиков Visual Basic с изменениями в .NET Framework. Программисты, использующие Java, C++, Delphi или другие инструменты разработки приложений и интересующиеся Visual Basic или технологией .NET Framework, также найдут эту книгу полезной. Хотя книга посвящена Visual Basic.NET, ее основная цель - продемонстрировать взаимодействие Visual Basic и ...

    Автор(ы): Кит Франклин, Издательство: Вильямс, 2002 г.




    Остальные книги о VB можно найти
    здесь.

    наверх


    Citycat by Email

       Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
       Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

    наверх


    Новости сайта VBNet

    Дата: 14.07.2003 10:43 | Раздел: Примеры кода | Автор: Юмашин Алексей

    ListControls - Вывод списка всех элементов управления формы в дерево TreeView, с показом иерархии вложенности контейнеров и поэлементной развёрткой массивов ЭУ. Проект требует библиотеку MSCOMCTL.OCX. Это просто пример; на его базе несложно сделать ActiveX контрол с методом PrintTree - довольно часто разработчику полезно видеть "дерево" своей формы перед глазами.

    Дата: 13.07.2003 11:02 | Раздел: Примеры кода | Автор: Кузнецов А. В.

    Speech - Программа конвертирует текст в голос при установленных движках.

    Дата: 12.07.2003 08:48 | Раздел: Примеры кода | Автор: birkoff

    3D-куб с текстурой - Вращающийся куб на форме с одной текстурированной стороной. Сделано при помощи SetPixel и двоичного доступа к bmp-файлу.

    Дата: 11.07.2003 10:59 | Раздел: Примеры кода | Автор: Сурменок Павел

    ColorsConvert - Пример написан на VB6. Он показывает, как конвертировать цвета из одной системы в другую (RGB, YUV, YIQ, CMY, CMYK). А также разложение цвета из шестнадцатеричного или десятичного представления на составляющие.

    Дата: 10.07.2003 10:59 | Раздел: Примеры кода | Автор: Сурменок Павел

    Mail - Пример отправки почты в VB .NET путём непосредственного общения с SMTP-сервером. Конечно, проще использовать встроенные средства отправки почты, но они требуют наличия в системе сервиса SMTP, которого у пользователя может не быть (например, если у него Win 9x/ME). К тому же этот пример поможет вам освоить работу в сети в VB .NET.

    Дата: 09.07.2003 10:59 | Раздел: Примеры кода | Автор: Сурменок Павел

    WinMail - Пример отправки почты из VB .NET (Windows-приложение). Используются классы из пространства имён System.Web.Mail.

    Дата: 08.07.2003 10:59 | Раздел: Примеры кода | Автор: Сурменок Павел

    AgentSample - Пример использования технологии MS Agent в VB .NET.



    Последние 20 тем форума на VBNet.Ru:

    10:25 / 15 июл.  Правильное использование ADODC | Хитов: 4 |  Ответов: 1
    09:54 / 15 июл.  Обновление msado15.dll | Хитов: 5 |  Ответов: 1
    09:31 / 15 июл.  Как в ListBox добавить картинку ? | Хитов: 7 |  Ответов: 0
    06:06 / 15 июл.  Как преобразовать дату к другому часовому поясу? | Хитов: 10 |  Ответов: 0
    06:05 / 15 июл.  Буфер обмАна | Хитов: 14 |  Ответов: 0
    05:56 / 15 июл.  Админу. | Хитов: 16 |  Ответов: 1
    01:47 / 15 июл.  Учёт траффика | Хитов: 21 |  Ответов: 5
    23:57 / 14 июл.  CInt i CLng | Хитов: 19 |  Ответов: 2
    22:53 / 14 июл.  True DBGrid 8 | Хитов: 19 |  Ответов: 1
    19:42 / 14 июл.  CPL | Хитов: 17 |  Ответов: 0
    19:03 / 14 июл.  Отправка SMS через VB | Хитов: 22 |  Ответов: 4
    19:00 / 14 июл.  как убрать контекстное меню? | Хитов: 32 |  Ответов: 5
    18:36 / 14 июл.  Защита базы данных | Хитов: 23 |  Ответов: 4
    17:56 / 14 июл.  Принтер | Хитов: 17 |  Ответов: 0
    17:18 / 14 июл.  Что такое hwnd? | Хитов: 29 |  Ответов: 2
    17:16 / 14 июл.  Если у меня известен номер символа в Acii... | Хитов: 29 |  Ответов: 2
    16:31 / 14 июл.  Админу | Хитов: 27 |  Ответов: 1
    15:30 / 14 июл.  реестр | Хитов: 18 |  Ответов: 1
    15:26 / 14 июл.  GETOBJECT & CREATEOBJECT! | Хитов: 26 |  Ответов: 7
    14:58 / 14 июл.  ProgressBar | Хитов: 19 |  Ответов: 0


    Последние поступления в Библиотеку кодов:



    Новости от VBNet-чиков!:



    наверх


    Новости сайта VBMania



    наверх


    Новости сайта Азбука VB



    наверх


    Новости сайта MSDN

    • Конференция Professional Developers Conference 2003 — регистрация началась
    • Устранение уязвимости в системе безопасности для IBuySpy Portal и Portal Starter Kit (EN)
      Выпущено исправление для устранения уязвимости в системе безопасности для: любой версии примера VB.NET IBuySpy Portal, настроенного для использования аутентификации через html формы, любой версии примера VB.NET Portal Starter Kit, настроенного для использования аутентификации через html формы, версий примера C# IBuySpy Portal, выпущенных ранее ASP.NET 1, в особенности в составе бета-версий 1 и 2 ASP.NET, настроенного для использования аутентификации через html формы.
    • Представляем Power Toys для Visual Studio .NET 2003 (EN)
      Ознакомьтесь с новой коллекцией замечательных служебных программ и надстроек, разработанных корпорацией Microsoft. Они позволят вам улучшить свою работу в среде Visual Studio .NET 2003.
    • Загрузите новый пакет SDK для компьютеров Pocket PC на базе Windows Mobile 2003 (EN)
      Возможность создания приложений для компьютеров Pocket PC на базе Windows Mobile 2003 с использованием Microsoft Windows .NET Compact Framework, Windows CE .NET 4.2 и новых программных интерфейсов Pocket PC, доступных в пакете Pocket PC 2003 SDK.
    • Бета-тестирование Reporting Services (EN)
      Microsoft SQL Server 2000 Reporting Services — новая, полномасштабная серверная платформа для создания и доставки традиционных (бумажных) и интерактивных отчетов. Мы принимаем заявки на участие в тестировании бета-версии продукта, выпуск которой запланирован на осень 2003 года.


    наверх


    Новости сайта GotdotNet

    • 14.07.2003 - Quake II .NET
      В июле 2003, компания Vertigo Software, Inc. выпустила Quake II .NET, портировав свой движок с C на Visual C++ с .NET расширениями.
    • 04.07.2003 - Получи evaluation версии Microsoft Windows Server 2003 и Visual Studio .NET 2003!
      В Internet магазине Ozon Вы можете оформить доставку evaluation версий Microsoft Windows Server 2003 и Visual Studio .NET 2003
    • 02.07.2003 - Подведены итоги мастер-классов "Введение в C#"
      По окончании 4х мастер классов "Введение в C#" можно подвести краткие итоги и рассказать о планах на будущее. Прежде всего, хочется выразить признательность и благодарность как Мастерам из Высшей Школы Программирования так и участникам Мастерам классов.


    Новые статьи:



    наверх


    Новости сайта dotSite

    Новые статьи:



    Новые примеры:



    наверх


    Один момент из жизни форума: реестр в .NET

    Вопрос:
    Автор вопроса: avarch_nik

       В VB 6.0 я сохранял пользовательские установки в реестре командой SaveSetting и считывал их GetSetting. Как решается эта проблема в VB .NET ?


    Ответы:

    Атор: ШевТ
       Используй Microsoft.Windows.Registry для работы с реестром.

    Атор: Павел
       SetSetting и GetSetting в VB .NET тоже работают.



    наверх


    Доска объявлений

       Ищу телеработу.

    • Переводы: английский, украинский, русский.
    • Cipper программист.
    • Assembler программист.
    • PIC разработчик
    • композитор
    • Прогрессивные стили
    • 3D анимация
    • GIF анимация
    Антон Лозовский.

    наверх


    Мои программы

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

    Авторы: Шатрыкин Иван и Павел Сурменок.

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:


    Автор вопроса: 001

    Ответ ожидается по этому адресу

       Имеется проблема следующая: я создал проект IIS Application, но как его разместить в Интернете? Во что он компилится? Где и как его проверить, кроме VB6?


    Автор вопроса: .::neo::.

    Ответ ожидается по этому адресу

       Вопрос по .NET, использую MSAgent.
    А как отловить, что анимация завешина? Знаю, что для этого надо использовать событие RequestComplete, но что-то не получается...


    Автор вопроса: Владимир

    Ответ ожидается по этому адресу

       Я работаю с ASP. Как сделать так, чтобы на странице выводились из базы данных не все поля, а например 5. Чтобы внизу страницы соотвественно появлялись вот такие штуки, например: [1][2][3][5][6][7][8][9].И если кликнуть на 3, то соответсвенно выводятся с 11 по 15 статью.


    Автор вопроса: 108vadim@mail.ru

    Ответ ожидается по этому адресу

       Есть три запроса , как из них собрать один запрос?

      запрос: qBal_Chet

    SELECT Clients.id_Clients, Clients.ClientName, Sum([Kol-vo]*[Cost]) AS ChetSum
    FROM (CheetToClient LEFT JOIN CheetToClient_tovars ON CheetToClient.id_chet = CheetToClient_tovars.id_chet) RIGHT JOIN Clients ON CheetToClient.id_Clients = Clients.id_Clients
    GROUP BY Clients.id_Clients, Clients.ClientName

      запрос:qBal_Plat

    SELECT Clients.id_Clients, Sum(PlatFromClient.PlatSum) AS [Sum-PlatSum]
    FROM Clients LEFT JOIN PlatFromClient ON Clients.id_Clients = PlatFromClient.id_Clients
    GROUP BY Clients.id_Clients

      Запрос: Собирающий два предыдущих

    SELECT Clients.ClientName, qBal_Chet.ChetSum, qBal_Plat.[Sum-PlatSum], [ChetSum]-[Sum-PlatSum] AS Zadoljennost
    FROM (qBal_Chet LEFT JOIN qBal_Plat ON qBal_Chet.id_Clients = qBal_Plat.id_Clients) RIGHT JOIN Clients ON qBal_Chet.id_Clients = Clients.id_Clients;


    Автор вопроса: efimov_oleg

    Ответ ожидается по этому адресу

       Как вызвать при печати какого-либо текста окно настроек принтера?


    Автор вопроса: Rex

    Ответ ожидается по этому адресу

       Как можно читать файлы побайтно, т.е так, как это делает Artmoney 5.43, не в виде текста, а в чиловом (1,2,3,4 байтном) виде?


    Автор вопроса: Игорь

    Ответ ожидается по этому адресу

       Кто делал для своей программы контекстно-зависимую HTML-помощь? Как привязать готовый CHM-файл к различным формам и элементам управления программы, используя свойство HelpContextID, чтобы получить действительно контекстно-зависимую помощь? А то в любом месте прграммы при нажатии F1 выскакивает окошко с первой страницей файла помощи ...


    Автор вопроса: Саша

    Ответ ожидается по этому адресу

       Как узнать закрыт или открыт лоток. Нужен случий, когда два CD-ROM. Как закрыть один из них?


    Автор вопроса: Вячеслав

    Ответ ожидается по этому адресу

       Подскажите, как можно проанализировать имена файлов. Поясню, есть каталог в котором накапливаются файлы, типа VIP(номер).rtf, где номер - это порядковый трёхзначный номер файла. Программа должна анализировать номера файлов и убеждаться, что они идут последовательно (001, 002, 003 ...), т. е. пропусков нет. Отсчёт не обязательно начнётся с 001. Может, например с 653, 654, 656, ...


    Автор вопроса: Дмитрий

    Ответ ожидается по этому адресу

       Как прописать программу в автозагрузку?


    Автор вопроса: Генадий

    Ответ ожидается по этому адресу

       Только начал изучать VB6. Стоит ли вместо VB6 сразу перейти к VB .NET?


    Автор вопроса: KB

    Ответ ожидается по этому адресу

       Как сделать форму как в программах The Bat, FlashGet и др. А именно, чтобы было несколько окон, размеры которых зависят друг от друга и изменяются перемещением перегородок между ними.


    Автор вопроса: Taras Prikhodko

    Ответ ожидается по этому адресу

       Как, зупустив дос-команду из VB, получить результат обратно в VB, чтобы прога ожидала этого рузультата и только после продолжала выполнение?


    Автор вопроса: afb

    Ответ ожидается по этому адресу

       Необходимо загнать данные из файла

    46 49 50 51 _
      52 53 54 55 _
      56 57 48 _
    49 50 51 _
    52 53 54 _
      55 56 57 _
    48 81 87 _

      в listbox. Пишу так:
      
    Dim nl As Integer
    Dim ks As Integer
      
    Private Sub Command1_Click()
    Dim txt
    Dim FN As Integer
    FN = FreeFile
    Dim FName As String
    FName = "C:\file0.txt"
    Open FName For Input As #FN
    txt = Input(LOF(FN), #FN)
    Close #FN
      
    For n = 1 To Len(txt)
      ks = ks + 1
         If Mid$(txt, n, 1) = "_" Then
           nl = nl + 1:
           List1.AddItem (Mid$(txt, n - ks, ks)), nl: ks = 0
         End If
      Next n
    End Sub
      
    Private Sub Form_Load()
    nl = -1
    ks = 0
    End Sub

    Пишет "недопустимый вызов процедуры" в

    List1.AddItem (Mid$(txt, n - ks, ks)), nl: ks = 0


    Автор вопроса: Максим

    Ответ ожидается по этому адресу

       Вот что у меня есть:

    Private Sub Command1_Click()
    On Error GoTo метка
    MkDir ("c:\Графики")
    метка:
    SavePicture Picture1.Image, "c:\Графики\1.bmp"
    End Sub

    А как сделать, чтобы при нажатии на кнопку график сохранялся под новым именем? (2.bmp, 3.bmp и т.д.)


    Автор вопроса: Alai

    Ответ ожидается по этому адресу

       Необходимо вывести информацию из RecordSet-a, полученную после выполнения запроса, в файл, желательно в *.txt или в *.doc, причем данные необходимо вывести в табличном виде (как в Grid). Сам сделал вывод в Word, но работает очень долго. Посоветуйте, как решить проблему. Важно, чтобы вывод отрабатывал как можно быстрее.




    Ответы:


    Вопрос:

       Я чего-то нахимичил с VB, в общем в коде программы вместо русского шрифта какой-то непонятный. Как сделать обратно?

    Ответ:

    Автор ответа: .::neo::.

    У тебя сбились настройки:
    Tools-Options-вкладка Editor Format-и ставь Font "Courier New CYR"
    ...вот так вот!



    Ответ:

    Автор ответа: Артем Кривокрисенко

    Просто он использует некириллический шрифт. Лезешь в
    Tools -> Options -> Editor Format -> Font.
    Туда поставь кириллический шрифт (можно Courier CYR).



    Ответ:

    Автор ответа: vmv

    Это не химия..., а не понимание владельцем компьютера, что в программе есть панель настроек в т.ч. и шрифта.
    -Инструменты - Параметры - Еditor format - Font(например:) Courier New Cyr



    Ответ:

    Автор ответа: Vladimir [PRC]

    Tools->Options...->Editor Format->Font:
    и выбираешь новый шрифт (лучше не пропорциональный, типа Courier New Cyr или MS Sans Serif)



    Ответ:

    Автор ответа: Mr. Holy Deer

    Зайди в
    Tools -> Options -> Editor Format
    Там выстави шрифт, поддерживающий русскую кодировку.


    Вопрос:

       Как средствами VB сделать файл справки со своим содержимым? Можно ли сделать этот файл справки как .chm - файл?

    Ответ:

    Автор ответа: .::neo::.

    Кажись, я это видел где-то на www.relib.ru, могу ошибаться!



    Ответ:

    Автор ответа: Артем Кривокрисенко

    .chm файл поможет сделать программа Html Help Workshop (производства Microsoft) - можно скачать с их сайта бесплатно.



    Ответ:

    Автор ответа: vmv

    Сделать-то не сложно. Но с первого раза не получиться...

    Chm4You! 1.2.1 < http://www.softodrom.ru/get.php?id=4136> Компилятор HTML и декомпилятор CHM файлов. Кроме этого, есть возможность индексации каталогов, содержащих web-страницы

    htm2chm 3.0.1 Программа позволяет преобразовывать как отдельные HTML страницы с рисунками, так и целые сайты, например, скачанные offline браузерами, в один CHM файл (открывается стандартными средствами Windows)


    Вопрос:

       А где можно увидеть рабочий пример Чата, типа клиент-клиент?

    Ответ:

    Автор ответа: Максим

    На VBNET.RU.


    Вопрос:

       Для моего редактора тестов неожиданно потребовалась распечатка результатов. В связи с этим возникла парочка вопросов:

    1. Как можно создать, наполнить и сохранить WORD'овский документ(*.doc), со всяческими прибамбасами касаемо текста (а, если короче, то произвести "печать в файл")?
    2. Как вывести данные с формы на принтер, при этом нужно определить поля страницы, расположение текста на странице, форматирование и т.п. Можно ли это сделать обойдя CommonDialog?

    Ответ:

    Автор ответа: Константин

    Твоя проблема по поводу DBGrid решается в свойствах этой сетки. Щелкаешь на форме по сетки правой кл. мышки и из контексного меню выбираешь свойства. В форме свойств DBGrid на одной из вкладок есть свойство, определяющее ширину столбца. К этому свойству можно обратиться и из програмного кода.


    Вопрос:

       Расскажите, пожалуйста, поподробнее про сжатие БД программно.

    Ответ:

    Автор ответа: Mind Engine

    Поставь ссылку на DAO библиотеку - у меня она здесь: C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll:

    Dim bas As Object, fs As Object, namos as String, tempes as String,
    src as string

    namos = "c:\test.mdb"

       Set fs = CreateObject("Scripting.FileSystemObject")
       Set bas = OpenDatabase(namos): tempes = namos & ".1": src = bas.Name

      fs.CopyFile src, tempes, True
      bas.Close
      fs.DeleteFile src
      DAO.DBEngine.CompactDatabase tempes, src
      fs.DeleteFile tempes

      set bas = nothing: set fs = nothing



    Ответ:

    Автор ответа: Vir

    Привожу вырезку из сайта VBNet
      
    Программное сжатие базы данных

    При работе с Базой Данных вы записываете, удаляете, редактируете свои данные и объем вашей БД постепенно растет. Остается он неизменным, даже если вы удалите все данные, т.к. удаленные записи машина Jet превращает в пробелы (грубо говоря). Для удаления этих пробелов время от времени проводят ''сжатие'' БД и она принемает оптимальный объем. Код приводится на примере БД Biblio.mdb

    'Закрываем БД
    Data1.Database.Close
    'Вызываем метод CompactDatabase объекта DBEngine
    'для сжатия, и сжимаем БД переименовывая ее
    DBEngine.CompactDatabase "c:\biblio.mdb", "c:\new.mdb"
    'Уничтоваем старую БД
    Kill "c:\biblio.mdb"
    'Присваиваем полученной, 'сжатой' БД
    'ее прежнее имя
    Dim OldDB
    Dim NewDB
    OldDB = "c:\new.mdb"
    NewDB = "c:\biblio.mdb"
    Name OldDB As NewDB
    'Источник: http://www.relib.com/code.asp?id=402


    Вопрос:

       Как "заблокировать" рабочий стол, т.е. если пользователь будет нажимать на любые места на экране, то ничего происходить не будет, но форма (программа) будет полностью рабочая?

    Ответ:

    Автор ответа: Максим

    Архив форума vbnet.ru
    Дата: 18.03.2002 16:21:53

    Говорят есть такая API функция - BlockInput. Вроде бы у нее только один параметр -True или False. Но нигде в хелпах найти такую не удалось, в APITextViewer'e тоже. Сконструировали описание сами. Написали програму. Результат: блокирует действительно все намертво (кроме Alt-Tab и Ctrl+Alt+Del, но с этим можно бороться), клавиатура и мышь не работают. Но при некотором событии (вставили электронный ключ) хотелось бы все разблокировать. Событие корректно отлавливается, но строчка BLockInput(False) никакого ощутимого эффекта не дает. Може есть какие-нибудь тонкости?


    Вопрос:

       Какой контрол, где есть прогресс бар, идёт вместе с Windows?

    Ответ:

    Автор ответа: vmv

        Прогресс бар ... вот уж точно где набита оскомина.
        Гораздо интересней и живее смотрятся анимированные gif-рисунки (в сети их полно) умело подобранные по теме (например, бегущий будильник - "время-бежит") или совсем просто - в текстовое поле периодически выводим что-то вроде "... начинаем ... грузим ... процесс идет успешно ... процесс идет к завершению ... всё !!! ".
        Главное состоит в следующем - пользователь должен знать, что в какой момент времени делается и отвлечь внимание на что-нибудь. Тогда 10 секунд загрузки не кажутся 10 минутами ...



    Ответ:

    Автор ответа: Mind Engine

    mscomctl.ocx - стандартный бар...


    Вопрос:

       Как создать свой dll для своей проги?

    Ответ:

    Автор ответа: vmv

        Встречный вопрос - неужто можно будет понять, как сделать dll, даже прочтя здесь десяток кратких ответов?
        Только вооружившись хорошей библией, терпением и упорством. Хотя для экпериментов с dll нужно быть готовым к переустановке Windows...



    Ответ:

    Автор ответа: HoodWin

    Просто создаёшь ActiveX Dll проект. А потом подключеешь его к обычному проекту через References.



    Ответ:

    Автор ответа: Mind Engine

    Открывая VB6, выбери в качестве нового проекта - ActiveX dll и начинай заполнять ее чем тебе кочется!


    Вопрос:

       1. Я испольяую базу данных Access, первоначальные таблицы я создал вручную, а можно ли программно создать таблицу в базе данных Access?
    2. Как можно сделать так чтобы системный шрифты отображались в элементе СomboList?

    Ответ:

    Автор ответа: Vao

    1.
    Процедура создает в БД таблицу с именем GetTestName.
    Перед обращением к процедуре коннект с БД уже установлен! Я передаю его через переменную Cnct.
    Test_Catalog - глобальная переменная(объявлена в модуле)
      
    Public Sub CreateNewTestTable(ByVal GetTestName As String, ByVal Cnct As ADODB.Connection)
    Dim iLoc As Integer
    Set Test_Catalog = New ADOX.Catalog
    Dim Test_Table As Table
    Set Test_Table = New Table
    Set Test_Catalog.ActiveConnection = Cnct

    Test_Table.Name = GetTestName
    Test_Table.ParentCatalog = Test_Catalog
    Test_Table.Columns.Append "number", adVarWChar, 14
    Test_Table.Columns.Append "question", adVarWChar, 255 'создаем столбец вопросов теста
    For iLoc = 1 To 4
         Test_Table.Columns.Append "answer" & iLoc, adVarWChar, 150 'создаем 4 столбца ответов
    Next iLoc
    Test_Table.Columns.Append "righth_answer", adVarWChar, 20 'создаем столбец номеров правильных ответов
    Test_Catalog.Tables.Append Test_Table

    Set Test_Catalog.ActiveConnection = Nothing'очищаем память
    Set Test_Catalog = Nothing
    Set Test_Table = Nothing
    End Sub

    В результате работы процедуры имеем в БД новую пустую таблицу, содержащую 7 столбцов (их имена стоят в " "), имеющих строковый тип (adVarWChar) и различную ширину (14-150). Подробнее прочитай в MSDN.
      
    2. Второй вопрос сформулирован слегка ... не очень. Но по-моему ты имел ввиду это:

    Dim m As Integer
    For m = 0 To Screen.FontCount - 1 'минус один, т.к. счёт идёт от нуля
           List1.AddItem Screen.Fonts(m) 'в List1 добавляем элемент массива Screen.Fonts cоответсвующий числу m
    Next m


    Вопрос:

       Не могу вызвать Функцию АРI "ExitWindows". Подскажите, как это сделать.

    Ответ:

    Автор ответа: .::neo::.

    Объявление:
    ~~~~~~~~~
       VB 6.0
       Private Declare Function ExitWindows Lib "user32.dll" ( _
           ByVal dwReserved As Long, _
           ByVal uReturnCode As Long) As Long
       .NET
       Private Declare Function ExitWindows Lib "user32.dll" ( _
           ByVal dwReserved As Int32, _
           ByVal uReturnCode As Int32) As Int32
       Константы
    Private Const EWX_FORCE As Long = 4
    Private Const EWX_LOGOFF As Long = 0
    Private Const EWX_POWEROFF As Long = &H8
    Private Const EWX_REBOOT As Long = 2
    Private Const EWX_SHUTDOWN As Long = 1

    Использование:
    ~~~~~~~~~~~
         ExitWindows EWX_REBOOT, 0



    Ответ:

    Автор ответа: Артем Кривокрисенко

    Твой вопрос очень похож на такой: "Не работает компьютер. Что делать. Спасибо."
    Нелохо было бы указать, что именно не получается.

    Вот объявление:

    Public Declare Function ExitWindows Lib "user32" Alias "ExitWindows" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long

    Вызывать примерно так:

    ExitWindows 0, 0

    Функция завершит сеанс текущего пользователя. Но комп не выключится и не перезагрузится. Чтоб сделать это нужно вызывать ExitWindowsEx.







    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх


    Выпуск подготовили:

    Сурменок Павел