Отправляет 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
30
31


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


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

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

Статистика

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

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


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

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

VBNet VBMania
Ссылки:

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

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

       Фух... Почти догнал я график!
    Читайте!


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



    Как в 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

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

    наверх

    Как из файла ресурсов считать txt файл и загрузить в textbox?

    Вопрос:

    Как из файла ресурсов считать txt файл и загрузить в textbox?

    Ответ:

    Dim i As Integer
    Dim r() As Byte

    r = LoadResData(101, "CUSTOM")
       For i = 0 To UBound(r)
         Text1.Text = Text1.Text & Chr(r(i))
       Next
    End Sub

         Дмитрий Данелия


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

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

    Вопросы:

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

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

       Как отключить Screen Server во время работы моей программы?

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

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

       Уже не первый месяц мучаю сайты и форумы одним и тем же вопросом. Вопрос-то двойной. Мне нужно либо узнать, как программно менять разрешение экрана, либо полное пособие (doc или txt или презентация, не имеет значения, только не надо подсовывать ссылку на огромные файлы инструментов) по работе с DirectX.

    Автор вопроса: Котофей

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

       Я знаю, что такой вопрос был, но я не помню ответ. Посоветуйте, какой инсталятор хороший и весит мало.

    Автор вопроса: Артём Иванов aka Acul

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

       Я купил офисную клавиатуру с 31 дополнительной клавишей и колесом. Стандартным способом нажатие этих доп. клавиш не обрабатывается. Как получить кода дополнительных клавиш(и колеса мыши)?

    Хочу написать свой софт для этих кнопок, т.к. прилагаемый не удобен.
    Клава sven8100

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

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

       Как сделать прогу службой в NT?



    Ответы:

    Вопрос:

       Есть 2 проекта. Нужно сделать так, чтоб был один запускающий файл (форма с двумя кнопками для вызова каждого проекта), но оба этих проекта были каждый в своём файле, но эти файлы небыли запускающими (ЕХЕ). Скажите хотя бы, как это делается теоретически?

    Ответ:

    Автор ответа: Hr. Кудрявцев

    Пишешь dll и все.

    Вопрос:

       Как перекодировать ДОС/Вин (с помощью OEMtoChar/ChartoOEM) - знаю. А есть ли библиотека, с помощью которой можно перекодировать из других кодировок (прежде всего КОИ)?

    Ответ:

    Автор ответа: Хатламаджиян Виталий Арутюнович

    Лучше создай свою функцию.
    Можешь использовать следующие константы (таблицы перекодировки):

    Const wDos As String = "°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧрЩЪЫЬЭЮЯтуфхцчшщсыьэюяШъЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”∙–—™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬­®Їабвгдежзийклмноп"
    Const wIso As String = "°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧўЩЪЫЬЭЮЯтуфхцчшщсыьэюяШъ°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмноп"
    Const wKoi As String = "ђ‘’Ѓ‡Іґ§¦µЎЁ®­¬ѓ„‰€†ЂЉЇ°«Ґ»ё± ѕ№є¶·Є©ў¤ЅЁ…‚ЌЊЋЏ‹™“›џ—њћЈ–љќ”їј∙бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС"
    Const wWin As String = "ЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”∙–—™љ›њќћџ ЎўЈ¤Ґ¦§Ё©Є«¬­®Ї°±ІЁґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя"
    Const wMac As String = "ҐЙЄЈ­°ЖІКЁЦДЕЎГя©ВЁ±µ¦ў¶РСФХТУЧ ЗЭ«®ёБ§є·јѕЛНИШЪЂЃ‚ѓ„…†‡€‰Љ‹ЊЌЋЏђ‘’“”∙–—™љ›њќћџабвгдежзийклмнопрстуфхцчшщъыьэюЯЬЮ¬Ї№Пґ»АЅїМО¤ЩЫ"
    Const w855 As String = "Й°ЛЪКОЯ№яМ±ІюЫрПЬЁЕїНєГґВБАЩјИ»Д®…Ѓѓ‡‰‹ЌЏ‘“∙—Ї™›ЎЈм­§©кфёѕЗСУХЧЭвдж諶Ґьцъџтошќа ўл¬¦Ёйу·ЅЖРТФЦШбгезЄµ¤ыхщћснчњЮп„Ђ‚†€ЉЊЋђ’”–эљ"

    Пример (из Dos в Iso)
    'Char - текущий символ
    'newChar - выходной символ
    'pos - позиция символа
    pos = InStr(1,wDos,Char)
    if pos > 0 then newChar = Mid$(wIso,pos,1)


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

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

    наверх

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

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