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

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

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

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


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

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

VBNet VBMania
Ссылки:

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

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

       Это новый выпуск рассылки :)
    Читайте!


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



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

    Дата: 27.07.2004 15:11 | Раздел: Примеры кода | Автор: VBars

    SPAM CREATOR - Интересно вставить в чат то, что можно читать но смысл не понятен :) Эта программа генерирует большие и красивые предложения, которые трудно понять. Можно использовать для прикола над друзьями и т.д. Только не злоупотребляйте. Программу выставил в ознакомительных целях

    Дата: 27.07.2004 10:35 | Раздел: Примеры кода | Автор: VBars

    Logotip for counter strike - Недавно столкнулся с такой траблой: у всех из моей сети стандартные логотипы, решил помочь ситуации. Потратил мало времени, поэтому нет излишеств. Кто играет в контру - качайте. Тестировалось на 1.6 но я думаю на других тоже пойдет. Памятка: чтоб нарисовать в контре логотип нажмите английскую Т или русскую Е

    Дата: 27.07.2004 10:32 | Раздел: ActiveX контролы | Автор: Анатолий Жуков

    ToolMenuBar - Многоцелевая рабочая панель (ToolBar, MenuBar) для создания стильного интерфейса программ. Различные стили панели. Возможность создания кнопок разных стилей (от Flat, 3D, XP, XP Office до пользовательского) и форм (прямоугольник, закругленные углы, элипс), включая с раскрывающимся меню, на одной панели. Возможность перетаскивания панелей по рабочему столу и выравнивание по краям формы программы. Многомерные меню с продвинутой графикой. Абсолютно новый принцип (отличный от Property Window VB) создания многомерной панели в дизайн режиме, позволяющий настраивать свойства всех кнопок, многомерного меню и самой панели в DesignTime! Простота в работе. MenuBar и ToolBar для своей программы вы создадите за считанные минуты... Описание дизайн-редактора наход ится внутри архива.

    Дата: 27.07.2004 10:31 | Раздел: Примеры кода | Автор: Barsik

    NewLabel - Этот контрол представляет Label с расширенными возможностями...

    Дата: 27.07.2004 10:25 | Раздел: Полезные программы | Автор: CyRax

    LASM IDE - Редактор со встроенным компилятором, позволяющий делать ассемблерные вставки в программу на VB6. Если нужны исходники, то смотрите по адресу http://basicproduction.nm.ru/ASM/LASM/


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

    14:55 / 1 авг.  управление сторонней программой | Хитов: 1 |  Ответов: 0
    14:30 / 1 авг.  Какая клавиша нажата? | Хитов: 0 |  Ответов: 0
    02:14 / 1 авг.  Первый запуск | Хитов: 27 |  Ответов: 5
    00:27 / 1 авг.  трабла - цвет пикселя | Хитов: 22 |  Ответов: 4
    23:16 / 31 июл.  Drag&Drop ссылки | Хитов: 6 |  Ответов: 0
    21:41 / 31 июл.  Есть ли документация на русском? | Хитов: 15 |  Ответов: 1
    14:51 / 31 июл.  Профессионалам VBA | Хитов: 9 |  Ответов: 0
    12:45 / 31 июл.  Манифест... | Хитов: 17 |  Ответов: 1
    12:10 / 31 июл.  F1! Возпр. MP3 | Хитов: 13 |  Ответов: 2
    12:09 / 31 июл.  F1! Возпр. MP3 | Хитов: 0 |  Ответов: 0
    11:13 / 31 июл.  WinXP интерфейс | Хитов: 44 |  Ответов: 3
    11:02 / 31 июл.  Опять скины... | Хитов: 33 |  Ответов: 6
    10:44 / 31 июл.  Как отучить VB использовать MSVBVM60.DLL??? | Хитов: 68 |  Ответов: 8
    03:41 / 31 июл.  ReadOnly | Хитов: 16 |  Ответов: 1
    21:57 / 30 июл.  Раздел - Жизнь Замечательных Программистов | Хитов: 34 |  Ответов: 3
    21:27 / 30 июл.  Получение данных с сайта | Хитов: 62 |  Ответов: 10
    20:15 / 30 июл.  Помогите полному новичку. | Хитов: 66 |  Ответов: 8
    20:05 / 30 июл.  (QuickSort and (PB vs VB6)) = VB6 - рулез | Хитов: 89 |  Ответов: 23
    19:50 / 30 июл.  Срочная помощь нужна!!! | Хитов: 28 |  Ответов: 2
    19:43 / 30 июл.  Запорожцы есть | Хитов: 29 |  Ответов: 4


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



    наверх

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



    наверх

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



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



    наверх

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

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

    • Создание отчета в формате Microsoft Excel с использованием Xml Spreadsheet
      В статье показывается как можно легко создать отчет в формате Microsoft Excel используя Xml Spreadsheet


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



    наверх

    Один момент из жизни форума: Как воспроизвести MP3?

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

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

       Как воспроизвести MP3?


    Ответы:

    Автор: sne
       
    Private Declare Function MSS Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

    Public Function PlayFile(strFileName As String) As Long ' Воспроизведение внещнего файла
    Call StopPlay
    Call MSS("OPEN " & GetShortPath(strFileName) & " ALIAS FIRST", vbNullString, 0&, 0&)
    PlayFile = MSS("PLAY FIRST", vbNullString, 0&, 0&)
    End Function

    Public Sub StopPlay() ' Остановка внешнего файла
    Call MSS("STOP FIRST", vbNullString, 0&, 0&)
    Call MSS("CLOSE FIRST", vbNullString, 0&, 0&)
    End Sub



    наверх

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

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

    Вопросы:

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

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

       Как перебрать все сообщения папке Outlook Express и сохранить их в формате HTML? При этом имена файлов - темы сообщений.

    Автор вопроса: Яков

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

       Нужно подать напряжение на компьютер (на какой порт не важно) и по кнопке смотреть, какое напряжение подано.

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

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

       Есть ли в Vb6 функция поиска текста по формуле?
    Что делает функция InStrRev?

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

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

       Как скрыть свою программу в Win NT, 2000, XP (запущеные процесы)?

    Автор вопроса: Ефремов СЮ

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

       Пишу прогу для обмена сообщениями в локальной сети (VB6). Использую WinSock, протокол TCP. Есть программа-сервер и программа-клиент. Так вот, сервер слушает порт (например № 1000), а клиент к нему подключается. НО! Клиенту необходимо узнать, "дружественное" имя сервера или его IP-адрес, а сервер может запускаться на любой машине в сети. Как быть? Как узнать имя машины, на которой запущена программа-сервер?



    Ответы:

    Вопрос:

       Досталось в наследство приложение VB6 + MSSQLServer2000.
    В проге используется DataGrid. В настоящее время все тексты запросов написаны прямо в коде

    With rsgrid
                 .ActiveConnection = cn
                 .Source = тут может быть просто целая поэма на килобайт
                 .CursorLocation = adUseClient
                 .LockType = adLockBatchOptimistic
                 .Open
                 Set DataGrid1.DataSource = rsgrid
    End With

    Я решил использовать хранимые процедуры сервера, что вполне естесственно, нафига ж тогда сервер! :)
    Если использовать ADODB.Command.Execute для выполнения ХП или Connection.Execute, то возвращается объект Recordset со свойством forwardonly. И при назначении его датасорсом для DataGrid, возникает ошибка: типа объект не поддерживает закладки и не может быть использован. Это понятно мне, так устроено ADO, или я не прав и execute может создать курсор с произвольным доступом, да ещё и на стороне клиента?
      
    Огромная просьба, помогите найти решение, пожалуйста, возможно я неправильно использую DataGrid. (Переходить на другой контрол тоже нежелательно, прога уже установлена на многих компах и заменить просто экзешник легче, чем регить ещё и новый контрол).

    Ответ:

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

    Да, это прописано в его свойствах, что можно прочесть в MSDN. Видимо, есть в этом какой-то смысл, т.к. Execute из-за "универсализма" не принимает достаточное количество параметров и т.п. Т.е. её набор только "ForwardOnly".
    И я её тоже использую.
    Но! Я также использую хранимые процедуры и запросы на сервере. Это удобно для конструирования, изменения и т.п.
    И в этом случае используется открытие набора данных типа.

        With rs
           .ActiveConnection = cn
           .CursorLocation = adUseServer
           .CursorType = adOpenKeyset
           .LockType = adLockReadOnly
           .Source = "MyTable"
           .Index="MyIndex"
           .CacheSize = 100
           .Open Options:=adCmdTableDirect
        End With

    Конечно, в этом шаблоне можно использовать комбинацию даже с откомпилированным сложнейшими параметризованным SQL-запросом, используя объект ADOX.Command.
    Скорость выполнения огромная (1С, например, здесь рядом не стояла).
    Плюс возможности синхронизации данных, работа с отсоединёнными наборами данных и т.д. и т.п.
    Т.е. идеально для работы с множеством удалённых территориально филиалов конторы, плохой или очень дорогой связи, как в задрыпаной Белоруссии телепузика Лукашенко. Правда, цена таких разработок несколько выше, чем на 1С, это правда.
    Добавим сюда естественную интеграцию с Word, Excel и ОК!
    Да, и DataGrid вполне сносный элемент, если не считать несоблюдение им его же некоторых полезных спецификаций, описанных в MSDN. Просто если набор "только вперёд!", то, конечно, нельзя ему будет спозиционироваться "взад" :-) Тогда годятся элементы Grid, загружающие всё в память, типа MSFlexGrid.
    Тогда обновление строится совсем по другому: вычисляем ключ обновления и выдаём SQL-овский "UPDATE..."

    Вопрос:

       При клике на объект (картинка, либо текст) хочется открыть ссылку (к примеру http://ya.ru) в стандартном виндовском "Internet Explorer"-е. Какой модуль надо подключать, и каким образом это дело делается?

    Ответ:

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

    Самый простой вариант.

    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.ya.ru", vbNormalFocus + vbNormalNoFocus


    Ответ:

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

    Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,

      ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Public Const SW_SHOW = 5

    Public Sub Navigate(frm As Form, ByVal NavTo As String)

       Dim hBrowse As Long

       hBrowse = ShellExecute(frm.hwnd, "open", NavTo, "", "", SW_SHOW)

    End Sub

    Private Sub Picture1_Click()
      Navigate Me, "http://ya.ru"
    End Sub


    Ответ:

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

    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wp As Long,
    lp As Any) As Long

    ShellExecute 0, "open", "http://vbNet.ru", 0, 0, 0

    или

    ShellExecute 0, "open", "mailto:mail@mail.ru?subject=New_mail", 0, 0, 0

    Вопрос:

       Как программно подключать разные таблицы базы Access через ListCombo?

    Ответ:

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

    1. Открой меню
        Project\Preferences
    2. Отметь флажком пункт

    Microsoft ActiveX Data Objects 2.X Libruary

    X - цифра (у меня 0,1,5,6,7). Выбирай любой.

    3. Создай переменные коннекта и результат запроса (в зависимости от того,
    что нужно делать в программе

    Public conn As ADODB.Connection
    Public rst As ADODB.Recordset

    4. На нужный конрол поставь код
    Set conn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    conn.Provider = "Microsoft.Jet.OLEDB.3.51" - для файлов Access'a 95/97
    conn.Provider = "Microsoft.Jet.OLEDB.4.0" - для файлов Access'a 2000/XP

    5.
    conn
         Sub Open([ConnectionString As String],[UserID As String],[Password As String],[Options As Long = -1])
         ConnectionString - имя файла
         
         Function Execute(CommandText As String,[RecordsAffected],[Options As Long = -1]) As Recordset
         Эта функция выполняет запросы

         Sub Close()

    Вопрос:

       Как можно сделать на Visual Basic почтовый формоотправитель?

    Ответ:

    Автор ответа: Александр_IV

    Если проблема в том КАК отправить письмо с какими-то данными, а скорее всего проблема именно в этом ;-), то рекомендую: SimpleSMTP ActiveX Control автор Юмашин Алексей. Не помню где я его скачал но штука хорошая. Позволяет отпралять мыло, причем легко. Немаловажно, что контрол сей абсолютно бесплатен. размер 80 кб. Если неохота искать, пиши. Пришлю.


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

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

    наверх

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

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