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

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

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

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


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

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

VBNet VBMania
Ссылки:

  • GotDotNet
  • Улицы VB
  • Азбука VB
  • VB по русски
  • MDesign
  • DanSoft
  • Хрестоматия VB
  • VBCoder
    		• Господа!!! читайте MSDN!!!

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

       Почему-то строго на один день опаздываю с вупуском рассылки :) Не могу понять, почему... В понедельник вообще не вспоминал, что у меня какая-то рассылка есть, а сегодня почему-то такая мысль пришла, пришлось делать новый выпуск :)
    Читайте!


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



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

    Дата: 26.10.2004 11:13 | Раздел: Примеры кода | Автор: GenWork

    SupStar - Пример использования Winsock контрола. подобие ICQ , но для сетей

    Дата: 26.10.2004 11:13 | Раздел: Примеры кода | Автор: empro

    GreyPlayer - Это еще один пример на тему создания плеера используя неизменный Windows Media Player. Программа оснащена мрачным, но довольно неплохим интерфейсом. В ней приведены множество примеров на такие темы, как - добавление значка в трей, самодельное меню из трея, прикрытие значка Windows Media Player на контроле, создание списка воспроизведений, переход от одного файла к другому, сохранение списка воспроизведений, полоса прокрутки по AVI или муз. файлу, загрузка сп.воспр. и многое другое. Порядочно весит из-за OCX.

    Дата: 25.10.2004 12:22 | Раздел: Примеры кода | Автор: shareman

    cPopUpMenu - Как украсить всплывающее меню картинками любых форматов - примеров много, но мой - лучше :) Всего два класса и модуль, но умею делать с всплывающим меню очень многое.

    Дата: 21.10.2004 10:32 | Раздел: Статьи по VB | Автор: CyRax

    Упаковка чисел - В данной статье описывается упаковка чисел, применяемая в алгоритме LZW графического файла формата GIF.

    Дата: 20.10.2004 19:38 | Раздел: Примеры кода | Автор: empro

    TRAFFIC COUNTER V1.33 - Это программа Traffic Counter v1.33 , которая позволяет вести учет над траффиком.

    Дата: 20.10.2004 14:43 | Раздел: Примеры кода | Автор: Александр

    TrayControlEx - Данный пример облегчает работу с треем. Также есть возможность отображать Baloon Tooltip

    Дата: 19.10.2004 16:01 | Раздел: Примеры кода | Автор: Barsik

    SynchronizeClock - Синхронизируем время компьютера через интернет...

    Дата: 19.10.2004 16:01 | Раздел: Примеры кода | Автор: mc-black

    Access And Excel (ADO&VBA) - Добавление из XL в базу данных некоторого количества записей, импорт таблиц из MDB на лист XL, работа с базой данных из UserForm в Excel. Использовались ADO v2.0 (ADODB) и OfficeXP.


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

    13:40 / 26 окт.  Ошибка в MSHTML. Помогите разобраться, please. | Хитов: 3 |  Ответов: 0
    13:26 / 26 окт.  Можно ли встроить внешние DLL в свою прогу ? | Хитов: 5 |  Ответов: 1
    12:38 / 26 окт.  MidiКлизма | Хитов: 8 |  Ответов: 0
    11:42 / 26 окт.  Павлу. Админы, простите! | Хитов: 11 |  Ответов: 1
    11:01 / 26 окт.  Нелегко пионисту :)) | Хитов: 11 |  Ответов: 1
    11:01 / 26 окт.  Нелегко пионисту :)) | Хитов: 0 |  Ответов: 0
    10:52 / 26 окт.  VBScript -- работа с Outlook | Хитов: 8 |  Ответов: 1
    07:21 / 26 окт.  Обратный порядок байтов | Хитов: 13 |  Ответов: 1
    01:42 / 26 окт.  Установка | Хитов: 14 |  Ответов: 1
    01:01 / 26 окт.  эквивалент устройства PictureBox1.hdc для памяти | Хитов: 21 |  Ответов: 4
    23:26 / 25 окт.  Как открыть? | Хитов: 17 |  Ответов: 1
    23:17 / 25 окт.  Глюк!!! | Хитов: 17 |  Ответов: 1
    22:03 / 25 окт.  filelistbox | Хитов: 29 |  Ответов: 6
    21:50 / 25 окт.  Павлу | Хитов: 18 |  Ответов: 3
    21:43 / 25 окт.  Ключевые слова в файлах. Как работать с ними? | Хитов: 16 |  Ответов: 3
    20:32 / 25 окт.  Список "наброшенных" файлов?  | Хитов: 16 |  Ответов: 1
    19:20 / 25 окт.  Надеюсь топик не удалят :) | Хитов: 41 |  Ответов: 3
    16:07 / 25 окт.  АДМИНИСТРАТОРУ !!!! | Хитов: 43 |  Ответов: 2
    15:33 / 25 окт.  Сетевая олимпиада школьников города Москвы по прог | Хитов: 28 |  Ответов: 2
    15:31 / 25 окт.  Конкурсы | Хитов: 7 |  Ответов: 5


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



    наверх

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

    • Платформа 2005 — примите участие в ежегодной конференции

      Вы познакомитесь с широким спектром новейших технологий, продуктов и решений Microsoft:
      — более 1200 участников;
      — более 45 технических докладов;
      — практические занятия по продуктам и технологиям Microsoft;
      — выставка решений партнеров Microsoft;
      — круглые столы и возможность обмена опытом с вашими коллегами из других организаций.

    • Стартует международный конкурс студенческих проектов Imagine Cup 2005!

      К участию в конкурсе Imagine Cup 2005 допускаются лица, достигшие 14 лет и являющиеся студентами дневных или вечерних отделений высших и средних учебных заведений.

    • Российская академия наук реализует систему управления содержанием своего информационного веб-портала на основе платформы Microsoft .NET

      Программная архитектура портала РАН в целом (и службы управления содержанием в частности) представляет собой набор модулей .NET, которые разрабатываются в среде Microsoft Visual Studio .NET.


    наверх

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



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



    наверх

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

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



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



    наверх

    Один момент из жизни форума: Как нарисовать рисунок и отобразить средствами ASP .NET в браузере?

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

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

       Как нарисовать рисунок и отобразить средствами ASP .NET в браузере?


    Ответы:

    Автор: Павел
       Насколько я помню, можно прямо в Response.OutputStream сохранить содержимое Image с помощью Image.Save...

    Автор: ZagZag
       Этот код позволяет ЗАГРУЗИТЬ картинку и СОХРАНИТЬ ее В другой ФАЙЛ, так? Да!

    Dim img As System.Drawing.Image
    img = System.Drawing.Image.FromFile(Server.MapPath("simple.jpg"))
    img.Save(Server.MapPath("!simple.jpg"))

    А мне нужен код чтобы ЗАГРУЗИТЬ картинку, МОДИФИЦИРОВАТЬ* ее и СОХРАНИТЬ в
    Response (т. е. бинарно отправить браузеру файл в таком виде, в катором он
    бы сохранился на диске)

    * - Модифицировать прийдется обязательно, но этот код можешь не подсказывать

    Автор: Павел
       Создай экземпляр класса Bitmap, из этого Bitmap'а создай Graphics, и уже на нем рисуй.

    Вот пример:

    Dim img As Image = Image.FromFile(Pattern)
    Dim bmp As Bitmap
    bmp = New Bitmap(img.Width, img.Height)
    Dim G As Graphics
    G = Graphics.FromImage(bmp)
    G.DrawImage(img, 0, 0)
    Dim myFont As New Font("Tahoma", Single.Parse(6.5), FontStyle.Regular)
    Dim strTemp As String = "Test"
    G.DrawString(strTemp, myFont, New SolidBrush(Color), 0, 22)
    bmp.Save(Response.OutputStream)



    наверх

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

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

    Вопросы:

    Автор вопроса: Иван

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

       Надо сделать тест, в котором вариантами ответа являются картинки. Тест должен храниться в файле.

    1) Как в 1 файл засунуть картинки и текст? Как с таким файлом можно работать?

    2) В какой контрол можно засунуть картинки и текст одновременно?

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

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

       Как узнать всю информацию об открытых окнах, процессах, сервисах и узнать доп. информацию (занимаемая память, приоритет)?

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

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

       Как узнать общий объём оперативной памяти компьютера, свободной и занятой?

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

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

       Как узнать объём памяти на жестком диске (как общий, так и по дискам)?

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

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

       Как узнать число логических дисков?

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

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

       Как узнать скорость системной шины?

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

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

       Как узнать температуру процессора, жесткого диска и видеокарты?

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

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

       Как определить марку процессора, жесткого диска, ОЗУ, видеокарты?

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

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

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

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

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

       Как узнать напряжение, подаваемое на процессор и ост.?

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

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

       Как узнать разрешение экрана, глубину цветов?

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

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

       Как узнать число внешних дисководов?

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

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

       Как выдвигать лотки у нескольких дисководов?

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

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

       Как программно поменять громкость?

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

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

       Как перезагрузить или выключить компьютер на Windows XP?



    Ответы:

    Вопрос:

       Написаные мною проги работают только на моей машине, а на других выдают "Unexpected Error". Пишу на VB 6.0.

    Ответ:

    Автор ответа: Стахановмежрайгаз

    У меня было такое. Проявлялось в следующих случаях:

    1.Причина: программа на VB6 запущена под Win95
       Решение: use 98/me/2000/XP

    2.Причина: Использовались OCX от предыдущих версий VB или OCX не зарегистрированы на компе пользователя
       Решение: Использовать самые новые контролы и всегда к своей проге прикладывать используемые OCX и DLL и при установке проги регестрировать OCX.

       Например, если используешь COOLBAR, то копируй файл Comct332.ocx в папку с прогой или папку SYSTEM и выполняй строку regsvr32.exe Comct332.ocx

       Можно воспользоваться стандартным инсталером для VB6, который сам всё добавляет и регистрирует, а можно во всем разобраться и писать инсталяхи самому, как я.

    Вопрос:

       Как автоматически выравнивать по высоте ячейки MSFlexGrid по содержимому текста ячеек во всей таблице MSFlexGrid сразу, если установлено свойство WordWrap=true?
    Содержимое ячеек MSFlexGrid меняется программой через поле ввода.

    Ответ:

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

    Dim I As Integer
    Dim j As Integer
    For I = 0 To MSFlexGrid1.Rows - 1
         For j = 0 To MSFlexGrid1.Cols - 1
         MSFlexGrid1.Col = j
         MSFlexGrid1.Row = I
             MSFlexGrid1.Text = I + j
             MSFlexGrid1.CellAlignment = AlignmentSettings.flexAlignLeftTop
         Next
    Next

    Вопрос:

       У меня есть конструкция:

    TYPE is_DIR
          Name as string
          Path as string
          Title as string
    END TYPE

    TYPE is_FILES
          Name as string
          Path as string
          Title as string
    END TYPE

    TYPE is_IMAGE
          Name as string
          Path as string
          Title as string
    END TYPE

    TYPE is_Main
          Name as String
          DIRZ()as is_DIR
          FILES()as is_FILES
          IMAGES()as is_IMAGE
    END TYPE

    PUBLIC default as is_Main

    Как можно записать (возможно?) переменную default в файл?

    Open FILENAME For Binary as #i
    PUT #i, , default
    CLOSE #i

    Не работает. Кто-нибудь подскажет?

    Ответ:

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

    Во-первых, советую конечно не создавать разные типы с одинаковым содержанием, т.е.:

    TYPE some_type
           Name as string
           Path as string
           Title as string
    END TYPE

    TYPE is_Main
           Name as String
           DIRZ()as some_type
           FILES()as some_type
           IMAGES()as some_type
    END TYPE

    Во-вторых,

    PUBLIC default as is_Main

    Open FILENAME For Random As #i Len = Len(default)
            PUT #i, , default 'если записывается только этот элемент
            PUT #i, Number, default 'если записывается только нескольколько элементов данного типа (Number - порядковый номер)
                                            '!!! Number начинается с 1 !!!
    Close #i


    Ответ:

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

    У меня все пишет!
    Код находится в форме, поэтому все типы объявлены как private.

    Option Explicit
    Private Type is_DIR
           Name As String
           Path As String
           Title As String
    End Type

    Private Type is_FILES
           Name As String
           Path As String
           Title As String
    End Type

    Private Type is_IMAGE
           Name As String
           Path As String
           Title As String
    End Type
    Private Type is_Main
           Name As String
           DIRZ() As is_DIR
           FILES() As is_FILES
           IMAGES() As is_IMAGE
    End Type
    Private Sub Command2_Click()
    Dim default As is_Main
    ReDim default.DIRZ(2)
    default.DIRZ(0).Name = "as"
    default.Name = "2"
    Open "c:\1.txt" For Binary As #1
    Put #1, , default
    Close #1
    End Sub


    Ответ:

    Автор ответа: Ольга

    Наверное вы забыли описать массивы. У меня работает.
    Попробуйте например, так:
      
    Dim filename As String
    Dim i As Integer
      
    ReDim default.DIRZ(2)
    ReDim default.FILES(1)
    ReDim default.IMAGES(1)
      
    default.Name = "Default"
      
    default.DIRZ(0).Path = "c:\Dir0"
    default.DIRZ(1).Path = "c:\Dir1"
    default.DIRZ(2).Path = "c:\Dir2"
      
    default.FILES(0).Name = "File0"
    default.FILES(1).Name = "File1"
      
    default.IMAGES(1).Name = "Image1"
      
    filename = "D:\Olga\a.a"
    i = 1
    Open filename For Binary As #i
    Put #i, , default
    Close #i

    Вопрос:

          Вопрос по VBA ACCESS 2000.
       Импортирую в Аксес таблицу DBASE (dbf).

       DoCmd.TransferDatabase , databasetype, databasename[, objecttype], source, destination
       
       Путь к файлу - U:\Eipico\KLIENTY\FarmaMed\159603.dbf
       Что именно надо подставлять вместо databasename и source? Если подставить вместо databasename имя файла (включая путь), что же тогда подставляем вместо source?

    Ответ:

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

    DoCmd.TransferDatabase acImport, "Microsoft Access", _
         "C:\My Documents\NWSales.mdb", acReport, "NW Sales for April", _
         "Corporate Sales for April"



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

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

    наверх

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

    		 Сурменок Павел
    http://subscribe.ru/
    http://subscribe.ru/feedback/    		 Подписан адрес:
    Код этой рассылки: comp.soft.prog.vbnewsadvices    		 Отписаться
    В избранное