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


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

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

VBNet VBMania
Ссылки:

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

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

       А у нас сегодня зима началась :) Вчера еще было тепло, ясно и солнечно, а сегодня пасмурно, холодно, и снег идет :(
    Наверное, скоро в веб начну свой фотоархив публиковать, а-то много уже хлама всякого скопилось за месяц обладания цифровой фотокамерой :)
    Читайте!


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



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

    Дата: 12.10.2004 12:26 | Раздел: Примеры кода | Автор: HugoFlex

    FCalculator - FlexCalculator v1.0. Стандартный калькулятор.

    Дата: 12.10.2004 12:23 | Раздел: Примеры кода | Автор: Barsik

    CoolMenu - Представляю Вам исходник добавления иконки в меню. Теперь все по честному, никаких инвертирований иконок вы не увидите :). Выражается благодарность sne, за помощь в создании сего проекта...


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

    11:24 / 18 окт.  Explorer | Хитов: 0 |  Ответов: 0
    10:28 / 18 окт.  Как вырубить Excel... | Хитов: 3 |  Ответов: 0
    22:11 / 17 окт.  SNE !!! SOS! Help me! Please... | Хитов: 21 |  Ответов: 1
    21:22 / 17 окт.  Кодирование web цветов | Хитов: 7 |  Ответов: 1
    18:55 / 17 окт.  ? по двоичным массивам | Хитов: 21 |  Ответов: 4
    18:48 / 17 окт.  Conneting | Хитов: 28 |  Ответов: 2
    18:25 / 17 окт.  Ярлыки | Хитов: 11 |  Ответов: 1
    18:02 / 17 окт.  Деревья в VB | Хитов: 35 |  Ответов: 6
    11:55 / 17 окт.  Началась регистрация участников NetOI-2004 | Хитов: 28 |  Ответов: 5
    11:49 / 17 окт.  Это опять таки я! | Хитов: 35 |  Ответов: 4
    10:23 / 17 окт.  Синхронизация времени | Хитов: 29 |  Ответов: 3
    03:43 / 17 окт.  Помогите найти! | Хитов: 5 |  Ответов: 1
    03:20 / 17 окт.  2 предложения сразу | Хитов: 28 |  Ответов: 4
    00:59 / 17 окт.  Как ЭТО сделать? | Хитов: 41 |  Ответов: 2
    00:52 / 17 окт.  Работа с PAK файлами | Хитов: 27 |  Ответов: 3
    22:13 / 16 окт.  История из жизни | Хитов: 32 |  Ответов: 3
    21:19 / 16 окт.  HomeWork Statist | Хитов: 37 |  Ответов: 6
    21:01 / 16 окт.  Надо нормальный класс | Хитов: 14 |  Ответов: 0
    20:43 / 16 окт.  Ребята, помогите найти нормальный хост... | Хитов: 23 |  Ответов: 2
    18:35 / 16 окт.  Как SeShutdownPrivilege получить в VB? | Хитов: 25 |  Ответов: 4


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



    наверх

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

    • Финансовое хранилище данных для крупнейших банков
      ООО «Майкрософт Рус» и компания Intersoft Lab объявляют об успешном проекте портирования Хранилища данных «Контур Корпорация» на платформу Microsoft SQL Server 2000 Enterprise Edition (64-bit).


    наверх

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

    • 11.10.2004 - MSDN Flash - бюллетень MS04-028 и другие новости
      Важнейшие материалы, новые веб-ресурсы, продукты и технологии наших партнеров, веб-презентации, общение в режиме реального времени, мероприятия для разработчиков


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



    наверх

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

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



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



    наверх

    Один момент из жизни форума: Узнать смещение от Гринвича

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

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

       Откуда в виндах можно прочитать time zone? Конкретно нужно смещение от Гринвича (т.е. часовой пояс).


    Ответы:

    Автор: Comanche
       http://support.microsoft.com/?kbid=221542



    наверх

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

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

    Вопросы:

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

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

       Как сделать, чтобы форма и все ее объекты изменяли размер соответственно текущему разрешению экрана?

    Автор вопроса: Игорь

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

       Как сделать поиск Unicode текста в Unicode листбоксе? (FM20.DLL)

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

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

       Написаные мною проги работают только на моей машине, а на других выдают "Unexpected Error". Пишу на VB 6.0.

    Автор вопроса: Ольга

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

       Где можно найти хорошее описание и примеры, как работать на VB с SQL сервером, как написать программу типа клиент и сервер, и где можно взять дистрибутив SQL сервера?



    Ответы:

    Вопрос:

       Есть текстовый файл в котором надо заменить только первую строку. Можно конечно загрузить весь документ в текстбокс, там подменить первую строку и обратно записать в файл. Есть ли более простой вариант, как можно это сделать (файлы большие, долго загружает)?

    Ответ:

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

    Зачем грузить в TextBox? Попробуй так:

         dim strtext as string
         dim fs as boolean
             open "c:\in.txt" for input as #1
             open "c:\out.txt" for output as #2
             do while not eof(1)
                input #1, strtext
                if fs = false then strtext = "Твоя первая строка":fs = true
                print #2, strtext
             loop
             close

    Книга в 500 кб обрабатывается моментально.


    Ответ:

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

    Код будет вроде такой:

    Dim a As Integer
    a = FreeFile
    Dim a2 As Integer
    Dim str As String
    Open "c:\1.txt" For Input As a
    a2 = FreeFile

    Open "c:\1.tmp" For Output As a2
    Input #a, str
    str = "Iiaay no?iea"
    Print #a2, str
    Do Until EOF(a)
         Input #a, str
         Print #a2, str
    Loop
    Close
    Kill "c:\1.txt"
    Name ("c:\1.tmp") As ("c:\1.txt")


    Ответ:

    Автор ответа: Хатламаджиян

    Dim FN As Integer
    FN = FreeFile
    Open FileName For Input As #FN
            Line Input #FN, read_line 'Будет считана одна строка. В данном случае первая
    Close #FN

    'Там ещё была проверка на возможность считывания (может быть файл пуст), но я уже забыл как это делается
    'Таким способом можно считать весь текст по строкам. Но это уже по желанию.

    Вопрос:

       Как осуществить поиск по заданным параметрам из MS Access таблицы (например, найти все имена на букву "а")?

    Ответ:

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

    SELECT DataName FROM tblTEST WHERE DataName LIKE "*a*"


    Ответ:

    Автор ответа: Хатламаджиян

    Не знаю, какая там у тебя таблица, но я могу показать пример запроса.

    SELECT * FROM my_table WHERE name_field LIKE 'a*';

    --Будет выводить строки, где поля name_field начинаются с буквы "a"

    Вопрос:

       Как из программы на VB6 найти окно сообщения сторонней программы и прочитать в переменную текст из этого окна?

    Ответ:

    Автор ответа: Хатламаджиян

    Создаёшь форму, на ней ставишь контролы:

        Window1 (Label)
        Window2 (Label)
        Timer1 (Timer)

    и пишешь в ней следующий код:

    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Type POINTAPI
         X As Long
         Y As Long
    End Type
    Private Sub Timer1_Timer()
    Dim cp As POINTAPI, hwnd As Long, s As String
    GetCursorPos cp
    hwnd = WindowFromPoint(cp.X, cp.Y)
    s = Space(128)
    GetWindowText hwnd, s, 256
    If Asc(Left(s, 1)) = 0 Then GetClassName hwnd, s, 256
    Window1.Caption = s
    GetClassName hwnd, s, 256
    Window2.Caption = s
    DoEvents
    End Sub

    'Запускаешь прогу, наводишь курсор мыши на другие окна и ...

    Вопрос:

       У кого-нибудь найдется электронный справочник по WinApi?

    Ответ:

    Автор ответа: Хатламаджиян

    http://www.student.kuleuven.ac.be/~m0116986/3.7/agsetup.exe

    или

    http://users.chello.be/cr27630/3.7/agsetup.exe

    Это один и тот же ресурс, но на разных серверах. Здесь коллекция API функций и примеры к ним (на VB 6.0 и VB.NET).


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

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

    наверх

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

    		 Сурменок Павел
    http://subscribe.ru/
    http://subscribe.ru/feedback/    		 Подписан адрес:
    Код этой рассылки: comp.soft.prog.vbnewsadvices    		 Отписаться
    В избранное