VBNet
VBMania
Голосование: Голосования сайта VBNet.Ru. Результаты голосований передаются на сайт. Проследите, что есть соединение с интернетом. Ссылки: |
Господа!!! читайте 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
Павел Сурменок наверх Какая функция в VB организует задержку? Вопрос: Хотел бы спросить, какая функция в VB организует задержку? Кажется в QB была функция Sleep, a в VB, она не катит... Ответ:
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" _ Поместить его желательно в отдельный модуль. Чтоб выполнить задержку, просто напиши:
Sleep 1000 Программа задержится на 1 секунду (1000 миллисекунд). Можешь остановить ее на столько, на сколько нужно. Артем Кривокрисенко наверх Как в VBA сделать таймер? Вопрос: Неужели в VBA (Excel) нет элемента Timer? Попробовал SetTimer - и опять облом. Здесь что, и AddressOf не поддерживается? Ответ: Там есть встроенный таймер.
OnTime Method Example Алексей Вишневский наверх Как из файла ресурсов считать txt файл и загрузить в textbox? Вопрос: Как из файла ресурсов считать txt файл и загрузить в textbox? Ответ:
Dim i As Integer
Дмитрий Данелия
наверх Вопрос/Ответ Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы. Вопросы:Автор вопроса: SBJocker Ответ ожидается по этому адресу Тут такая проблема: нужно вывести текст в PictureBox или на принтер под нужным углом (15, 25, 3, 270 и т.д). Знаю что есть в API такая функция, но найти не могу, если кому несложно, то напишите её объявление и параметры. Автор вопроса: Максим Ответ ожидается по этому адресу Как сохранить текст в *.ехе файле? Ну и как прочесть, конечно же? Автор вопроса: Максим Ответ ожидается по этому адресу Как пользоваться прогой RIPPER5? Хелп я прочёл, делал как написано, но ни фига не находит!.. Автор вопроса: Максим Ответ ожидается по этому адресу Кто-нибудь поделитесь инфой, как делать изометрические карты! Автор вопроса: 001 Ответ ожидается по этому адресу Кто может поделиться инфой, опытом или ссылкой про работу с DirectX 2D? Автор вопроса: 001 Ответ ожидается по этому адресу Где можно достать хороший справочник (в электронном виде) про MSCOMM и/или Winsock? Автор вопроса: 001 Ответ ожидается по этому адресу Есть ли какой-нибудь серьезный, мощный редактор для ASP? Автор вопроса: yuri Ответ ожидается по этому адресу Как сделать , чтобы файл *.gif начал работать на форме в VB5 при событии, например Click, на кнопке ? Автор вопроса: Shuhrat Ответ ожидается по этому адресу Можноли испльзовать Scroll мышки в ListBox? Автор вопроса: Олег Ответ ожидается по этому адресу Как контролировать работу с файлами (копирование, перемещение, удаление)? Интересует ведение лога имен этих файлов. Ответы: Вопрос: Вопросы примитивные, но я так и не разобрался: Интересует, как отрабатывать нажатие кнопок на тулбаре? Единственное, что мне удалось сделать, это конструкция типа: Select Case e.Button.Text Case tbButton.Text А также сходства по другим признакам... но неужели нет ни какого, например, индекса кнопки? Еще хочу знать, как пользоваться domainUpDown? Думаю, эти два вопроса взаимно связанны... Ответ: Автор ответа: Jumanjee Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = "keyProp1" proc1 Case Is = "keyProp2" proc2 Case Is = "keyProp3" proc3 End Select End Sub В case указываешь свойство key каждой кнопки. Вопрос: Поместил свой "Блокнотик" в папку SendTo, но при отправки в него чего-нибудь он радует меня своим чистеньким белым личиком. Не подскажете код для обработки такого действия? Ответ: Автор ответа: Артем Кривокрисенко В переменную Command при таком запуске помещается путь к файлу. Ответ: Автор ответа: Vladimir Selyanin Пиши в загрузке формы: If Command<>"" Then Call You_File_Open_Sub(Command) При этом Command должен вернуть путь и имя файла, а ты уж своей процедурой его открой. Вопрос: У меня такой код программы. RtxQ.Font.Name = CommonDialog1.FontName RtxQ.Font.Size = CommonDialog1.FontSize После исполнения в объекте RichTextBox шрифт и размер шрифта меняется для всего текста, что имеется в нем. А можно ли сделать так чтобы шрифт и размер шрифта менялись так как и в Worde (на выделеный текст, или же измения параметра перед печатанием текста). Если можно, то пришлите код программы. Просто я только начинаю изучать VB. Ответ: Автор ответа: Артем Кривокрисенко Используй свойства SelColor, SelFont ну и т.д., то есть, все свойства, которые начинаются на Sel... Ответ: Автор ответа: Vladimir Selyanin Для изменения выделенного текста есть следующие свойства: With RtxQ .SelAligment .SelBold .SelBullet .SelCharOffset .SelColor .SelFontName .SelFontSize .SelHangingIndent .SelItalic .SelLenght .SelProtected .SelRightIndent .SelRTF .SelStart .SelStrikeThru .SelTabCount .SelTabs .SelText .SelUnderline End With Что они делают, можно найти в ObjectBrowser. Так же я нашел в папке дистрибутива VB6 файл \Common\Help\RTFBOX98.chm. Можете заполнить эту форму, либо отослать вопрос СЮДА Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта. |
Выпуск подготовили: |
Сурменок Павел |