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


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


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

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

Статистика

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

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


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

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

VBNet VBMania
Ссылки:

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

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

       Новый выпуск......... Очень новый....
    Читайте!


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



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



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

    12:06 / 14 июн.  Тукс поверх всего | Хитов: 1 |  Ответов: 0
    11:53 / 14 июн.  HELP ,People, HELP !!!!! | Хитов: 3 |  Ответов: 1
    10:21 / 14 июн.  DataCombo | Хитов: 0 |  Ответов: 0
    03:57 / 14 июн.  event cdrom | Хитов: 9 |  Ответов: 1
    00:13 / 14 июн.  Crystal Report ??? | Хитов: 6 |  Ответов: 0
    23:07 / 13 июн.  Balloon Tips | Хитов: 10 |  Ответов: 2
    19:54 / 13 июн.  Поиск текста в файлах внешних | Хитов: 16 |  Ответов: 2
    18:42 / 13 июн.  ListView и выбранные елементы. | Хитов: 18 |  Ответов: 3
    15:52 / 13 июн.  Вопрос по большим БД | Хитов: 6 |  Ответов: 0
    14:49 / 13 июн.  Математика в VB | Хитов: 18 |  Ответов: 1
    10:46 / 13 июн.  Какртинки из ADO (MS Access) на форму | Хитов: 11 |  Ответов: 0
    01:51 / 13 июн.  1. Ресурсы, 2. System.Drawing.Graphics | Хитов: 22 |  Ответов: 5
    20:18 / 12 июн.  ... Сеть ... | Хитов: 37 |  Ответов: 3
    14:01 / 12 июн.  Озвучить текст | Хитов: 69 |  Ответов: 12
    09:41 / 12 июн.  Мерцание при рисовании на форме | Хитов: 23 |  Ответов: 1
    09:32 / 12 июн.  Зацените дизайн | Хитов: 66 |  Ответов: 10
    07:15 / 12 июн.  Адреса из Outlook(Нуна плиззз) | Хитов: 13 |  Ответов: 0
    03:21 / 12 июн.  Service Pack 6 for Visual Basic 6.0 | Хитов: 59 |  Ответов: 5
    21:13 / 11 июн.  Проект Ассемблер в VB | Хитов: 244 |  Ответов: 44
    18:30 / 11 июн.  dbcombo & textbox  | Хитов: 16 |  Ответов: 1


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



    наверх

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



    наверх

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



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



    наверх

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

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



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



    наверх

    Один момент из жизни форума: Формат APV-файла от API Viewer 3.10

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

    Вопрос:
    Автор вопроса: Sharp

       Может кому-то понадобится, что я накопал минут за 40...
    Формат APV-файла
    Заголовок
    5 байтов Сигнатура APV-файла "VBAPI" 56 42 41 50 49
    1 байт Версия Api Viewer (в данном случае 3) - 03
    4 байта Число процедур (long)
    4 байта Число функций (long)
    4 байта Число констант (long)
    4 байта Число типов (long)
    4 байта Назначение непонятно, число 1024 (long) или 00 00 04 00
    4 байта Назначение непонятно, число 2560 (long) или 00 00 0A 00
    10 байтов Дата файла в формате dd.mm.yyyy
    Названия функций, процедур
    2 байта Длина названия N (short)
    N байт Название функции (ASCII)
    Параметры функций, процедур
    2 байта Длина названия N (short)
    N байт Строка вида "advapi32" Alias "AccessCheckAndAuditAlarmA" (?SubsystemName As String, HandleId As Any, ?ObjectTypeName As String, ?ObjectName As String, SecurityDescriptor As SECURITY_DESCRIPTOR, ?DesiredAccess&, GenericMapping As GENERIC_MAPPING, ?ObjectCreation&, GrantedAccess&, ?AccessStatus&, ?pfGenerateOnClose&)&
    Первая подстрока в кавычках - имя DLL, содержащей функцию, иногда без расширения, иногда с другим расширением.
    Пробел
    Затем Alias "имя функции в DLL" , либо ничего
    Открывающая скобка
    Список параметров через точку с пробелом
    "?", если ByVal
    "~", если ByRef
    "" в некоторых случаях (ByRef)
    Имя параметра
    Тип параметра:
    "&", если Long
    " As тип", если иное
    "%", если Integer
    "", иногда
    Закрывающая скобка
    Тип функции
    "&", если Long
    " As тип", если иное
    "%", если Integer
    "", если процедура
    Названия типов
    2 байта Длина названия N (short)
    N байт Название типа (ASCII)
    Описание типов
    2 байта Длина названия N (short)
    N байт Форматированный набор элементов, с табуляцией, переводом строки и комментариями, вместо последнего перевода строки перед End Type символ #13 (0D)
    Названия констант
    2 байта Длина названия N (short)
    N байт Название константы (ASCII)
    Значения констант
    2 байта Длина названия N (short)
    N байт Форматированное значение
    Названия перечислений
    2 байта Длина названия N (short)
    N байт Название перечисления (ASCII)
    Описание перечислений
    2 байта Длина названия N (short)
    N байт Форматированный набор элементов, с табуляцией, переводом строки и комментариями, вместо последнего перевода строки перед End Type символ #13 (0D)




    наверх

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

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

    Вопросы:

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

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

       Существует ли в VB6 возможность работать с DBF? Везде описывается работа с MDB. Если же есть возможность, то где можно об этом почитать? Либо, вкратце опишите как.

    Автор вопроса: Кошевой Дмитрий

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

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

    Пожалуйста, если кто знает - ответьте на такой вопрос: разрешает ли соглашение Microsoft использовать программные VB-продукты в коммерческих целях. Допустим, что все созданное в VB разрешается продовать... А если используется компонент MSCOMCTL.ocx, к примеру? Сами знаете вопрос интересный и предлогаю его обсудить :)

    Автор вопроса: Grigoriev Pavel

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

       Можно ли делать label, textbox и др элементы. немного прозрачными на форме. Если да то как?

    Автор вопроса: V@dimG

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

       Подскажите АРИ для регулировки громкости. waveoustsetvolume я знаю... Должны быть еще...

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

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

       Всё пытаюсь разобраться с базами данных MSccess, но по предложенным на бумаге примерам что-то не получается :( (по причине неполноо комплекта :)). Может есть у кого-нибудь исходники... Если есть то пожалуйста вышлите их на почту psinetron@mail.ru

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

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

       Может кто-нибудь поможет решить задачу.
    Даны итоги выборов в думу в городе: по К округам известно число голосовавших за представителей М партий, а также число не участвовавших в голосовании по каждому округу.
    Выборы считаются состоявшимися, если в головании приняло участие не менее Р% избирателей. Определить, в каких округах выборы состоялись.

    Автор вопроса: Тимур

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

       Функция Win32 API LoadImage читает только bmp, ico и курсорные рисунки. Gif, png или jpg не читает?

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

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

       Как можно с помощью vb 6.0 узнать, есть ли определённый компьютер в сети?

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

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

       В PictureBox'е можно изменять палитру, не трогая рисунка в нём? Если да, то как, если нет, то ответьте нет!

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

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

       Есть в общем форма, на этой форме находится одно поле для ввода (field1) и список содержащее определённое значение (spisok), как сделать так что при обновлении Field, поле списка spisok1 стало активным ?



    Ответы:

    Вопрос:

       Пишу:

    Text1.Text = "Строка1" & Chr(13) & "Строка2"

    А он мне всё в одной строке выдаёт, а вместо новой строки пишет символ перехода строки!
    Как разнести переменные по строкам в Text1.text?

    Ответ:

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

    Надо делать так:

    Text1.Text = "Строка1" & vbCrLf & "Строка2"

    Вопрос:

       Хочу добавлять динамически контролы на форму.
    Докапался примерно до такого:
    Объект нужен в массиве и добавлять его с помощью load. Пробовал море раяных комбинаций, так и не понял.
    Вот первоначальный вариант:

    Dim Iconka(100) As PictureBox
    Load (Ikonka)

    Для тех, кто будет говорить примерно такое: Это уже тут сто рая обсуждалось. Профиль со всей почтой полетел.

    Ответ:

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

    Кажется, надо делать примерно так:
      
    1) для одиночной загрузки элемента:

    Dim Iconka(100) As PictureBox
    Load Ikonka(1)
    Load Ikonka(2)
    Load Ikonka(...)
      
    2) загрузка в цикле:
      
    Dim Iconka(100) As PictureBox, i as Long
    for i=1 to 100
    Load Ikonka(1)
    next i

    Вопрос:

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

    Ответ:

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

    Сдаётся мне это не очень смешная и очень заезженная шутка.... 8(((

    Вопрос:

       Кто-нибудь писал библиотеки на VB? Я создал библиотеку с функцией

    Public Function проверка_ввода(ByVal строка As String, Optional ByVal разделитель_на_выходе As String) As String

    Откомпилил в файл function.dll, зарегистрировал regsvr32.exe Function.dll. Создал программу в которой в модуле записал

    Public Declare Function проверка_ввода Lib "Function.dll" (ByVal строка As String, Optional ByVal разделитель_на_выходе As String) As String

    И вызываю её

    MsgBox проверка_ввода("10.05", -1)

    На это он мне пишет "Ошибка 453: Невозможно найти допуск в DLL проверка_ввода in function.dll

    Пробывал менять названия на латиницу - не помогает.
    Подключение библиотеки через ссылки недопустимо (требование заказчика, хотя так работает)

    Ответ:

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

    Есть одна функция - CreateObject Я её использовал для создания плагинов в своём приложении.

    Set Bibl = CreateObject("Function.Data")

    Потом можно вызывать:

    MsgBox Bibl.проверка_ввода("10.05", -1)


    Ответ:

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

    Ты написал ActiveX библиотеку, а пытаешься использовать её как обычную. А надо её использовать как класс, предварительно подключив к проекту в Проект->Ссылки.

    Вопрос:

       Мой компьютер подсоединён к Интернет черея локальную сеть. Модема, как устройство на компьютере нет. Как мне определить, в каком режиме находится мой компьютер: "on line" или "off line" ?

    Ответ:

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

    Объяви:

    Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" Alias "InternetGetConnectedStateExA" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Long, ByVal dwReserved As Long) As Long 'Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long 'this function used with IE4
    Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

    Используй эту функцию:

    inInet=InternetGetConnectedState(0, 0)

    Или эту, для более полной информации о подключении:

    Dim lFlags As Long, sNameBuf As String
    sNameBuf=string$(512,vbnullchar)
    inInet=InternetGetConnectedStateEx(lFlags, sNameBuf, 512, 0&)

    Вопрос:

       Как пользоваться "OnError GOTO"? В общем обьясните, как он работает?

    Ответ:

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

    Если в программе есть OnError GOTO metka, то при возникновении ошибки, программа переходит к этой метке, где по идее должна обробатываться ошибка. Если бы небыло этой строки, то прога просто бы зависла или завершила свою работу. Бедный юзер так бы и не узнал, что от него требовалось вставить дискету в флопак =)


    Ответ:

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

    Чувствую, что буду далеко не единственным, кто ответит на этот вопрос, но:

    On Error Goto WasErr
    ' Далее следует код, в котором возможна ошибка
    open "a:\1.txt" for input as #1
    ' Если произойдёт ошибка дальше код не пойдёт...
    close #1
    MsgBox "Файл есть"
    WasErr: ' метка, куда перейдёт выполнение кода при ошибке выше
    ' Этот код будет выполняться в любом случае, хотя, как правило,
    ' метку WasErr отделяют через Exit Sub или Exit Function
    MsgBox "Конец кода"

    Вопрос:

       Как мне обвести несколько textbox'ов и получить их индексы?

    Ответ:

    Автор ответа: M.Lyalyuk

    Может так и не выйдет, но попробуй "просканировать" выделеную курсором прямоугольную область (ну типа от координат нажатия кнопки мыши и до координат отпускания) а "сканить" типа так:

    For each textbox in frmMain do

    if textbox(i).left и textbox(i).Top входят в выделенную область, то сохраняем индекс в массив then a(n)=i ну типа того. Это не код проги. Это всего лишь мысль.

    Вопрос:

       Как подсчитать c=(12^121) mod 247, я все перепробовал, кроме цикличного вычитания 247.

    Ответ:

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

    Стандатрными средствами VB - никак.
    Вообще (a mod b) == a - int(a / b) * b
    Но, дело в том, что большие числа хранятся в экспоненциальном виде (mantissa*10^exponent или E), при этом в мантиссе сохраняется только 15 знаков после запятой. Именно 15, т.к., на самом деле мантисса приводится к такому виду, что бы целая часть была равна нулю, но первый знай после запятой отличался от нуля. Таким образом, при больших числах (>1E15) теряются значащие знаки. В обычном случае это бы и ничего, но при вычислении остатка - недопустимо.
    Выход есть - писать свои функции математических операторов, которые работали бы с числами как со строками.

    Вопрос:

       Напишите код, как lock'ить listBox перед заполнением, если не трудно.

    Ответ:

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

    Есть АПИ ф-ия:

    Public Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

    Передавай ей хендл listbox'a и все! Для разблокирования - вместо хендла пердай 0


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

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

    наверх

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

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

    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу

    В избранное