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

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.063 RSS
←   Февраль 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29


За последние 60 дней ни разу не выходила


Сайт рассылки: http://vbnet.ru
Открыта: 31-07-2001

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

Статистика

4.063 подписчиков
0 за неделю
←   Все выпуски   →

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


Информационный Канал Subscribe.Ru

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

VBNet VBMania
Ссылки:

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

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

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


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



    Citycat by Email

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

    наверх

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

    Дата: 16.02.2004 11:05 | Раздел: Примеры кода | Автор: Анатолий Жуков

    Художественное меню - От Автора:Во вложенном файле вашему вниманию 2 компонента ActiveX. Всплывающее художественное меню. Есть возможность создавать массу орингинальных стилей (не только Office XP). WeMenu.ocx (С++) - небольшой по размеру файл, позволяющий программно создавать меню любой сдложности. ArtPopMenu.ocx (VB6) - vb-надстройка позволяющая создавать меню (легкои быстро) в Design mode. Попробуйте. Сочтете достойным Вашего сайта - публикуйте. Если проблемы - aven@awax.ru. xml - сопровождение внутри архива.

    Дата: 16.02.2004 10:57 | Раздел: Примеры кода | Автор: Millenium

    ANC MEssenger - От Автора: Что-то типа ОутГлюка, только мальенкие размеры. Проверяет почту, один раз, либо автоматически через каждые 15 минут.

    От User Unknown: Простенький POP-почтовичок. Рекомендуется всем, желающим разобраться в протоколе POP.

    Дата: 16.02.2004 10:52 | Раздел: Примеры кода | Автор: Millenium

    Apple Mac Skin - От Автора: Готовый скин и интерфейс для програмистов VB. В пакете и откомпелированный вариант и графика (рисунки) использованные в проекте.

    От User Unknown: Всем, кто создает скины для своих программ или просто желает изменить внешний вид стандартного окошка.

    Дата: 16.02.2004 10:49 | Раздел: Примеры кода | Автор: Gevorg

    Draw Menu - От Автора: Owner Draw Menu with bitmaps.

    От User Unknown: Приятные менюшки с фоном и иконками.

    Дата: 16.02.2004 10:46 | Раздел: Примеры кода | Автор: Last_Santa

    EAN - От автора:Реализация алгоритма расчета контрольного разряда EAN, т.е. Алгоритм проверки штрих-кода на правильность

    От User Unknown: Замечательно прокомментированный код.Кому надо - тот поймет.

    Дата: 16.02.2004 10:37 | Раздел: Примеры кода | Автор: sne

    ImageComboBox - От автора: Создание/работа с ImageComboBox (без осх)

    От User Unknown: Замечательный пример (вообще полнофункциональный готовый контрол) для тех, кому надоело таскать с собой ActiveX.

    Дата: 13.02.2004 11:32 | Раздел: Статьи по VB | Автор: Шатохина Н.А.

    Спецификация С# версии 2.0. Итераторы - Спецификация C#. Глава 22: Итераторы. В этой главе детально описаны итераторы.


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

    11:56 / 16 фев.  Выбор записей из таблицы Access | Хитов: 4 |  Ответов: 0
    10:35 / 16 фев.  To UserUnknown and Павел | Хитов: 25 |  Ответов: 4
    10:11 / 16 фев.  SMS | Хитов: 10 |  Ответов: 0
    10:10 / 16 фев.  Еще одна IDE среда на основе cEDIT | Хитов: 4 |  Ответов: 0
    03:33 / 16 фев.  Помогите с программой (не за так) | Хитов: 18 |  Ответов: 0
    02:51 / 16 фев.  Как открыть базу данных при помощи DAO с исполь... | Хитов: 15 |  Ответов: 1
    01:18 / 16 фев.  Массив | Хитов: 20 |  Ответов: 1
    00:16 / 16 фев.  Передача звука через модем | Хитов: 10 |  Ответов: 0
    21:39 / 15 фев.  Novell | Хитов: 11 |  Ответов: 0
    20:10 / 15 фев.  HyperTerminal | Хитов: 21 |  Ответов: 1
    18:07 / 15 фев.  Как отослать на сервре запрос? | Хитов: 26 |  Ответов: 1
    17:49 / 15 фев.  CHM-справка | Хитов: 25 |  Ответов: 4
    17:37 / 15 фев.  MS Office Spell API и использование установленн... | Хитов: 16 |  Ответов: 1
    17:35 / 15 фев.  Работа с цветом пикселя | Хитов: 11 |  Ответов: 1
    16:10 / 15 фев.  Трафик | Хитов: 22 |  Ответов: 1
    13:55 / 15 фев.  Мне нужна помощь в оформлении онлайн(!) игры Vi... | Хитов: 8 |  Ответов: 0
    12:57 / 15 фев.  Многооконный интерфейс средствами VB5? | Хитов: 20 |  Ответов: 2
    12:55 / 15 фев.  Где прописать пароль в элементе Data? | Хитов: 6 |  Ответов: 0
    12:47 / 15 фев.  Записи в БД | Хитов: 9 |  Ответов: 0
    12:41 / 15 фев.  Помогите с использаванием Fusion | Хитов: 9 |  Ответов: 1


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



    наверх

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



    наверх

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



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



    наверх

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

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



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



    наверх

    Один момент из жизни форума: Current Recordset does not support updating.

    Адерес темы: http://vbnet.ru/forum/show.asp?id=36591

    Вопрос:
    Автор вопроса: Helen Chirkova

       Разрабатываю элементарный опрос. Результаты должны помещаться в БД "Sport1" MS SQL 2000 SERVER.

    Set rsAdd = Server.CreateObject("ADODB.Recordset")
    rsAdd.Open "Sport1", Conn
    rsAdd.AddNew
    rsAdd.Fields("Q1") = Q1
    rsAdd.Fields("Q2") = Q2

       Выдает ошибку:

    ADODB.Recordset error '800a0cb3'
    Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.


    Ответы:

    Автор: Svetlana
       Похоже просто не разрешено изменения в базу вносить. Это ошибка была просто постоянной на лабораторных работах.
       Попробуй перед открытием добавить:

    rs.CursorType = adOpenDynamic
    rs.LockType = adLockOptimistic
    rs.open "Select... "



    наверх

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

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

    Вопросы:

    Автор вопроса: ПТО

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

       При выполнении команды Print в элемент Picture необходимо ограничить область для печати определёнными координатами (прямоугольная область). Как это реализовать наиболее изящным способом?

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

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

       Подскажите, пожалуйста, ресурс в сети, где описана работа на VB с DBF-файлами. Желательно подробный - для начинающего в работе с данным вопросом.

    Автор вопроса: Денис

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

       Как получить список папок из директории, включая скрытые папки?

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

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

       Как сменить цвет у кнопки?

    Автор вопроса: Данила

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

       1. Есть ли модули, разбирающие предложение по частям (подлежащее, сказуемое и т.д.)?
    2. Есть ли модули, разбирающие слово по частям (приставка, корень и т.д.)?

    Автор вопроса: Данила

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

       Как организовать отдельный поток? Т.е. задача такая: функция вызывает другую функцию, а сама завершает работу.



    Ответы:

    Вопрос:

       Почему у объекта Printer нет метода Print? VB6 OS WinXP.

    Ответ:

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

    Потому что объект Printer нельзя напечатать на бумаге. Можно напечатать например форму (у объекта Form есть метод Print).

    Вопрос:

       Есть Recordset c N записями. В Wordе есть таблица, состоящая из одной строки. В ячейках таблицы вставлены специальные коды, которые впоследствии заменяются на значения полей Recordseta конкретной записи. Нужно сделать так, чтобы строк в таблице было столько, сколько записей в Recordsetе, и каждая строка в таблице содержала значение определенной записи Recordsetа.
    М-да, прочитал и сам ничего не понял. Короче, заморочка с обёктом Wordа - Table. Я не могу скопировать правильно текст из предыдущей ячейки в вновь вставленную ячейку.

    Ответ:

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

    Вот моя рабочая процедура из Access 2000, можно подогнать под "чистый" VB, изменив работу с определением Рекордсета.
      
    Public Sub WordTableWork()
    Dim wda As Word.Application
    Dim wdd As Word.Document
    Dim rsTabl As DAO.Recordset
    Dim i As Integer
    Dim strString As String
    On Error GoTo ErrStartWord
       ' Создаем Рекордсет (или получаем его из вызывающей подпрограммы)
       Set rsTabl = CurrentDb.OpenRecordset("Orders")
       ' Переходим для правильного подсчета кол-ва записей
       rsTabl.MoveLast
       rsTabl.MoveFirst
       ' Открываем документ (Он ведь уже существует? Если нет, то создаем)
       Set wdd = GetObject("C:\MyDoc.doc")
       Set wda = wdd.Parent
       wda.Visible = True
       ' Выбираем таблицу (Одна строка уже есть? Если нет, то предварительно создаем таблицу)
       wdd.Tables(1).Cell(1, 1).Select
       ' Добавляем строки по кол-ву записей. Если первая строка уже содержит данные,
       ' то тогда rsTabl.RecordCount - 1
       wda.Selection.InsertRowsBelow rsTabl.RecordCount
       ' Выбираем первую ячейку второй строки
       wdd.Tables(1).Cell(2, 1).Select
       i = 2
       ' Организуем цикл по записям Рекордсета
       While Not rsTabl.EOF
         With wdd.Tables(1).Rows(i)
           ' Заносим значения полей записи в ячейки
           .Cells(1).Range.Text = rsTabl.Fields("OrderID")
           .Cells(2).Range.Text = rsTabl.Fields("OrdTypeID")
           .Cells(3).Range.Text = rsTabl.Fields("OrdName")
           .Cells(4).Range.Text = IIf(IsNull(rsTabl.Fields("DateBeg")), "00.00.0000", _
             rsTabl.Fields("DateBeg"))
           .Cells(5).Range.Text = IIf(IsNull(rsTabl.Fields("DateEnd")), "00.00.0000", _
             rsTabl.Fields("DateEnd"))
            ' Если нужно запоминать значение в ячейке, то тогда, например,
            strString = Left$(.Cells(1).Range.Text, Len(.Cells(1).Range.Text) - 1)
            ' Left$ отсекает спецсимвол "солнышко" в ячейке. В последнем столбце спецсимволов
            ' может быть больше, нужно специально это проверять!
         End With
         i = i + 1
         rsTabl.MoveNext
       Wend
       ' Сохраняем документ (Если нужно, под другим именем, иначе - wdd.Save)
       wdd.SaveAs "C:\MyNewDoc.doc"
       ' Уходя, гасим всех :-)
       ' Если Word нужно закрыть, то добавляем wda.Quit
       Set wdd = Nothing
       Set wda = Nothing
       
       Exit Sub
      
    ErrStartWord:
       MsgBox Err.Description & " - ошибка № " & Err.Number, vbInformation
       Exit Sub
    End Sub

    Вопрос:

       Как сделать нечто на подобие проверки орфографии? Есть список слов, есть текстовое поле, туда вводят какое-то слово с ошибкой. Её нужно исправить (т.е. подобрать наиболее похожее слово из списка и предложить его).

    Ответ:

    Автор ответа: C...R...a...S...H

    Есть, наверное, много способов, но я могу предложить один. При помощи mid проверять посимвольно слова слов, которые по длине отличаются от данного на 1.

    Dim Kol_vo_oshibok as integer
    Dim Slovoformi as collection
    Dim minWordlen as integer
    For i=1 to WordList.count 'WordList - коллекция слов
    If len(WordList(i))=len(UserWord) or len(WordList(i))+1=len(UserWord) or len(WordList(i))-1=len(UserWord) then
    If len(wordlist(i))<=len(UserWord) then minWordlen= len(wordlist(i)) 'могут возникать ошибки, если количество букв в словах разное для их перехвата, будем проверять самое маленькое слово
    For j=1 to len(WinWordLen)
    If mid(wordlist(i),j,1)<>mid(UserWord,j,1) then kol_vo_oshibok= kol_vo_oshibok+1
    Next j
    If kol_vo_oshibok<=4 and kol_vo_oshibok End if
    Next i


    Ответ:

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

    Думаю, интерфейс придётся самому делать. А для проверки попробуйте воспользоваться движком MySpell.


    Ответ:

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

    Например, можно взять строку из текстового поля и посимвольно проверить совпадение с символами слов из списка, стоящими в той же позиции. Слово с наибольшим количеством совпадений и будет искомым. Если таких слов будет несколько, нужно предусмотреть их перебор (как в Word'е при щелчке на ошибочном слове).

    Вопрос:

       Можно ли заменить значок у другой программы средствами Visual Basic?

    Ответ:

    Автор ответа: C...R...a...S...H

    Для этого можно использовать любые редакторы ресурсов (Restorator).

    Вопрос:

       Акцесс2000 самостоятельно добавляет квадратные скобки и "мусорное" имя для вложеной выборки в SQL запросах.
    Например, было:

         SELECT format(mn,"00") & "." & yr AS dt FROM
         (SELECT month([date]) AS mn , year([date]) AS yr FROM nach)
         GROUP BY yr, mn;

    стало:

          SELECT format(mn,"00") & "." & yr AS dt FROM
          [SELECT month([date]) AS mn , year([date]) AS yr FROM nach]. AS [%$##@_Alias]
          GROUP BY yr, mn;

    Приведеный пример в 1 варианте работает, но всегда исправляется Акцессом на 2-й вариант при начале редактирования и не работает. Кто знает, как отключить любые автоисправления Акцеса в SQL?

    Ответ:

    Автор ответа: Георгий

       Можно в отредактированном запросе добавь имя-алиас подтаблици :
       
          SELECT format(SubTblAlias.mn,"00") & "." & SubTblAlias.yr AS dt
          FROM [SELECT month([date]) AS mn , year([date]) AS yr FROM nach].
               AS SubTblAlias
          GROUP BY SubTblAlias.yr, SubTblAlias.mn;
           
       Способ убрать автоисправления (задолбали) я не знаю.


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

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

    наверх

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

    		 Сурменок Павел
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу
    В избранное