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

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


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

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


VBNet VBMania
Ссылки:

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

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

       Новый выпуск!
    Читайте!


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




    Aslof рекомендует

       Ищешь фильм?
    http://subscribe.ru/catalog/rest.cinema.filmforyou
    Сайт рассылки - http://aslof.balzer.ru/


    Citycat by Email

       Программа Citycat by Email позволяет работать с сервером Subscribe.ru с помощью электронной почты. Теперь Вам не нужно тратить деньги на работу в online и просматривать мегабайты рекламы для того, чтобы подписаться на нужную рассылку! Вам просто необходимо скачать небольшую базу данных по всем рассылкам каталога с нашего сайта, после чего Вы сможете подписываться и отписываться от рассылок, заказывать архивы прошлых выпусков, выполнять поиск по каталогу рассылок и многое другое.
       Программу Citycat by Email можно бесплатно загрузить с сайта http://sapisoft.h1.ru.

    наверх


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



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

    03:41 / 25 янв.  Obnovlenie... | Хитов: 4 |  Ответов: 0
    02:20 / 25 янв.  VB+MySQL | Хитов: 1 |  Ответов: 0
    01:27 / 25 янв.  Глупо но нужно... | Хитов: 8 |  Ответов: 5
    00:46 / 25 янв.  СЕТЕВАЯ АНОНИМНОСТЬ | Хитов: 2 |  Ответов: 0
    23:16 / 24 янв.  Множественный выбор в common dialog | Хитов: 9 |  Ответов: 2
    23:07 / 24 янв.  PBForms 1.5 | Хитов: 16 |  Ответов: 5
    22:58 / 24 янв.  HEEELP!! | Хитов: 15 |  Ответов: 2
    21:36 / 24 янв.  ToolTip | Хитов: 6 |  Ответов: 0
    20:33 / 24 янв.  ВРЕМЯ И ДАТА В МОЕЙ ПРОГРАММЕ | Хитов: 10 |  Ответов: 3
    16:05 / 24 янв.  Форум | Хитов: 7 |  Ответов: 2
    15:55 / 24 янв.  Какой должна быть современная программа (пред. ... | Хитов: 19 |  Ответов: 1
    15:54 / 24 янв.  Какой должна быть современная программа | Хитов: 3 |  Ответов: 0
    15:15 / 24 янв.  Как промерить размер массива/объекта в памяти? | Хитов: 11 |  Ответов: 2
    14:34 / 24 янв.  Эмуляция нажатия клавишь клавиатуры. | Хитов: 17 |  Ответов: 3
    14:00 / 24 янв.  ListBox | Хитов: 11 |  Ответов: 1
    12:48 / 24 янв.  SetWindowLong | Хитов: 30 |  Ответов: 7
    10:45 / 24 янв.  Novaya proga. | Хитов: 27 |  Ответов: 2
    09:44 / 24 янв.  База Access | Хитов: 7 |  Ответов: 0
    02:05 / 24 янв.  NovichKy | Хитов: 35 |  Ответов: 8
    01:20 / 24 янв.  RichTextBox в PB7 | Хитов: 34 |  Ответов: 8


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



    наверх


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



    наверх


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

    • 21.01.2004 - Свежие новости MSDN для разработчиков на .NET
      Важнейшие материалы, новые веб-ресурсы, продукты и технологии наших партнеров, веб-презентации, общение в режиме реального времени, мероприятия для разработчиков.


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



    наверх


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

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



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



    наверх


    Один момент из жизни форума: Вывод текста на дисплей

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

    Вопрос:
    Автор вопроса: MaqSoft

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


    Ответы:

    Автор: crackoff
       
    Private Declare Function GetDesktopWindow Lib "user32" () As Long
    Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
    Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
    Dim dh As Long, ddc As Long
    dh = GetDesktopWindow
    ddc = GetWindowDC(dh)
    TextOut ddc, 0, 0, "Привет!!!", 9



    наверх


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

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

    Вопросы:


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

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

       Как записать в файл data.db (формат взят проиявольно), значение
    переменной t из приложения при нажатии на кнопку command1?


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

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

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


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

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

       Люди, кто нибудь в курсе, где в WinXP храниться информация о пользователях, перерыл весь реестр ничего не нашел.
    Как можно считать из реестра весь раздел, а не значение ключа?


    Автор вопроса: Алекс

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

       Как в VB разбить слово по слогам?


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

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

       Вопрос следующий. Он касается открытия лотка CD-Rom. Функция mciSendString("set CDAudio door open", 0,0,0) прекрасно работает. Но только на машинах с одним приводом, как работать на машинах с двумя CD-Rom. Какие дополнительные параметры нужно указать.


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

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

       Как создать БД на VB? Но только не Access. А типа FoxPro Paradox и т.д. Если можно то поподробней. Я только начинаю изучать VB.


    Автор вопроса: Данила

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

       Проблема следующая. Нужно передать кучу параметров одной переменной. Я пишу следующее:

    В модуле объявляю тип, в котором включены все данные

    Public Type данные_оборудования
         ID As Single
         наимен_оборуд As String
    End Type

    В одной форме пишу

    Public Function данные_формы(данные As данные_оборудования) As
    данные_оборудования
    данные.ID = 10
    данные.наимен_оборуд = "Какое-то название"
    данные_формы=данные
    End Function

    В другой форме пытаюсь их получить

    Dim данные As данные_оборудования
    данные = оборудование_Форма.данные_формы(данные)

    И он мне пишет, что только общие определённые пользователем типы в общих модулях объектов могут использоваться как параметры или возвращённые типы для общих процедур модулей классов или как области общих определённых пользователем типов.
    Что он от меня хочет?


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

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

       Люди у кого есть пример использования Speech API, преобразования речи в текст.


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

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

       Люди как мне загнать в коллекцию Public User-type
    Я хочу сделать класс для работы с данными на при написании функций с параметрами моего типа он пишет, что там может использоваться только тип обьявленный как public в модуле который тоже Public.
    Создал Active DLL все тип обьявлен как глобальный НО в типе не может содержаться строки определенной длинны (aa as string*2). Что мне делать!


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

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

       Подскажите, как сравнить системную дату с датой их базы данных .mdb?


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

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

       Как открыть окно “Мой компьютер”?


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

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

       Помогите сделать следующую программу: при нажатии на кнопку будет произведён поиск файла по маске *.txt на диске C:. Как это сделать.


    Автор вопроса: andronov igor

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

       Уак программно, без ведома пользователя скопировать файл в какуй-либо папку (ну например С:\programm files) ?


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

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

       Подскажите, пожалуйста ответ на такой вопрос: создаю из VB объект "Word", создаю документ, вношу данные, создаю таблицы. Как можно перемещать по таблице с помощью операторов VB (напр. вниз на ячейку, вправо на столбец и т.д.), т.к. те операторы, что предлагает Word (при исследовании макросов) содержат константы Worda и для VB неприемлимы.


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

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

       Написал прогу, используя компонент ActiveX. У меня она работает, а у других нет, выдаёт ошибку о том , что якобы не может найти ActiveX. Что делать?


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

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

       Можно ли в VB использовать команды MS-DOS?


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

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

       При испольяовании DirListBox, как изменять жосткий диск.




    Ответы:


    Вопрос:

       Я пишу грабер с экрана. Пишу потому, что все граберы, которые мне встречались были платными... Вот я подумал, что смогу написать не хуже (ну немного похуже профессиональных, типа ХиперСнап), но бесплатный. Основной функцией должна быть сёмка окна, на которое наведена крыса. И вокруг окна должна появлятся рамка, чтобы юзверю было ясно что он фоткает. Ну рамку я замутил: беру DC рабочего стола и мучаю его. Но вот беда: когда я навожу крысу на следующее окно, рамка вокруг предыдущего не исчезает. Даже когда прогу вырублю не исчезает :( Чтобы экран отчистился надо развернуть какое нибудь окно на весь экран, или просто поводить им по экрану стирая всё что напакастил :) После долгих поисков я придумал как можно обновить экран:

    SetSysColors 1, 0, GetSysColor(0)

    Эта строчка устанавливает один из системных цветов таким же какой он есть сейчас. Т.е. по сути ничего не меняется, но экран перерисовывается. Но как-то не приятно, когда переводишь мышку на следующее окно наблюдать как весь экран перемигивается, обновляется :( Тогда я подумал: может рисовать по самому этому окну, получив его DC с помощью GetWindowDC? Но тогда как обновить его? Как обновить клиентскую часть я знаю, но вот как обновить его всего? Т.е. с рамкой, заголовком, полосами прокрутки??? В интернете смотрел, нашёл два примера рисования по экрану, но не один из них экран после себя не обновлял :(

    Ответ:

    Автор ответа: ∙Creator∙

    А попробуй другой метод отображения рамки вокруг окна. Например создай свою форму, сделай ее прозрачной с рамочками, ну в таком духе.


    Вопрос:

       Кто-нибудь может сделать программы, которая выключает/перезагружает/завершает сеанс и которая работает во всех версиях Windows.

    Ответ:

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

    dim OpSysSet, obj

    Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate," & _
      "(Shutdown)}//./root/cimv2").ExecQuery _
      ("SELECT * FROM Win32_OperatingSystem" &_
      " WHERE Primary=true")
      
    For Each obj In OpSysSet
      obj.Win32Shutdown(8)
    Next


    Вопрос:

       Возможно ли сохранить буфер обмена в другой файл (не приложения) чтобы его потом можно было загруяить в буфер и вставить в приложение изначально создавшего его.

    Ответ:

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

    Это просто:

    dim aa as string
    open "c:\1.txt" for output as #1
    aa=clipboard.getdata
    print #1,aa
    close #1
    'Загрузка

    open "c:\1.txt" for input as #1
    input #1,aa
    clipboard.setdata(aa)

    'Писалось не в VB но должно работать


    Вопрос:

       Не подскажите как избавится от такой проблемы: хочу проверять текст, введенный в текстовое поле, на возможность его конвертациии в формат даты. Есть функция IsDate(). Но вмешиваются региональные установки - т.е. при вводе текста 32/12/03 воспринимается как 03/12/1932. Не подскажите можно ли изменить данную настройку так, чтобы дата была написана "dd.mm.yy" и никак иначе?

    Ответ:

    Автор ответа: Sergey Y. Tkachev

    Наиболее простым решением является избавление от текстбокса. Зачем текстбокс???
    Есть DateTime Picker Control. Весьма стандартный :-)) Просто бери и пользуйся.
    Можно также использовать Masked Edit Control, задав ему определенную маску для ввода даты.
    Если дело принципа - сделать именно на текстбоксе - то на мой взгляд лучше всего просто отпарсить строку.


    Вопрос:

       У меня возникла такая проблемка.

        На форме имеютя следующие компоненты:
        DataCombo1, Listbox1, несколько Textbox-ов и таблица.
        Необходимо, чтобы сначала юзер мог выбрать "номер цеха" в DataCombo1, затем в Listbox1 уже на основании данного цеха он выбирает "номер профессии". После этого в таблице высвечиваются все записи относительно выбранных номеров.

        Затем щелкнув по какой-либо записи, в TextBox-ах высвечиваются поля данной записи, а конкретно "Номер цеха" , "Номер профессии", "Название профессии", и два других поля.

        Задача состоит в том, чтобы изменив значения в TextBox-ах, они соответсвенно изменялись и в Базе данных, и в таблице.

    Ответ:

    Автор ответа: Andrew Isakov

    Используй событие Change (изменение).




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

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

    наверх


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

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


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

    В избранное