Отправляет email-рассылки с помощью сервиса Sendsay

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

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.067 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.067 подписчиков
0 за неделю
←   Все выпуски   →

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


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

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

VBNet VBMania
Ссылки:

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

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

       VS .Net 2005 - отличная вещь! Такой мощный редактор XML! Кстати, никто случайно не знает, как в .NET средствами System.XML создать в XML-документе DTD-блок?
    Читайте!


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



    Как обработать обращение к пустому дисководу?

    Вопрос:

    Как сделать так, чтобы при обращении к пустому флопику (А:\), выдовалось, стандартное сообщение, что диска нет..., или, если можно, то чтобы вообще ничего не выдовалось?

    Ответ:

    On Error Resume Next

    Поставишь перед обращением к флопику и никаких ошибок!

        Забаев Сергей

    On error goto ErrH
    ToDisk:
    Тут обратиться к диску
    on error goto o

    Exit sub

    NoDisk:
    Тут сделать все, что надо сделать, если нет диска.
    exit sub

    errh:
    if msgbox ("НЕТ ДИСКЕТЫ!!! ВСТАВЬТЕ ДИСКЕТУ!!!",vbCritical _
               +vbRetryCancel) = vbRetry then
               goto ToDisk
    else
         goto NoDisk
    end if
    end sub

        Артем Кривокрисенко

    наверх

    Как в таблице DBGrid изменить названия колонок?

    Вопрос:

    Как в таблице DBGrid изменить названия колонок?

    Ответ:

    DataGrid1.Columns(0).Caption = "Новый заголовок"

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

    наверх

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

    Вопрос:

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

    Ответ:

    Public Function LoadTextFile(Path As String) As String
       Dim strFile As String
           
       Open Path For Binary As #1
       strFile = Space$(LOF(1))
       Get 1, , strFile
       Close #1
       LoadTextFile = strFile
    End Function

    Public Function SaveTextFile(Path As String, Text As String)
         Open Path For Binary As #1
         Put #1, , Text
         Close #1
    End Function

         Артем Кривокрисенко

    наверх

    Как выделить определенный элемент в listbox?

    Вопрос:

    Есть текстовое поле. Как при нажатии на кнопку выделить элемент в листе, соответствующий тексту в текстовом поле?

    Ответ:

    Dim i As Integer

    l = Text1.Text
    For i = 0 To List1.ListCount - 1
    Select Case List1.List(i)
    Case Is = l
    List1.ListIndex = i
    List1.SetFocus
    End Select
    Next i

        Yuliya Shelmuk

    dim strFind as string
    strFind="абракадабра" & chr(0)
    lngtemp=sendmessage(List1.hwnd,LB_SELECTSTRING,1,strText)

    В переменную lngTemp вернется позиция выделенного элемента.

        Артем Кривокрисенко

    наверх

    Как узнать размер массива?

    Вопрос:

    Имеется масив созданый из строк
    AllStrings = Split(tmp, vbCrLf)
     Как узнать его размер?

    Ответ:

    Ubound(AllStrings) вернет конкретно что нужно.

        Артем Кривокрисенко


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

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

    Вопросы:

    Автор вопроса: Иван Зенин

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

       Подскажите, пожалуйста, как сохранить html страницу со всем её содержимым(картинки, скрипты,...).

    Автор вопроса: Николай

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

       Как добавить, изменить, удалить данные в связанных таблицах реляционной базы данных? Хотелось бы пример на VB5.



    Ответы:

    Вопрос:

       =Как с помощь VBA проверить включены ли на странице EXCEL фильтры данных для столбцов, если фильтр включен, то выполнть Showall, если нет, то... и т.д.? Проверка включенного фильтра данных никак не получается.

    Ответ:

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

    Сделай проще:

    for i=1 to N ' кол-во информативных столбцов
         Selection.AutoFilter Field:=i
    next
    ' просто сбрасываешь все фильтры и если надо устанавливаешь по новой:
    Selection.AutoFilter Field:=<№ столбца>, Criteria1:="<твой критерий>"

    Вопрос:

       Нужно подать напряжение на компьютер (на какой порт не важно) и по кнопке смотреть, какое напряжение подано.

    Ответ:

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

    Это сделать невозможно!
    Железо этого не позволит - оно просто погарит
    Нужно подавать только определенно разрешенное напряжение, которое допускается как внешний сигнал
      
    Подай 220 вольт и увидишь это по экрану монитора :)

    Вопрос:

       Есть ли в Vb6 функция поиска текста по формуле?
    Что делает функция InStrRev?

    Ответ:

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

    Функция InStrRev ищет подстроку в указанной строке в конца к началу и возврашает позицию найденного текста (от начала строки, а не от конца).

    Вопрос:

       Пишу прогу для обмена сообщениями в локальной сети (VB6). Использую WinSock, протокол TCP. Есть программа-сервер и программа-клиент. Так вот, сервер слушает порт (например № 1000), а клиент к нему подключается. НО! Клиенту необходимо узнать, "дружественное" имя сервера или его IP-адрес, а сервер может запускаться на любой машине в сети. Как быть? Как узнать имя машины, на которой запущена программа-сервер?

    Ответ:

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

    Варианта собственно 3:

    1) По старинке писать IP сервера при подключении
    2) Просканировать подсеть на наличие сервера(ов) и дать клиенту возможность выбора к какому подключаться
    3) Совместить клиента и сервера в одном флаконе (чтоб каждый клиент был сам себе сервером и работал с остальными на равных)


    Ответ:

    Автор ответа: Антон Лозовский

    Можно использовать протокол UDP и метод широковещательной рассылки пакетов в сети. Смысл таков - в локальных сетях IP адрес 255.255.255.255 выделен для широковещательной рассылки пакетов, т.е., если мы, используя UDP протокол, пошлем в определенный порт на адрес 255.255.255.255 посылку, то ее получат в этом порту все компьютеры данной подсети. Это можно в свою очередь использовать для определения IP адреса сервера - сервер получает определенную посылку в определенный порт (а посылка шла на 255.255.255.255), а затем (если это именно та посылка, потому что всякие коммуникационные устройства используют широковещательные рассылки) посылает тоже широковещательно свой IP адрес.


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

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

    наверх

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

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