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

Какого надо выбирать провайдера, чтобы, например к 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 для ответа

наверх