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

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


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

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


VBNet VBMania
Ссылки:

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

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

       Жаль, что никто не знает, как в .NET средствами System.XML создать в XML-документе DTD-блок... :(
    Читайте!


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




    Где можно взять пример отправки почты на VB с помощью Winsock?

    Вопрос:

    Где можно взять пример отправки почты на VB с помощью Winsock? Желательно чтобы была возможность добавлять в сообщение аттачи.

    Ответ:

    Вот здесь лежат несколько примеров:
    http://azbukavb.narod.ru/vbcod/vbcod13.html

        Yuliya Shelmuk

    наверх


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

    Вопрос:

    Как ограничить количество десятичных знаков после запятой в создаваемом в запросе поле Skidka и Summa.
    Select (Cena*0.98) As Skidka,(Cena*Koef) As Summa From tblTabl


    Ответ:

    Select ROUND(Cena*0.98,2) As Skidka,ROUND(Cena*Koef,2) As Summa From tblTabl

    ROUND
    Returns a numeric expression, rounded to the specified length or precision.

    Syntax
    ROUND ( numeric_expression , length [ , function ] )

    Arguments
    numeric_expression

    Is an expression of the exact numeric or approximate numeric data type
    category, except for the bit data type.

    length

    Is the precision to which numeric_expression is to be rounded. length must be
    tinyint, smallint, or int. When length is a positive number,
    numeric_expression is rounded to the number of decimal places specified by
    length. When length is a negative number, numeric_expression is rounded on the
    left side of the decimal point, as specified by length.

    function

    Is the type of operation to perform. function must be tinyint, smallint, or
    int. When function is omitted or has a value of 0 (default),
    numeric_expression is rounded. When a value other than 0 is specified,
    numeric_expression is truncated.

    Return Types
    Returns the same type as numeric_expression.

    Remarks
    ROUND always returns a value. If length is negative and larger than the
    number of digits before the decimal point, ROUND returns 0.

    Example Result
    ROUND(748.58, -4) 0


    ROUND returns a rounded numeric_expression, regardless of data type, when
    length is a negative number.

    Examples Result
    ROUND(748.58, -1) 750.00
    ROUND(748.58, -2) 700.00
    ROUND(748.58, -3) 1000.00


    Examples
    A. Use ROUND and estimates
    This example shows two expressions illustrating that with the ROUND function
    the last digit is always an estimate.

    SELECT ROUND(123.9994, 3), ROUND(123.9995, 3)
    GO

        Shemyakin, Dmitry

    наверх


    Как делать проверку на кратность 5?

    Вопрос:

    Как делать проверку на кратность 5?

    Ответ:

    If значение mod 5 = 0 Then
        'Действия если кратно
    End If

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

    наверх


    Какая функция в VB организует задержку?

    Вопрос:

    Хотел бы спросить, какая функция в VB организует задержку? Кажется в QB была функция Sleep, a в VB, она не катит...

    Ответ:

    Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
         (ByVal dwMilliseconds As Long)

    Поместить его желательно в отдельный модуль. Чтоб выполнить задержку, просто напиши:

    Sleep 1000

    Программа задержится на 1 секунду (1000 миллисекунд). Можешь остановить ее на столько, на сколько нужно.

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

    наверх


    Как в VBA сделать таймер?

    Вопрос:

    Неужели в VBA (Excel) нет элемента Timer?

    Попробовал SetTimer - и опять облом. Здесь что, и AddressOf не поддерживается?

    Ответ:

    Там есть встроенный таймер.

    OnTime Method Example

    This example runs my_Procedure 15 seconds from now.

    Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
    This example runs my_Procedure at 5 P.M.

    Application.OnTime TimeValue("17:00:00"), "my_Procedure"
    This example cancels the OnTime setting from the previous example.

    Application.OnTime EarliestTime:=TimeValue("17:00:00"), _
         Procedure:="my_Procedure", Schedule:=False

        Алексей Вишневский



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

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

    Вопросы:


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

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

       Как можно осуществить поиск заданого текста в текстовом файле?


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

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

       Как добавить иконку в SysTray?


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

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

       Мне нужно переслать по сети любой файл, не важно какой, как это сделать?


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

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

       Подскажите, пожалуйста, как узнать из программы на VBA в Excel выбрана ли команда "Автофильтр" из меню "Данные"->"Фильтр" (иначе говоря, установлена ли галочка рядом с командой "Автофильтр").


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

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

       Как сэмулировать прокрутку ролика?


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

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

       Как узнать hWnd элемента, находящегося под указателем мыши в данный момент?




    Ответы:


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

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

    наверх


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

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

    http://subscribe.ru/
    http://subscribe.ru/feedback/
    Адрес подписки
    Отписаться

    В избранное