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

VB Студия VB Line
Голосование:

Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты.

Subscribe.Ru увеличило максимальный размер рассылки до 100 кб. В связи с этим вопрос:
Какого размера Вы хотели бы получать рассылку?
Менее 20 кб
От 20 до 40 кб
От 40 до 60 кб
От 60 до 80 кб
Выше 80 кб


В какой день (дни) недели Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."?
Понедельник
Вторник
Среда
Четверг
Пятница
Суббота
Воскресение


С какой периодичностью Вы хотели бы получать рассылку "Visual Basic: новости сайтов, советы, примеры кодов."?
Каждый день
2 раза в неделю
Раз в неделю
Раз в две недели
Раз в месяц
Реже


Результаты голосования
Рассылки Subscribe.Ru
Новости сайта VBline и советы программистам
Мир программирования на Visual BASIC 5.0 и HTML.
Доска почёта:

Sergey Y. Tkachev
Кононенко Роман
Sergey Sapozhnikov
Sobic
Ссылки:

  • Улицы VB
  • Использование VB
  • VB Line
  • Азбука VB
  • VB на русском
  • Улицы VB
  • VB - шаг за шагом
  • Кирпичики VB
  • CообЧа VB
  • VB - мания
  • VB по русски
  • Snoozex Design
    		• Несколько слов от автора:

       В этом выпуске поставил описание системы Эксперт. Обязательно прочитайте.
    Читайте!


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

    О системе Эксперт
    - Привет, Серый.
    - Угу, привет. Ты проходи, садись, я щас, с функцией тут разберусь...
    - Да я на момент. Вопросец имеется.
    - Вопросец, вопросец... Так, тут переменная не объявлена... Вопросец... С вопросами в систему, к экспертам... А тут точку не поставил! Вот она где, соб-бака!!
    - Ты че, какая система? Ты о чем?
    - О! Все, работает... Чего ты говоришь?
    - Ты про каких это экспертов тут заикаешься?
    - А-а. А ты что, первый раз слышишь, что ли? Ты на СообЧа бывал?
    - Где?!!
    - Да вот, гляди. Щас соединимся... Во! http://soobcha.ru, зришь?
    - М-да... Занятно. Так я с вопросом к тебе...
    - А я вот и говорю: туда иди, в систему "Эксперт", там ответят.
    - Это чайники, что ли, ответят?
    - Не сомневайся, ответят. Там у них такое наворочено... Короче, ты по почте вопрос свой задаешь - и все:)))))) Больше не изволь беспокоиться, там они сами будут искать ответ на твой вопрос. А через некоторое время вывалят тебе на ящик не один, а несколько ответов. Пользуйся и радуйся:)
    - А чего это они там такие добрые да услужливые? У них чего, своих проблем нет? Сколько я должен платить за такое трогательное беспокойство?
    - Ну, это немного. Меньше, чем ты думаешь:) Тебе достаточно только подтвердить правильный ответ. Давишь на соответствующую ссылку, дескать, вот этот ответ мне понравился, помог, и я доволен. Просто пустое письмо засылаешь к ним, и вся оплата. А если хочешь у них экспертом стать, то пожалуйста, регистрируйся и отвечай на вопросы.
    - Кем? Экспертом?
    - А что? Что-то ты ведь знаешь, не вчера за комп сел.
    - А на фига мне это надо? Разбираться с чужими проблемами... У меня своих - хоть отбавляй...
    - Ага. Вот ты только что спрашивал: а сколько? И если уж ты со своими проблемами обращаешься к людям, то ведь надеешься, что тебе помогут. А сам-то что, влом, что ли, помочь кому-то? Да ладно! Тебя, вобщем-то, никто и не тянет, не заставляет. А вот те, кому интересно, кому не жаль поделиться, те там и работают. Я, между прочим, давно уже с ними.
    - В смысле, экспертом, что ли, заделался? И сколько тебе платят?
    - А ты не прикалывай. Там никто никому не платит. А вот конкурсы, между прочим, проводят, и не хилые. Представляешь, за лучший ответ дают бесплатно три месяца платного хостинга, да еще домен регистрируют. За просто так. А вот тебе, если ты задашь самый лучший вопрос, тоже приз может выгореть.
    - Это как: лучший? На который никто ответить, что ли, не сможет? Так я щас таких вопро...
    - Причем тут это? Просто ты, если вопрос пишешь к ним, так сподобься хоть запятые в нужных местах поставить, там, грамотно, короче, обрисуй свой трабл.
    - Ну ладно, въехал. Ты мне вот лучше помоги с моим траблом. Мой Фотошоп не хочет по русски работать...
    - Ха, так этот трабл там уже сколько раз появлялся. У них на сайте и ответ есть... Вот, любуйся: Заходим в редактор реестра (regedit.exe). Находим ключ HKEY_LOCAL_MACHINE\System\CurrentControlSet\control\Nls\Codepage В нем изменяем значение параметра 1252 с cp_1252.nls на cp_1251.nls. Перезагружаемся...
    - Понял... погоди, запишу...
    - Да чего записывать? Шагай домой, входи на сайт и копируй...
    - Да я ссылку запишу... Слушай, а как там в эту систему вопрос задать? Вообще, как она работает?
    - Так тут же, на сайте, все есть. А вообще, можешь по почте пустое письмо загнать на mailto:reply.infoexpert@soobcha.ru, и получишь всю необходимую инфу. А вообще, ты лучше в следующий раз с вопросами не ко мне, а туда. Может, я и отвечу там.
    - А не проше тебе здесь ответить?
    - Э-э-э... Там я баллы зарабатываю...
    - А это еще зачем?
    - Ладно, мотай. Дома почитаешь, все о них узнаешь. У меня тут халтурка... Давай, пока.
    - Пока. А как ты экспертом там зарегился?
    - Иди, иди! Инфу читай...

    наверх

    Новости сайта VB Студия

    • 30 ноября 2001 года - В разделе Утилиты появилась новая версия программы Crimson Help.

      Хочу сообщить ПРЕпреятнейшее известие!

      После продолжительного и напряженного труда над собой, первый on-line журнал о Visual Basic - “VB Мания” вновь открывает свои страницы. Мы изменились, мы повзрослели и созрели для настоящей качественной работы.

      Изменилось буквально все: дизайн, появились новые авторы, новые руководители, новые потрясные статьи, новые классные рубрики, новые сервисы (Моя мания - особенно интересная вещь, обратите внимание), новый адрес - http://www.vbmania.ru/ и многое многое другое, но мы не забыли и старое, самое лучшее осталось от прежнего сайта: новости с различных сайтах о VB, наша рассылка, поисковик по VB сайтам, форум.

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

      Заходите, смотрите, читайте мы всегда Вам рады.
      http://www.vbmania.ru/ - Первый on-line журнал о VB

    • 28 ноября 2001 года - Выложил новые примеры.
      Открыт новый раздел Юмор. В нём расположены анекдоты и юмористические рассказы на компьютерную тематику.
    • 25 ноября 2001 года - Выложил в раздел статьи 4 статьи о Winsock control.
    • 23 ноября 2001 года - Появился раздел книги. Там можно приобрести книги от магазина Колибри. По соглашению проекта СообЧа и магазина Колибри на все представленные в этом разделе книги предоставляется скидка в размере 5% от стоимости книги.


    наверх

    Новости сайта VB Line

       24 ноября 2001 г. Вы уже заметили небольшое изменение дизайна сайта? Так лучше? Предложения и замечания присылайте мне shatrykin@mail.ru. В разделе Примеры положил интересную работу Беляева Данилы, программа выводит список всех запущенных программ и может их "убивать". Там же, очень интересная DLL-ка с примером для работы с LPT портами. И еще, нашел в сети очень забавный пример: игра типа морского боя, принцип простой, плывет корабль, а Вы его ракетами... в общем играл я в нее и время кончилось, поэтому и обновлений маловато.
       12 ноября 2001 г. Решил, что Вам будет интересно узнать, кто сюда ходит и какова аудитория сайта. Все данные оформил в читаемом виде и положил сюда. Смотрите, читайте и изучайте. Конечно, немного, но все же статистика.
       11 ноября 2001 г. Ну вот, 7 ноября мне стукнуло 27 лет. Эх.. время. Ну да ладно, в Примеры положил интересную работу Андрея Перминова - добавление заголовка в обычное меню, думаю, что это будет интересно многим. Наконец-то появился новый совет, все наверное видели окна с недоступной кнопкой закрытия окна, а вот как это сделать, думаю, знают не все. Скажу сразу, что автор мне неизвестен, поэтому, если что, то пишите мне shatrykin@mail.ru. И, напоследок, хочу пожаловаться: что-то Вы мне маловато материала присылаете. Активнее надо быть!
       05 ноября 2001 г. Во-первых, я получил сертификат "Visual Basic Programmer" уровня Master от eCertification.com. Поздравления принимаются по прежнему адресу shatrykin@mail.ru.Во-вторых, на сайте есть одна "обновка". Stas(Sheff) Vorobiov прислал интересный пример игры с использованием DirectX.


    наверх

    Сумма прописью

    Автор     Конурин А. Ю.

     Public Function PropisChisla(A As String) As String
     Dim Rubli As String, Kop As String, i As Integer, D(3) As String
         If Len(A) < 3 Then GoTo Err_dlina
         i = InStr(A, ",")
         If i = 0 Then
             Rubli = A
             Kop = "00"
         Else
             Rubli = Left(A, i - 1)
             Kop = Right("0" + Mid(A, i + 1), 2)
         End If
         If Len(Rubli) > 9 Then
     Err_dlina:
             PropisChisla = "Слишком большое (маленькое) число"
             Exit Function
         End If
         If Rubli = "0" Then PropisChisla = "Ноль рублей": GoTo Kopeiki
         Select Case Len(Rubli)
             Case 1 To 3: D(1) = Rubli
             Case 4 To 6
                 D(1) = Right(Rubli, 3)
                 D(2) = Left(Rubli, Len(Rubli) - 3)
             Case 7 To 9
                 D(1) = Right(Rubli, 3)
                 D(2) = Mid(Rubli, Len(Rubli) - 5, 3)
                 D(3) = Left(Rubli, Len(Rubli) - 6)
         End Select
         If Val(D(3)) <> 0 Then
             Tmp = D(3)
             GoSub 10
             If Mid(Tmp, 2, 1) <> "1" Then
                 GoSub 20
                 Select Case Val(Right(Tmp, 1))
                     Case 1: PropisChisla = PropisChisla + " миллион"
                     Case 2 To 4: PropisChisla = PropisChisla + " миллиона"
                     Case Else: PropisChisla = PropisChisla + " миллионов"
                 End Select
             Else
                 PropisChisla = PropisChisla + " миллионов"
             End If
         End If
         If Val(D(2)) <> 0 Then
             Tmp = D(2)
             GoSub 10
             If Mid(Tmp, 2, 1) <> "1" Then
                 Select Case Val(Right(Tmp, 1))
                     Case 1: PropisChisla = PropisChisla + " одна"
                     Case 2: PropisChisla = PropisChisla + " две"
                     Case 3: PropisChisla = PropisChisla + " три"
                     Case 4: PropisChisla = PropisChisla + " четыре"
                     Case 5: PropisChisla = PropisChisla + " пять"
                     Case 6: PropisChisla = PropisChisla + " шесть"
                     Case 7: PropisChisla = PropisChisla + " семь"
                     Case 8: PropisChisla = PropisChisla + " восемь"
                     Case 9: PropisChisla = PropisChisla + " девять"
                 End Select
                 Select Case Val(Right(Tmp, 1))
                     Case 1: PropisChisla = PropisChisla + " тысяча"
                     Case 2 To 4: PropisChisla = PropisChisla + " тысячи"
                     Case Else: PropisChisla = PropisChisla + " тысяч"
                 End Select
             Else
                 PropisChisla = PropisChisla + " тысяч"
             End If
         End If
         Tmp = D(1)
         GoSub 10
         If Mid(Tmp, 2, 1) <> "1" Then
             GoSub 20
             Select Case Val(Right(Tmp, 1))
                 Case 1: PropisChisla = PropisChisla + " рубль"
                 Case 2 To 4: PropisChisla = PropisChisla + " рубля"
                 Case Else: PropisChisla = PropisChisla + " рублей"
             End Select
         Else
             PropisChisla = PropisChisla + " рублей"
         End If
     Kopeiki:
         PropisChisla = PropisChisla + " " + Kop
         If Left(Kop, 1) <> "1" Then
             Select Case Val(Right(Kop, 1))
                 Case 1: PropisChisla = PropisChisla + " копейка"
                 Case 2 To 4: PropisChisla = PropisChisla + " копейки"
                 Case Else: PropisChisla = PropisChisla + " копеек"
             End Select
         Else
             PropisChisla = PropisChisla + " копеек"
         End If
         PropisChisla = Trim(PropisChisla)
         i = InStr(PropisChisla, " ")
         PropisChisla = StrConv(Left(PropisChisla, i - 1), vbProperCase) _
             + Mid(PropisChisla, i)
         Exit Function
     10:
         Tmp = Right("00" + Tmp, 3)
         Select Case Val(Left(Tmp, 1))
             Case 1: PropisChisla = PropisChisla + " cто"
             Case 2: PropisChisla = PropisChisla + " двести"
             Case 3: PropisChisla = PropisChisla + " триста"
             Case 4: PropisChisla = PropisChisla + " четыреста"
             Case 5: PropisChisla = PropisChisla + " пятьсот"
             Case 6: PropisChisla = PropisChisla + " шестьсот"
             Case 7: PropisChisla = PropisChisla + " семьсот"
             Case 8: PropisChisla = PropisChisla + " восемьсот"
             Case 9: PropisChisla = PropisChisla + " девятьсот"
         End Select
         Select Case Val(Mid(Tmp, 2, 1))
             Case 1
                 Select Case Val(Right(Tmp, 1))
                     Case 0: PropisChisla = PropisChisla + " десять"
                     Case 1: PropisChisla = PropisChisla + " одиннадцать"
                     Case 2: PropisChisla = PropisChisla + " двенадцать"
                     Case 3: PropisChisla = PropisChisla + " тринадцать"
                     Case 4: PropisChisla = PropisChisla + " четырнадцать"
                     Case 5: PropisChisla = PropisChisla + " пятнадцать"
                     Case 6: PropisChisla = PropisChisla + " шестнадцать"
                     Case 7: PropisChisla = PropisChisla + " семнадцать"
                     Case 8: PropisChisla = PropisChisla + " восемнадцать"
                     Case 9: PropisChisla = PropisChisla + " девятнадцать"
                 End Select
             Case 2: PropisChisla = PropisChisla + " двадцать"
             Case 3: PropisChisla = PropisChisla + " тридцать"
             Case 4: PropisChisla = PropisChisla + " сорок"
             Case 5: PropisChisla = PropisChisla + " пятьдесят"
             Case 6: PropisChisla = PropisChisla + " шестьдесят"
             Case 7: PropisChisla = PropisChisla + " семдесят"
             Case 8: PropisChisla = PropisChisla + " восемдесят"
             Case 9: PropisChisla = PropisChisla + " девяносто"
         End Select
         Return
     20:
         Select Case Val(Right(Tmp, 1))
             Case 1: PropisChisla = PropisChisla + " один"
             Case 2: PropisChisla = PropisChisla + " два"
             Case 3: PropisChisla = PropisChisla + " три"
             Case 4: PropisChisla = PropisChisla + " четыре"
             Case 5: PropisChisla = PropisChisla + " пять"
             Case 6: PropisChisla = PropisChisla + " шесть"
             Case 7: PropisChisla = PropisChisla + " семь"
             Case 8: PropisChisla = PropisChisla + " восемь"
             Case 9: PropisChisla = PropisChisla + " девять"
         End Select
         Return
     End Function

    наверх

    Функция преобразования переменной типа Byte в двоичное число

    Function ByteToBin(ByVal ByteVal As Byte) As String
        Dim a As Integer
        Dim b As String
        Dim i As Integer
        Dim c As String
        Dim d As Integer
       
        a = CInt(ByteVal)
        Do While a <> 0
           If a / 2 = Int(a / 2) Then
              b = b & "0"
           Else
              b = b & "1"
           End If
           a = Int(a / 2)
        Loop
        d = 8 - Len(b)
        If d <> 0 Then
           For i = 1 To d
              b = b & "0"
           Next
        End If
        b = StrReverse(b)
        ByteToBin = b
    End Function

    наверх

    Аналог функции Split

    Функция Split появилась в VB6. Для пользователей VB5 и ниже функция, идентичная функции Split.

    Public Function MySplit(Expression As String, Splitter As String) As Variant
    Dim pos As Long
    Dim posit As Long
    Dim n As Long
    Dim temp As String
    Dim Split_() As String
    Dim dowas As Boolean
    pos = 1
    posit = InStr(pos, Expression, Splitter)
    Do While posit <> 0
    dowas = True
    n = n + 1
    temp = Mid$(Expression, pos, posit - pos)
    ReDim Preserve Split_(n + 1)
    Split_(n) = temp
    pos = posit + Len(Splitter)
    posit = InStr(pos, Expression, Splitter)
    Loop
    If dowas = True Then
        temp = Mid$(Expression, pos, Len(Expression) - pos + 1)
        Split_(n + 1) = temp
    Else
       ReDim Split_ (1)
       Split_ (1) = Expression
    End If
    MySplit = Split_
    End Function

    наверх

    Сумма прописью (ещё один вариант)

    'Параметры: 1-сумма
    ' 2-вывод руб.коп.: 0-нет;1-сокращенно;2-полностью
    ' 3-копейки: 0-нет;1-есть;2-авто
    ' 4-текст в конце
    Public Function СуммаПрописью(ByVal Sm As Currency, Optional ByVal P_s As Variant, Optional ByVal Cop As Variant, Optional ByVal aft As Variant) As String
         Dim im As Integer, Smt As String, smti As String, out As String
         Dim zt As Integer, z2 As Integer, z3 As Integer, i As Integer, j As Integer
        
         If IsMissing(aft) Then aft = "": If IsMissing(Cop) Then Cop = 2: If IsMissing(P_s) Then P_s = 1
         Smt = Int(Sm): im = (Len(Smt) + 2) / 3: Smt = String$(im * 3 - Len(Smt), "0") & Smt
         For i = 1 To im
             smti = Mid$(Smt, 3 * i - 2, 3): z2 = Mid$(smti, 2, 1): z3 = Right$(smti, 1)
             For j = 1 To 3
                 zt = Mid$(smti, j, 1)
                 Select Case j
                     Case 1
                         out = out & Choose(zt, "сто ", "двести ", "триста ", "четыреста ", "пятьсот ", "шестьсот ", "семьсот ", "восемьсот ", "девятьсот ")
                     Case 2
                         If z2 = 1 Then
                             out = out & Choose(z3 + 1, "десять ", "одиннадцать ", "двенадцать ", "тринадцать ", "четырнадцать ", "пятнадцать ", "шестнадцать ", "семнадцать ", "восемнадцать ", "девятнадцать ")
                         Else
                             out = out & Choose(zt, "десять ", "двадцать ", "тридцать ", "сорок ", "пятьдесят ", "шестьдесят ", "семьдесят ", "восемьдесят ", "девяносто ")
                         End If
                     Case 3
                         If z2 <> 1 Then
                             out = out & Choose(zt, "од", "дв", "три ", "четыре ", "пять ", "шесть ", "семь ", "восемь ", "девять ")
                             Select Case zt
                                 Case 1
                                     out = out & IIf(im - i = 1, "на ", "ин ")
                                 Case 2
                                     out = out & IIf(im - i = 1, "е ", "а ")
                             End Select
                         End If
                 End Select
             Next
             Select Case im - i
                 Case 1
                     out = out & IIf(smti <> 0, "тысяч" & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, " ", IIf(z3 > 1 And z3 < 5, "и ", "а ")), "")
                 Case 2, 3, 4
                     out = out & IIf(smti <> 0, Choose(im - 1 - i, "миллион", "миллиард", "триллион") & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, "ов ", IIf(z3 > 1 And z3 < 5, "а ", " ")), "")
             End Select
         Next
         If out = "" Then out = "ноль "
         If P_s > 0 Then out = out & IIf(P_s = 1, "руб.", "рубл" & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, "ей", IIf(z3 > 1 And z3 < 5, "я", "ь")))
         smti = Format$((Sm - Int(Sm)) * 100, "00")
         If (P_s > 0 And Cop = 1) Or (P_s > 0 And Cop = 2 And smti <> "00") Then
             z2 = Left$(smti, 1): z3 = Right$(smti, 1)
             out = out & " " & smti & IIf(P_s = 1, " коп.", " копе" & IIf(z3 = 0 Or z3 > 4 Or z2 = 1, "ек", IIf(z3 > 1 And z3 < 5, "йки", "йка")))
         End If
         Mid$(out, 1, 1) = UCase$(Left$(out, 1))
         СуммаПрописью = out & aft
    End Function

    наверх

    Как "вытащить" картинки (BMP) из файлов AVI

    Автор     Рукавишников

    Dim Det As New MediaDet
    Const VideoGUID As String = "{73646976-0000-0010-8000-00AA00389B71}"
    bFoundVidStream = False

    Det.FileName = "C:\Media\Example.avi" 'файл, из которого будут извлекаться картинки

    ' Поиск видео.
    For i = 0 To Det.OutputStreams - 1
         Det.CurrentStream = i
         StreamType = Det.StreamTypeB
         If StrComp(StreamType, VideoGUID, vbTextCompare) = 0 Then
             bFoundVidStream = True
             Exit For
         End If
    Next

    If bFoundVidStream Then
         ' Обновление текста метки с именем VideoInfo на Вашей форме.
         VideoInfo.Caption = Det.FileName + ": " + Str(Det.StreamLength) + "
    seconds"

         ' Помещение кадра в файл C:\Temp.bmp
         TempFile = "C:\Temp.bmp"
         Preview.ScaleMode = vbPixels ' Задаем ScaleMode для Picture Box с именем Preview на Вашей форме.
         'Кадр, соответствующий моменту времени 0, помещается в файл C:\Temp.bmp
         Det.WriteBitmapBits 0, Preview.ScaleWidth, Preview.ScaleHeight, TempFile

         Preview.Picture = LoadPicture(TempFile) ' Кадр появляется в Picture Box с именем Preview
    End If

    *******************
    Вместо 0 можете указать любое время до Det.StreamLength

    Только не забудьте перед использованием создать пару контролов:
    1. VideoInfo - Label (или Form);
    2. Preview - Picture Box

    наверх

    Книги

    Visual Basic 6 Desktor экзамен 70-176
       Книги серии "Экзамен — экстерном" представляют собой удобные, сжатые, хорo шо структурированные конспекты для подготовки к сдаче сертификационных экзаменов на звание Microsoft Certified Solution Developer. Книга "Visual Basic 6.0 Desktop. Экзамен— экстерном (экзамен 70-176)" содержит только действительно необходимый материал, типовые вопросы с ответами и пример экзамена. Возможно, некоторые подходы, применяемые автором, покажутся вам не совсем привычными — не удивляйтесь: это не учебник по Visual Basic; организация материала в этой книге призвана максимально облегчить задачу экзаменуемого. Учтите, что в ряде случаев экзаменационные вопросы выходят за рамки тем, отраженных в документации no Visual Basic, а иной раз правильные ответы на них даже входят в противоречие с "официальной" информацией.

    Макдоналд М., "Питер" - 2001, 608 стр.
    Стоимость: 130,83 р.
    Формат книги: 60х90/16
    Переплет: нет данных

    Visual Basic 6 Distributed (экзамен 70-175)
       Книги серии "Экзамен — экстерном" представляют собой удобные, сжатые, хорошо структурированные конспекты для подготовки к сдаче сертификационных экзаменов на звание Microsoft Certified Solution Developer. Книга "Visual Basic 6 Distributed (экзамен 70-175)" не содержит ничего лишнего, только то, что действительно необходимо: фактический материал, типовые экзаменационные вопросы с разбором ответов и тестовый экзамен для самопроверки. Кроме того, вы найдете в н8й советы по стратегии и тактике сдачи экзамена.
       Серия "Экзамен — экстерном" — настоящая находка для преподавателей, которые смогут рекомендовать ее слушателям в качестве пособия для самостоятельной работы и тренировки. Книга не потеряет актуальности и после успешной сдачи экзамена: она поможет в нужный момент освежить в памяти необходимые сведения.
       Книги серии "Экзамен — экстерном" рекомендованы представительством корпорации "Майкрософт" в Москве в качестве учебного пособия для подготовки к экзаменам на звание MCSD.

    Томас М., Фокс Д., "Питер" - 2001, 592 стр.
    Стоимость: 130,83 р.
    Формат книги: 60х90/16
    Переплет: нет данных

    Visual Basic 6 Введение в программирование баз данных
       Книга известного американского автора Джона Коннэлла содержит сведения, необходимые для решения двух взаимосвязанных задач: доступа к данным и построения интерфейса для удобной работы с ними. Она дает читателю начальные знания и позволяет постепенно перейти к сложным задачам программирования баз данных. Прочитав ее, вы научитесь использовать для обращения к данным все средства Visual Basic, включая новые, появившиеся в 6-й версии. Книга предназначена для программистов разных уровней, от начинающих до высококвалифицированных. Она будет полезна также студентам и преподавателям информатики и вычислительной техники.

    Коннэлл Дж., "ДМК" - 2000, 720 стр.
    Стоимость: 207,86 р.
    Формат книги: 70х100/16
    Переплет: нет данных



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

    наверх

    Анонсы эхо-конференций СообЧа

    Игры

       
    Работа, работа, работа — документы, базы, отчеты… Ну все пора расслабиться: работа не волк — в лес не убежит! Представь себе, у нас есть группа, которая поможет тебе скрасить тяжелые рабочие будни — мы помогаем друг другу играть!!! Обсуждаем все вопросы, которые только могут появиться у любителя игр: к примеру, как поиграть в StarCraft по сети или как написать свой конфиг к QUAKE III, и обсудим еще многое-многое-многое… Новости, ссылки на демки, патчи, обзоры и прохождение игр — все это у нас есть! Есть вопросы — ответим, есть новенький секрет — расскажем! Ну, а если ты супер-геймер, сам бог тебе велел быть с нами!

    Подписаться

    Шифрование

       
    Встречались ли вы в своей жизни с компьютерными пиратами? Одной из сфер их деятельности является перехват любой информации во время ее пересылки в просторах сети и воровство данных прямо с вашего компьютера. Даже если хакеру и удастся завладеть секретными данными — каково же будет его разочарование, когда он не сможет их прочесть! Давайте же поговорим о шифровании данных с помощью PGP и других алгоритмов...

    Подписаться

    Все о Linux

       
    Конференция, посвященная ОС Linux, которую имеете или будете иметь вы, а не она вас. Чем больше будет задано вопросов, тем больше будет получено ответов. Количество как известно перерастает в качество... И что приятно, ответы не канут в лету, их всегда можно будет найти в архиве нашей группы... Добро пожаловать!

    Подписаться

    Всё, что связано с пакетом программ MS Office

       
    Вы хотели создать красивый документ в Word, но не знаете как форматировать текст? Или же в Excel вам нужно создать сложнейший и, в тоже время, красивый отчет, содержащий тысячи цифр, и вам не хватает для этого возможностей программы? Вам нужно создать базу данных в Access и по ней составлять отчеты или вы не знаете как послать письмо из Oulook? Всё это - от основ форматирования текста до сложнейших работ в таких программах, как MS Access и MS Publisher, - вы можете узнать в нашей группе Soobcha_Office.

    Подписаться

    Мощь и красота С++

       
    С++ является одним из самых гибких языков программирования. Сочетание низкоуровневых и высокоуровневых средств делает его сильным инструментом в руках программиста. Данная группа призвана помочь программирующим на Си и просто их сблизить. Давайте будем решать проблемы вместе!!!

    Подписаться

    наверх

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

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

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

       Объявляется конкурс на лучщий баннер для сайта VB Студия. Приз за лучший баннер - 5000 показов баннерообменной сети TLE. Вопросы и предложения по этому адресу

       Требуется человек, знающий HTML для работы с сайтом группы СооБчаVB. Вопросы и предложения по этому адресу

    наверх


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

    BalloonMessage for MS Agent

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

    Подробнее...


    наверх

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

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

    Вопросы:

    Автор вопроса:     Peter Salmin

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

       Создал на VB6 приложение для работы с БД в локальной сети. Работает, честно говоря, медленно. Друзья говорят, напиши в Delphi - работать будет быстрее. Действительно ли это так, или это дело вкуса, в чем писать?


    Автор вопроса: Сергей

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

       Как заполнять поле с датой с помощью выпадающего календаря? В MS Access

    Автор вопроса: Alexandr Ignatchenko

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

       Если есть у кого-нибудь пример как записывать и считывать данные из ячеек Excel-я в VB не в VBA, пришлите, плиз!!

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

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

       Можно ли в чужую программу, которая написана на VB, вставить свой тулбар в котором данные будут браться из основного меню этой проги. Например, есть пункт меню "Выход" в котором есть два подпункта "Сейчас" и "Завтра". Я делаю кнопку на своем тулбаре при нажатии на которую выпадает меню с "Сейчас" и "Завтра".




    Ответы:

    Вопрос:

       Мне необходимо создать activeX.dll с какой-то вложенной функцией и передавать из программы (основной - возможно на другом языке Visual С++ или делфи) массив данных для обработки моей dll, и соответственно его возвращать. Другой вариант - мой dll сам создаёт какой-то массив данных и мне его нужно отдавать внешней программе по запросу. Подскажите как это реализовать. Несколько переменных я могу передать(вернуть) по отдельности каждую, а массив как-то не получается.

    Ответ:

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

    Насколько я знаю, в VB массивы между функциями удобнее всего передавать с помощью типа Variant, т.е. если у функции один из принимаемых параметров имеет тип Variant, туда можно пихнуть все, что угодно, в том числе и массив. Но как на это отреагируют другие языки я даже предположить не могу, хотя по идее должно сработать.

    Вопрос:

       Как из VB6 изменить пути к таблицам dbf в CrystalReport? Возможно, я неправильно пользуюсь SetTableLocation?

    Ответ:

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

    Sorry, eto ne FOX, no mne kagetsia, chto
    eto dolgno rabotat.
    Smeni LS.mdb na imia foldera gde legat FoxPro files...
      
    CrystRep.DataFiles(0) = "C:\Mdb\LS.mdb"
    CrystRep.ReportFileName = "C:\"Report\InputReport.rpt"
    CrystRep.SelectionFormula = ""
    CrystRep.PrintReport

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

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

    наверх

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

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