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

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

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

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


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

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

VBNet VBMania
Ссылки:

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

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

       Новый выпуск. Это заметно?
    Читайте!


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



    Как выделить определенный элемент в 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 вернется позиция выделенного элемента.

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

    наверх

    Как программно отключить заставку Windows?

    Вопрос:

    Как программно отключить заставку Windows?

    Ответ:

    Можно, в файле System.ini, который храниться в каталоге WINDOWS есть ссылка на имя текущей заставки и если её удалить, то и заставки не будет.
    Сделать это можно так:

    Private Sub SwitchOffScreenSaver()
       Dim FileNoRd As Integer
       Dim FileNoWr As Integer
       Dim WinDir As String
       Dim szData As String
       Dim szExample As String
               
       szExample = "SCRNSAVE.EXE"
       WinDir = GetWinDir 'Используем нашу новую функцию для получения каталога Windows (см. выше)
       FileNoWr = FreeFile 'Получаем свободный номер для записи
       'открываем временный файл для построчного сохранения данных.
       Open "C:\mytemp.tmp" For Output As #FileNoWr
          FileNoRd = FreeFile 'Получаем свободный номер для чтения
          'открываем рабочий файл для анализа и изменения
          Open WinDir & "System.ini" For Input As #FileNoRd
             Do Until EOF(FileNoRd)
                Line Input #FileNoRd, szData
                'Если мы находим в файле наш пример и его длина совпадает,
                If Mid(szData, 1, Len(szExample)) = szExample Then
                   'то очищаем значения найденной строки для _
                    отключения заставки.
                   szData = szExample & "="
                End If
                Print #FileNoWr, szData
             Loop
       Close 'Закрываем все открытые файлы
       'Копируем новые данные из временного файла в System.ini
       FileCopy "C:\mytemp.tmp", WinDir & "System.ini"
       Kill "C:\mytemp.tmp" 'Удаляем временный файл
    End Sub

    SC

    наверх

    Возможна ли одновременная работа в одной программе двух Winsock?

    Вопрос:

    Возможна ли одновременная работа в одной программе двух Winsock, один работает на приём сообщений (так сказать в режиме ожидания сообщений), а второй - на отправку сообщений ?

    Ответ:

    А что тебе мешает?

    Вот выдержка из MSDN (благополучно работают два сокета):

    To create a TCP server
    Create a new Standard EXE project.
    Change the name of the default form to frmServer.
    Change the caption of the form to "TCP Server."
    Draw a Winsock control on the form and change its name to tcpServer.
    Add two TextBox controls to the form. Name the first txtSendData, and the second txtOutput.

    Add the code below to the form.
    Private Sub Form_Load()
    ' Set the LocalPort property to an integer.
    ' Then invoke the Listen method.
    tcpServer.LocalPort = 1001
    tcpServer.Listen
    frmClient.Show ' Show the client form.
    End Sub

    Private Sub tcpServer_ConnectionRequest _
    (ByVal requestID As Long)
    ' Check if the control's State is closed. If not,
    ' close the connection before accepting the new
    ' connection.
    If tcpServer.State <> sckClosed Then _
    tcpServer.Close
    ' Accept the request with the requestID
    ' parameter.
    tcpServer.Accept requestID
    End Sub

    Private Sub txtSendData_Change()
    ' The TextBox control named txtSendData
    ' contains the data to be sent. Whenever the user
    ' types into the textbox, the string is sent
    ' using the SendData method.
    tcpServer.SendData txtSendData.Text
    End Sub

    Private Sub tcpServer_DataArrival _
    (ByVal bytesTotal As Long)
    ' Declare a variable for the incoming data.
    ' Invoke the GetData method and set the Text
    ' property of a TextBox named txtOutput to
    ' the data.
    Dim strData As String
    tcpServer.GetData strData
    txtOutput.Text = strData
    End Sub

    The procedures above create a simple server application. However, to complete the scenario, you must also create a client application.

    To create a TCP client Add a new form to the project, and name it frmClient. Change the caption of the form to TCP Client. Add a Winsock control to the form and name it tcpClient. Add two TextBox controls to frmClient. Name the first txtSend, and the second txtOutput. Draw a CommandButton control on the form and name it cmdConnect. Change the caption of the CommandButton control to Connect. Add the code below to the form. Important Be sure to change the value of the RemoteHost property to the friendly name of your computer.

    Private Sub Form_Load()
    ' The name of the Winsock control is tcpClient.
    ' Note: to specify a remote host, you can use
    ' either the IP address (ex: "121.111.1.1") or
    ' the computer's "friendly" name, as shown here.
    tcpClient.RemoteHost = "RemoteComputerName"
    tcpClient.RemotePort = 1001
    End Sub

    Private Sub cmdConnect_Click()
    ' Invoke the Connect method to initiate a
    ' connection.
    tcpClient.Connect
    End Sub

    Private Sub txtSendData_Change()
    tcpClient.SendData txtSend.Text
    End Sub

    Private Sub tcpClient_DataArrival _
    (ByVal bytesTotal As Long)
    Dim strData As String
    tcpClient.GetData strData
    txtOutput.Text = strData
    End Sub

    The code above creates a simple client-server application. To try the two together, run the project, and click Connect. Then type text into the txtSendData TextBox on either form, and the same text will appear in the txtOutput TextBox on the other form.

    Sergey Y. Tkachev

    наверх

    Как поменять местами слова?

    Вопрос:

    Нужно сделать следующее: введя предложение из трех слов в текстбокс, и по нажатию кнопки, в этом предложении два последних слова должны поменяться местами. Как это сделать.

    Ответ:

    Dim masTemp() As String
    masTemp() = Split(Text1.Text, chr$(32))
    Text1.Text = masTemp(0) & " " & masTemp(2) & " " & masTemp(1)

        .::Savenger::.

    наверх

    Как открыть базу не в монопольном режиме?

    Вопрос:

    База с паролем не открывается в том случае, если она уже где-то открыта, например в том же Аксесе. Так вот что надо написать, чтобы база открывалась не в монопольном режиме?

    Ответ:

    Set NewDB = NewWs.OpenDatabase(strDBPath,EncryptOptions, true, _
    dbLangCyrillic & ";pwd=PASSWORD")

        [Алексей]


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

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

    Вопросы:

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

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

       Как осуществить ввод и (или) изменение данных в связанных таблицах реляционной базы данных?

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

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

       Кто-нибудь знает, как снизить загрузку проца при длительном приеме (передаче) данных через WinSock, а то у меня уже при 8-ти работающих экземплярах Winsock'а, связанных с восемью разными компами (я пытаюсь сделать один распределенный алгоритм...) процессор загружен на 100% (!) и все восемь экземпляров начинают работать с периодическими остановками в приеме (передаче) данных. Для эксперимента я в цикле DO...LOOP на удаленную машину отправлял один символ, а удаленная машина, получив его, его же отправляла мне обратно и процесс повторялся.
    Пробовал экспериментировать и вместо OCX-компонента WinSock'а использовал чистый API - результат тот-же! Может это такая особенность VB6 пожирать ресурсы при работе WinSock? Для сравнения: всем известный RemoteAdministrator (версии 2.1) при передаче целого экрана (!) удаленной машины с частотой сканирования 100 раз в секунду при 65536 цветах съедает всего лишь 3-5% ресурсов проца. Если кто знает, как с этим бороться - подскажите!

    Автор вопроса: Андрей

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

       Ребят, кто-нить работал в среде VB с MySQL бд-шкой, и есть ли вообще возможность с ней работать?

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

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

       Подскажите плиз, есть ли примочка для VB6 (dll или ocx) для подключения к таблицам БД формата Visual FoxPro 5.0 или выше. ADO не предлагать!

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

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

       У кого есть, либо кто знает, где взять исходник аналога Microsoft Internet Transfer Control?

    Автор вопроса: Михаил

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

       Хочу скачать Servis Pack-6 для Visual Studio-6, нужно ли будет его регистрировать? И еще, нужно ли для этого, чтобы был установлен другой SP, например SP-5?

    Автор вопроса: Надвiрна ОДГ

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

       Кто может подсказать библиотеку для работы в VB с комлексными числами и матрицами (суммирование, произведение, деление, сопряжение, инвертирование...)?



    Ответы:

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

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

    наверх

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

    		 Сурменок Павел
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    В избранное