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


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

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

VBNet VBMania
Ссылки:

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

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

       За последние дни ничего сверхъестественного не случалось. ПО-немногу наступает осень. Сейчас за окном 0:12 по местному времени, и идет дождь. Рядом спит вечно голодный кот, передо мной тихо шумит ноутбук. Такая вот картинка :)
    Читайте!


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



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

    Дата: 16.08.2004 18:48 | Раздел: Примеры кода | Автор: empro

    Isq - I S Q (quick image saver) создан для быстрого сохранения имэйджа из буфера. То есть скажем скриншотишь любимую игру и файлы при нажатии PrintScreen + F5 автоматически сохраняются без выхода в Windows. не особо интересная программа, но может пригодится...

    Дата: 16.08.2004 18:44 | Раздел: Примеры кода | Автор: Дорохов Кирилл

    Kerish Galaxy - Космическая леталка с приятной графикой и музыкой. Еще один камень в огород тем, кто говорит, что на VB нельзя делать хорошие игры.

    Дата: 16.08.2004 18:39 | Раздел: Примеры кода | Автор: sne

    API ListView Control - ListView написан на АПИ, не требует никаких ocx, оформлен в виде одного-лишь класса.


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

    11:43 / 21 авг.  Функция FileCopy  | Хитов: 5 |  Ответов: 2
    07:41 / 21 авг.  Как отправить запроз HTTP-серверу | Хитов: 7 |  Ответов: 1
    01:48 / 21 авг.  Работа с DB | Хитов: 7 |  Ответов: 0
    01:44 / 21 авг.  SP2 for WinXP -- Installation | Хитов: 13 |  Ответов: 1
    22:49 / 20 авг.  Инициализация окна OpenGL в VB6 через WIN32 API? | Хитов: 19 |  Ответов: 3
    20:35 / 20 авг.  Помогите!!!! | Хитов: 53 |  Ответов: 10
    17:35 / 20 авг.  Не удается вывести нужную страницу помощи | Хитов: 23 |  Ответов: 3
    16:31 / 20 авг.  Динамическое добавление массива эл-в управления | Хитов: 18 |  Ответов: 1
    13:40 / 20 авг.  Как установить хук на изменение...-> | Хитов: 43 |  Ответов: 7
    02:44 / 20 авг.  Очччень Нужна прога... | Хитов: 90 |  Ответов: 18
    01:03 / 20 авг.  $$Работа тому, кто умеет программировать на PHP$$ | Хитов: 25 |  Ответов: 0
    01:00 / 20 авг.  Таблица. | Хитов: 27 |  Ответов: 3
    00:41 / 20 авг.  Что такое Super Audio CD? | Хитов: 31 |  Ответов: 4
    00:40 / 20 авг.  Kak vozvisti chislo v spemen' ???? | Хитов: 45 |  Ответов: 4
    00:14 / 20 авг.  Как перевести сторку байтов - в биты.. | Хитов: 23 |  Ответов: 1
    23:38 / 19 авг.  Как запустить проверку диска под WIN 2000? | Хитов: 19 |  Ответов: 1
    22:26 / 19 авг.  UserControl.Move | Хитов: 34 |  Ответов: 7
    22:21 / 19 авг.  Как сделать меню с НОРМАЛЬНЫМИ картинками | Хитов: 41 |  Ответов: 4
    20:36 / 19 авг.  Наводки? | Хитов: 64 |  Ответов: 10
    19:50 / 19 авг.  Из цифр в пропись - траблы в коде | Хитов: 32 |  Ответов: 6


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



    наверх

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



    наверх

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



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



    наверх

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

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



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



    наверх

    Один момент из жизни форума: Не удается вывести нужную страницу помощи

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

    Вопрос:
    Автор вопроса: П.С.

       Проблема с помощью в программе, созданной на Visual Basic 6.0:
    Указываю имя файла справки в свойствах проекта (например, help.chm), указываю в свойстве формы HelpContextID номер раздела справки (например, 10), но при нажатии F1 открывается всегда начальная страница справочной системы.

    Файл справки создан в программе HelpWorkShop 1.1. Пробовал подключать "сторонние" файлы справок, но тоже выдается только главная страница.

    В чем тут дело?


    Ответы:

    Автор: CyRax
       Вот нашёл у себя на винте.

    Declare Function HtmlHelpLongArg Lib "hhctrl.ocx" _
    Alias "HtmlHelpA" (ByVal hwndCaller As Long, _
    ByVal pszFile As String, ByVal uCommand As Long, _
    ByVal dwData As Long) As Long

    Public Const HH_HELP_CONTEXT = &HF


    On Error Resume Next
    Dim iRetCode As Long
    iRetCode = HtmlHelpLongArg(Me.hwnd, App.Path & "\Справка.chm", HH_HELP_CONTEXT, Me.ActiveControl.HelpContextID)

    PS: На самом деле настоящее название внешней функции идёт после Alias, а то что в объявленни - это псевдоним. Псевдоним может быть какой хочешь.
    Например в этом случае настоящим именем будет Alias "HtmlHelpA", а псевдонимом HtmlHelpLongArg. Ты можешь объявить и так:
    Declare Function ЛюбоеНовоеИмя Lib "hhctrl.ocx" Alias "HtmlHelpA" ...



    наверх

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

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

    Вопросы:

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

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

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

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

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

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

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

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

       Как VB занести машинный код?

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

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

       У кого есть контрол чтобы сделать горячие клавиши вышлите пожалуйста. Или как сделать горячие клавиши без контрола?

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

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

       Как открыть один CD-ROM из 4 возможных?

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

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

       Как сделать чтобы, при нажатии кнопки cmd выполнялись такие действия :
    1. Создание файла Excel с именем Name.
    2. Занесение в ячейку А2 значение переменной тхт1.
    3. Занесение в ячейку А3 значение переменной тхт2.

    Автор вопроса: Виктор

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

       В чем моя ошибка?

    Private Sub Запись()
    Open App.Path & "\файл" For Append As #1
      With Сервер 'Тип обозначен ранее
       .Имя = txtName.Text
       .Адрес = txtAdress.Text
       .Порт = txtPort.Text
        Write #1, .Имя; .Адрес; .Порт
      End With
    Close #1
    End Sub
      
    Вот, эта функция успешно записывает все данные в файл. Теперь мне надо прочесть данные из файла и разместить это в ListView'е. Делаю я это так:

    Private Sub Чтение()
    Dim i As Long
    Dim DAS As ListItem
    Open App.Path & "\файл" For Input As #2
    i = 1
    Do While Not EOF(2)
      With Сервер
         Set DAS = ListView1.ListItem.Add (.Имя)
         DAS.SubItem(1) = .Адрес
         DAS.SubItem(2) = .Порт
      End With
    i = i + 1
    Loop
    Close #2
    End Sub

    Так вот, проблема заключается в незаполнении ListView. Я не пойму, почему. Может кто-то подскажет



    Ответы:

    Вопрос:

       Интересно узнать, существует ли возможность изменения цвета текста в TextBox (например, одно слово одним цветом, другое - другим). Если нет, то есть ли какой-нибудь альтернативный контрол?

    Ответ:

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

    Попробуй Microsoft RichTextBox Control:

    private sub Col
    ...
    RichTextBox1.SelStart = 1 ' с первого символа
    RichTextBox1.SelLength = 5 ' по пятый
    RichTextBox1.SelColor = vbRed ' цвет красный
    ...
    end sub


    Ответ:

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

    В обычном TextBox’е такое не выйдет. Можно использовать RichTextBox.


    Ответ:

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

    Это контрол RichTextbox!
    Там свойство selcolor, которое изменяет цвет выделенного текста.
    Сам текст хранится в свойстве text.

    Вопрос:

       Как определить, существует ли устройство (логичечкий, лазерный диск или дисковод) в системной конфигурации, и как определить его вид (см.выше)? Напрмер, программе надо определить, есть второй дисковод или второй (третий) cd-rom, или узнать, сколько логических (жестких) дисков имеет данный компьютер. Как это сделать?

    Ответ:

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

    a=Drive1.ListCount-1 ' кол-во дисков
    for i=1 to a
         if instr(1, Drave1.List(i), "\\") then ' сетевой
         else
             if instr(1, Drave1.List(i), "CD-ROM") then ' CD-ROM
             else
             end if
         end if
    next


    Ответ:

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

    Вот пример кода:

    Option Explicit
    Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As
    Long, ByVal lpBuffer As String) As Long
    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
    Private Sub Form_Load()
         Dim strSave As String, ret As Long, i As Integer, arr() As String
         Me.AutoRedraw = True
         strSave = String$(255, vbNullChar)
         ret = GetLogicalDriveStrings(255, strSave)
         strSave = TrimLeftNull(strSave)
         arr = Split(strSave, vbNullChar)
         For i = 0 To UBound(arr)
             getDRVType arr(i)
         Next i
    End Sub
    Private Sub getDRVType(Drv As String)
         Dim text As String
         Me.AutoRedraw = True
         text = Drv & " - "
         Select Case GetDriveType(Drv)
             Case 2: text = text & "Removable"
             Case 3: text = text & "Drive Fixed"
             Case 4: text = text & "Remote"
             Case 5: text = text & "Cd-Rom"
             Case 6: text = text & "Ram disk"
             Case Else: text = text & "Unrecognized"
         End Select
         Me.Print text
    End Sub
    Private Function TrimLeftNull(str As String) As String
    Dim i As Integer
    For i = Len(str) To 1 Step -1
         If Mid$(str, i, 1) <> vbNullChar Then Exit For
    Next i
    TrimLeftNull = Left$(str, i)
    End Function


    Ответ:

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

    Используйте Microsoft Scripting (найдите его в project/references). Это даст возможность использовать FileSystemObject (FSO), а там, в свою очередь, можно получить информацию о коллекции приводов (drives). И у каждого привода есть свойство типа (лазерный, жесткий, сетевой, виртуальный и пр).

    Пример по памяти, к сожалению, привести не могу, но, сделав reference на Microsoft Scripting, и зайдя в Object Browser (F2 в VB), вы можете ознакомиться с его объектной моделью, и увидеть enum типовов привода.


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

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

    наверх

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

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