Отправляет 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: новости сайтов, советы, примеры кодов. Выпуск 290.


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

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

VBNet VBMania
Ссылки:

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

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

       Hello, people!
    Читайте!


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



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

    Дата: 11.08.2004 12:19 | Раздел: Примеры кода | Автор: Яндульский Александр

    WinApiDemonstration - Демонстрирует некоторые функии Windows API.

    Дата: 11.08.2004 12:14 | Раздел: Примеры кода | Автор: Гавринев Олег

    Пифагор+Судьба - Определение судьбы по Пифагору

    Дата: 11.08.2004 12:11 | Раздел: Примеры кода | Автор: Юмагулов Азат

    Игра "О Счастливчик!" - Игра "О Счастливчик!"

    Дата: 11.08.2004 12:07 | Раздел: Примеры кода | Автор: diagnost

    ComboBox_and_CDI - ComboBox_and_GDI

    Дата: 11.08.2004 12:06 | Раздел: Примеры кода | Автор: Дорохов Кирилл

    Kerish Mail Recover - Пример, который показывает возможность восстановления забытого пароля на почтовом ящике.

    Дата: 11.08.2004 12:04 | Раздел: ActiveX контролы | Автор: BlackNeoStorm

    VB Maximizer - На самом деле это не контрол, а Add-in для VB 6.0 Если кто видел в VB.NET все тулсовые окна могут прятаться по бокам. Мне так понравилать эта фича, что я решил её приделать и к VB 6.0 Я надеюсь вы умеете обращяться с VB Add-in'ами. Попробуйте поюзать. Если есть какие глюки или баги пишите мне о них.

    Дата: 11.08.2004 12:03 | Раздел: Примеры кода | Автор: Максим

    HTTP-прокси на VB .NET. - HTTP-прокси на VB .NET.

    Дата: 11.08.2004 12:02 | Раздел: Примеры кода | Автор: Кучерявый Денис

    USDAndEuroCourse - Я недавно скачал пример USDAndEuroCourse (получение из интернета курсов долара и евро). Он помог мне разобраться с получением данных из интернета. Но есть ощибки. Во-первых он получает не курсы валют, а HTML-теги(видимо сайт изменился после написания программы). Во-вторых программа закрывается если нет подключения к интернету. Также очень медленно ищет курсы валют (около 1 минуты). Я исправил эти ощибки, заменил сайт для получения курсов на сайт Центрального Банка (помоиму он удобней для получения и надёжнее), изменил код поиска курсов (теперь ищет за 1-2 секунды) и добавил возможность получение курсов на любую дату.


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

    20:32 / 15 авг.  Иконки в файле ресурсов | Хитов: 2 |  Ответов: 0
    18:38 / 15 авг.  UserControl и LostFocus | Хитов: 4 |  Ответов: 0
    15:31 / 15 авг.  лучше чем WinMPQ | Хитов: 32 |  Ответов: 9
    13:47 / 15 авг.  Копирование картинок | Хитов: 13 |  Ответов: 1
    13:11 / 15 авг.  Муравейник :) | Хитов: 46 |  Ответов: 13
    13:09 / 15 авг.  ReDim Preserve - какая-то ошибка... | Хитов: 27 |  Ответов: 4
    10:52 / 15 авг.  подключение сетевого диска  | Хитов: 15 |  Ответов: 2
    02:39 / 15 авг.  Вопрос на засыпку знатокам VB :) | Хитов: 110 |  Ответов: 20
    02:38 / 15 авг.  Общий или Оффтоп? | Хитов: 37 |  Ответов: 8
    00:46 / 15 авг.  SP2 для XP | Хитов: 82 |  Ответов: 25
    18:10 / 14 авг.  Вопрос про chunked | Хитов: 9 |  Ответов: 0
    18:08 / 14 авг.  Повод для гордости: дизассемблер на Бейсике | Хитов: 42 |  Ответов: 9
    11:54 / 14 авг.  Type или Class??? | Хитов: 84 |  Ответов: 21
    22:33 / 13 авг.  Админам | Хитов: 127 |  Ответов: 23
    22:10 / 13 авг.  Visual Web Developer 2005 Express Edition Beta | Хитов: 51 |  Ответов: 8
    18:13 / 13 авг.  Вопрос | Хитов: 158 |  Ответов: 32
    17:24 / 13 авг.  Форма произвольной формы ??? | Хитов: 35 |  Ответов: 4
    16:30 / 13 авг.  Смена контейнера | Хитов: 46 |  Ответов: 9
    10:10 / 13 авг.  Держите v6 | Хитов: 64 |  Ответов: 6
    10:03 / 13 авг.  Считывание с порта | Хитов: 77 |  Ответов: 12


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



    наверх

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

    • Windows XP Service Pack 2: информация для разработчиков (EN)
      Сведения для разработчиков о функциях безопасности в пакете обновления Service Pack 2 для Windows XP, в том числе учебный курс с примерами кода, статьи и официальные документы.

    • Партнерский форум Microsoft 2004
      Приглашаем вас принять участие в ежегодном Партнерском форуме Microsoft 2004, который состоится 8 октября 2004 года в Москве.

    • День Microsoft на Softool 2004
      Выставка Softool 2004 проходит с 28 сентября по 2 октября в павильоне № 69 Всероссийского выставочного центра в Москве. Конференция «День Microsoft на Softool 2004» состоится 1 октября 2004 года в Большом и Малом конференц-залах павильона № 69.


    наверх

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



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



    наверх

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

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



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



    наверх

    Один момент из жизни форума: Событие нажатия правой кнопки мыши.

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

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

       Как обработать нажатие правой кнопки мыши?


    Ответы:

    Автор: sne
       Событие MouseUp, и проверяй if Button = vbRightButton Then...



    наверх

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

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

    Нет вопросов.


    Ответы:

    Вопрос:

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

    Ответ:

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

    Open Path For Binary As #1
    sFile = Space$(LOF(1))
    Get 1, , sFile
    if instr(1, sFile, ) then ' нашли
    else ' не нашли


    Ответ:

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

    Dim Position As Integer 'позиция найденного фрагмента
    Dim FindString As String 'искомая строка

    Position=InStr(1, Text1.Text, FindString) 'первое найденное совпадение

    Position=InStr(Position+1, Text1.Text, FindString) 'дальнеёшее найденное совпадение

    If Position > 0 Then
        'действие с найденны текстом
    Else
         MsgBox "Строка не найдена",vbExclamation,"Сообщение"
    End If


    Ответ:

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

    open "c:\1.txt" for binary as #1
    dim str as string
    str=space(lof(1))
    get #1,,str
    if instr(1,str,"Что искать")<>0 then
    Текст найден
    else
    не найден
    end if

    Можно конечно в цикле проверять условия соответствия, но это уже на твое усмотрение.

    Вопрос:

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

    Ответ:

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

    Можно воспользоваться AvtiveX элементом DCSysTray - довольно удобен и прост
    в использовании. Взять можешь тут: http://vbcoder.narod.ru/controls.html .


    Ответ:

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

    Добавляешь в модуль:

    Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As
    NOTIFYICONDATA) As Boolean 'Константы для добавления, удаления и модификации вашей икноки:
    Public Const NIM_ADD = 0
    Public Const NIM_MODIFY = 1
    Public Const NIM_DELETE = 2
    'Константы ответственные за события происходящие внутри границ иконки, расположенной в Traybar:
    Public Const WM_MOUSEMOVE = &H200
    Public Const NIF_MESSAGE = 1
    Public Const NIF_ICON = 2
    Public Const NIF_TIP = 4
    'Константы ответственные за события поведения мышки происходящие внутри границ иконки, ' расположенной в Traybar:
    'Для левой клавиши мышки:
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202
    Public Const WM_LBUTTONDBLCLK = &H203
    'Для правой клавиши мышки:
    Public Const WM_RBUTTONDOWN = &H204
    Public Const WM_RBUTTONUP = &H205
    Public Const WM_RBUTTONDBLCLK = &H206
    'Для средней клавиши мышки:
    Public Const WM_MBUTTONDOWN = &H207
    Public Const WM_MBUTTONUP = &H208
    Public Const WM_MBUTTONDBLCLK = &H209
    'Объявляем переменную определяемую пользователем:
    Type NOTIFYICONDATA
    cbSize As Long
    hWnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
    End Type
    =============================================================================
    А это в general



    'На форме в разделе General объявляем переменную определенную как тип пользователя
    Dim nid As NOTIFYICONDATA



    Private Sub Command1_Click()
    ' Добавить иконку формы в Traybar
    nid.cbSize = Len(nid)
    nid.hWnd = Form1.hWnd
    nid.uID = vbNull
    nid.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    nid.uCallbackMessage = WM_MOUSEMOVE
    nid.hIcon = Form1.Icon

    Shell_NotifyIcon NIM_ADD, nid

    End Sub

    Private Sub Command2_Click()
    nid.hIcon = Form2.Icon
    nid.szTip = "New Icon" & vbNullChar
    Shell_NotifyIcon NIM_MODIFY, nid
    End Sub

    Private Sub Command3_Click()
    Shell_NotifyIcon NIM_DELETE, nid
    End Sub

    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Объявляем переменные
    Dim msg As Long
    Dim sFilter As String

    msg = X / Screen.TwipsPerPixelX
    Select Case msg


            Case WM_LBUTTONDOWN
            'Сюда ты можешь вставить код, который захочешь
            MsgBox "Нажата левая кнопка мыши(Нажата)"
            
            
            Case WM_LBUTTONUP
                 'Сюда ты можешь вставить код, который захочешь
              MsgBox "Нажата левая кнопка мыши(Отжата)"
              
              
            Case WM_LBUTTONDBLCLK
          MsgBox "Ты кликнул 2 раза по ИКОНКЕ(Левой кнопкой)"
              'Сюда ты можешь вставить код, который захчешь
            Case WM_RBUTTONDOWN
                'Сюда ты можешь вставить код, который захочешь
                  'Обычно это PopupMenu
                  
                 MsgBox "Нажата правая кнопка мыши(Нажата)"

           
            Case WM_RBUTTONUP
                 'Сюда ты можешь вставить код, который захочешь
                  MsgBox "Нажата левая кнопка мыши(Отжата)"
                  
            Case WM_RBUTTONDBLCLK
            
                'Сюда ты можешь вставить код, который захочешь
                   MsgBox "Ты кликнул 2 раза по ИКОНКЕ(Правой кнопкой)"
    End Select

    End Sub

    Вопрос:

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

    Ответ:

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

    filecopy ("c:\foto\kirkorov_gad.jpg",
    "\\super\puper\drug\britny_spears_nude.jpg") ' и все :) (но только нужно чтоб ресурс был расшарен на запись!)

    Вопрос:

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

    Ответ:

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

    Есть АПИ функция SetScrollPos
    Declare Function SetScrollPos Lib "user32.dll" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long
    Есть АПИ функция SetScrollPos
    Declare Function SetScrollPos Lib "user32.dll" (ByVal hwnd As Long, ByVal nBar As Long, ByVal nPos As Long, ByVal bRedraw As Long) As Long


    Ответ:

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

    Если ты говоришь про скроллы, то у них есть свойство value.


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

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

    наверх

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

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