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

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


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

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


VBNet VBMania
Ссылки:

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

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

       Здравствуйте...
    Читайте!


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




    Какого надо выбирать провайдера, чтобы, например к ADO-контролу подключать dbf-файлы?

    Вопрос:

    Какого надо выбирать провайдера, чтобы, например к ADO-контролу подключать dbf-файлы. Что-то у меня ни с каким не получается.

    Ответ:

    Все просто. В провайдере указывается путь к каталогу. Даже если установить его как, например, "C:\blabla\dbf\myfile.dbf" система адо не будет использовать это имя файла для нее все равно будет C:\blabla\dbf\, то есть для запросов становятся доступны все файлы в этом каталоге. Это как открытие mdb файла. То есть аналогия каталог это база mdb а файлы в каталоге как таблицы в нем.

    Запрос пишешь следующим образом SELECT * FROM myfile.dbf

    Вызов будет следующий.

    Dim rs as ADODB.Recordset
    Dim objDbf as CDbf 'объявим экзепляр класса

    Set objDbf = New CDbf 'создадим объект
    objDbf.FilePath = "C:\blabla\dbf\" ' установим активный каталог для провайдера адо
    Set rs = objDbf.GetData("SELECT * FROM myfile.dbf") 'Получим рекордсет
    Set objDbf = Nothing 'уничтожим объект

        Igor

    наверх


    Как сделать так, чтоб пришедшие письма от разных канференций различались по цвету?

    Вопрос:

    Я участвую в нескольких конференциях Soobcha. Нужно сделать так, чтоб пришедшие письма от разных канференций различались по цвету. В MSOutlook это можно делать, а как сделть в TheBat?

    Ответ:

    В "настройках сортировщика писем", на вкладке "Дополнительно" есть такой чекбокс - "Письмо в цветовой группе". Только перед этим нужно установить эту "Цветовую группу" в меню "Свойства" командой "Цветовые группы писем..."

        Eugene

    Можно создать для каждой конференции свою папку в Bat'е и настроить сортировщик, чтобы он распихивал письма по папкам.

        Денис

    Чтоб письма группировались по темам, нужно сделать следующее:
    Вид - просмотр цепочек - по теме (View - View Threads By - Subject)
    Единственное неудобство - если кто-нить разорвет нить, т.е. ответит на тему новым письмом. Но это бывает достаточно редко.

        Alex Juice

    наверх


    Как сделать так, чтобы при вводе текста в TextBox буквы там становились большими?

    Вопрос:

    Хотелось бы, чтобы при вводе текста в TextBox буквы там становились большими.

    Пробовал
    Private Sub TxtBox_KeyPress(KeyAscii As Integer)
    TxtBox = UCase(TxtBox)
    End Sub

    Не работает.

    Ответ:

    Можно так:

    Private Sub TxtBox_KeyPress(KeyAscii As Integer)
        KeyAscii = Asc(UCase(Chr$(KeyAscii)))
    End Sub

        Savenger

    Можно и так:

    Private Sub Text1_Change()
        Dim lngSelStart As Long
        lngSelStart = Text1.SelStart
        Text1.Text = UCase(Text1.Text)
        Text1.SelStart = lngSelStart
    End Sub

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

    наверх


    Почему в списках доступных контролов WinSock'а нигде нет?

    Вопрос:

    Открыл свои проекты, в которых WinSock использован, а VB (6) сообщает, что не удается продолжить загрузку.

    Поглядел в списках доступных контролов - WinSock'а нигде нет. Поискал в директории со старой Win98 wsock*.ocx - тоже нет, но в 98 всё работало. Что делать?
    PS: сейчас у меня Win2k.

    Ответ:

    По умолчанию его в Windows нет. Просто возьми где-нибудь wsock32.dll, запиши в Windows/system32 и зарегистрируй.
    Если взять негде, он есть в составе сервиспаков для VS6 (я пробовал из SP5 доставать).

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

    наверх


    Как можно BackColor менять у строк ListView в режиме report?

    Вопрос:

    Кто знает как можно BackColor менять у строк ListView в режиме report?
    Ме нужен фон. Но фон строки. Не всего контрола.

    Ответ:

    Нужно использовать API и субклассинг (см. прикрепленный файл SubClassingListView.zip)

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



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

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

    Вопросы:



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


    Ответы:


    Вопрос:

       Как сделать, чтобы программа не была видна во время работы, работала в фоновом режиме?

    Ответ:

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

    form1.visible = false



    Ответ:

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

    С помощю АПИ:
      
    Publ ic Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
      
    Public Type POINTAPI
            x As Long
            y As Long
    End Type


    Вопрос:

       Привет народ. У меня возникла такая проблемка. Когда добавляешь программно текст в текстбокс (text1.text=text1.text & vbcrlf & "123"), ты попадаешь вначало всего текста. Мне нужно, чтобы я попал в конец всего текста. Как это сделать?

    Ответ:

    Автор ответа: Sergey Eliseyev

    Если не хочешь пользоваться API, то в модуле формы:

    Dim dropDown() as boolean
      
    Private Sub ComboBox_DropDown(Index As Integer)
         dropdown(Index) = True '
    End Sub
    Private Sub ComboBox_Click(Index As Integer)
         If dropdown(Index) Then dropdown(Index) = False
    End Sub



    Ответ:

    Автор ответа: Пащенко А.

    Text1.SelStart=len(Text1)



    Ответ:

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

    Text1.SelStart = Len(Text1.Text)



    Ответ:

    Автор ответа: Valery Tesher

    Text1.SelStart = Len(Text1.Text)
    Text1.SetFocus


    Вопрос:

       Я тут написал такой код:

    Dim InitialНeight As Integer
    Dim CalculatedHeight As Integer
    Dim NewCalculatedHeight As Integer
    Dim Restoration As Boolean
    Private Sub Form_Load()
         InitialНeight = Screen.Height
         Restoration = False
    End Sub
    Private Sub tmrTimer_Timer()
         NewCalculatedHeight = Screen.Height
         If InitialНeight <> NewCalculatedHeight Then
             CalculatedHeight = Screen.Height
             If InitialНeight <> CalculatedHeight Then
                 Restoration = True
             End If
         Else
             If Restoration = True Then
                 MsgBox "Разрешение экрано восстановлено!", vbExclamation + vbInformation, "Экран"
                 Restoration = False
             End If
         End If
    End Sub

    Так вот, при запуске из Васика все работает, а откомпилированная прога - нет #:-o. Кто-нибудь знает, в чем тут собака порылось, а главное, как баг исправить?

    Ответ:

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

    Единственно, что могу сказать, так то, что у меня тоже была фигня с таймером. Выражалось все в том, что таймер почему-то работал через двойной интервал. Т.е. если я задал интервал 30000, то он срабатывал первый раз через 60000, а потом уже нормально - через 30000.




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

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

    наверх


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

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


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


    В избранное