Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Visual Basic - Трюки и Хитрости, советы и ответы на вопросы


Служба Рассылок Городского Кота
VB Хитрости - советы и ответы на вопросы

Здравствуйте, уважаемые читатели.

1. В довесок, к советам по работе с реестром. На вопрос - как быстро и без особых забот записать в реестр много ключей сразу (например вам хочется сразу запомнить многочистлденные настройки софта и впоследствии их использовать) Отвечаю :

С помошью редактора реестра создайте файл (import) и сохраните его в фолдере с программой. после этого для внесения сохранной информации в реестр ( без лишних вопросов пользователю)

  Dim strFile As String
  strFile = App.Path & "\ИмяЭтогоФайла.reg"
  If Len(Dir$(strFile)) > 1 Then
     lngRet = Shell("Regedit.exe /s " & strFile, vbNormalFocus)
  End If 
 

2 Еще одна маленькая хитрость, именно хитрость - которая изредка может быть полезной в оформительских целях.
В некоторых ситуациях, при выводе строк на экран неплохо знать ширину этой строки не в абстрактном количестве символов, а в реальных пикселах или твипсах. ( Как вы знаете наиболее приятны глазу пропорциональные шрифты, в которых буква Щ и I имеют разную ширину.)

Конечно, узнать ширину любого символа можно через API , но можно исхитриться и сделать это проще. кладите на форму лэйбл, делайте cвойства
Visable = false
AutoSize = true
и заносите в него строку, после этого ширина лэйбла с небольшой поправкой на поля будет равна ширине строки.

3. Очень часто задаваемый вопрос - приложение не выгружается из памяти.
Такой же частый ответ - что-то из обьектов не выгружено. Если вы используете DAO для доступа к базе данных, то вам не повредит такой код


Private Sub Form_Unload(Cancel As Integer)

    On Error Resume Next

    Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset

    For Each ws In Workspaces
        For Each db In ws.Databases
            For Each rs In db.Recordsets
                rs.Close
                Set rs = Nothing
            Next
            db.Close
            Set db = Nothing
        Next
        ws.Close
        Set ws = Nothing
    Next
    '
End Sub




Кстати, раз уж пошел разговор о базах данных. Хочу представить вам одну из лучших перевеленных на русских книг по этому предмету.
Обработка баз данных на Visual Basic 6 (+ CD - ROM)
Почитайте, что пишут посетители моего сайта по поводу этой книги
Заказать книгу можно прямо здесь Она дороже, чем книжка по API , строкой ниже, но определенно того стоит.

Книга, весьма полезная для понимания работы с API. А учитывая ее смешную стоимость - 45 рублей.... Короче, рекомендую

В связи со сменой хостинга , в течении недели -10 дней мой сайт http://vbrussian.com может быть недоступен.

Хочу поставить в известность всех подписчиков этого листа - лист создается в html , а потом автоматом на Ситикоте из него создается текстовый вариант. Так что, если вы, по ошибке, подписались на текстовую версию - рекомендую изменить этот параметр, ведь за качество конвертации я не отвечаю, а создавать отдельную версию у меня не хватает времени. Сорри.

 

Рассылка, которая вам может пригодится:
"Русские документы" - самые свежие компьютерные статьи

Еженедельные анонсы компьютерных статей, появившихся на сайте "Русские документы"
Вся самая интересная информация: от программирования и хитростях операционных систем до безопасности и программных руководств. И все это - на русском языке !

Подписаться:

 

 

Успехов в программировании!

Борис Рудой

Автор сайта - Visual Basic на русском



http://subscribe.ru/
E-mail: ask@subscribe.ru

В избранное