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

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.883 RSS
←   Март 2005   →
 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://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.883 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Информационный Канал Subscribe.Ru
Здравствуйте!
Вот и прошли праздники Защитника Отечества и Женский день. Впереди нас ждет весна и лето. А у нас очередной выпуск рассылки после долгого перерыва.

Справочник по функциям WinAPI для .NET Framework

На сайте в разделе Справочники запускается новый проект - Справочник по функциям WinAPI для .NET Framework. Данный справочник является аналогом справочника по функциям WinAPI для Visual Basic 6.0. В новом справочнике будут приводиться примеры функций Windows API для языков Visual Basic.NET и C# для платформ .NET Framework и .NET Compact Framework. Все, кто покупал в прошлом году диск, а также, кто приобрел Справочник по Visual Basic.NET, будут получать обновления этого справочника в течении 3 месяцев бесплатно.

Функция GlobalMemoryStatus

Сегодня в выпуске рассказ о функции GlobalMemoryStatus для .NET Compact Framework. 

<DllImport("coredll.dll")> _
    Public Shared Sub GlobalMemoryStatus( _
         ByRef lpBuffer As MEMORYSTATUS)
End Sub

GlobalMemoryStatus получает информацию о текущем состоянии памяти компьютера. 

' Пример для VB .NET и .NET CF
Imports System.Text
Imports System.Runtime.InteropServices

        Const CRLF As String = vbCrLf
        Dim ms As MEMORYSTATUS = New MEMORYSTATUS
        ms.dwLength = Marshal.SizeOf(ms)
        GlobalMemoryStatus(ms)

        Dim strAppName As String = "Состояние памяти"
        Dim sbMessage As StringBuilder = New StringBuilder

        sbMessage.Append("Используется (%) = ")
        sbMessage.Append(ms.dwMemoryLoad.ToString() + "%")
        sbMessage.Append(CRLF)
        sbMessage.Append("Общий объем = ")
        sbMessage.Append(ms.dwTotalPhys.ToString("#,##0"))
        sbMessage.Append(CRLF)
        sbMessage.Append("Доступный объем = ")
        sbMessage.Append(ms.dwAvailPhys.ToString("#,##0"))
        sbMessage.Append(CRLF)
        sbMessage.Append("Файл подкачки = ")
        sbMessage.Append(ms.dwTotalPageFile.ToString("#,##0"))
        sbMessage.Append(CRLF)
        sbMessage.Append("Доступный объем в файле подкачки = ")
        sbMessage.Append(ms.dwAvailPageFile.ToString("#,##0"))
        sbMessage.Append(CRLF)
        sbMessage.Append("Виртуальная память = ")
        sbMessage.Append(ms.dwTotalVirtual.ToString("#,##0"))
        sbMessage.Append(CRLF)
        sbMessage.Append("Доступный объем виртуальной памяти = ")
        sbMessage.Append(ms.dwAvailVirtual.ToString("#,##0"))

        MessageBox.Show(sbMessage.ToString(), strAppName)

СИ Шарп

Я все больше склоняюсь к переходу на язык C#. Этот язык вобрал все самое лучшее от всех языков. Несмотря на внешнюю схожесть с языками C++ и Java, по внутреннему устройству, Си Шарп очень похож на наш любимый Visual Basic 6.0. На сайте я начал выкладывать отдельные статьи для начинающих. Это полузакрытый проект. Выкладываемые статьи будут доступны только зарегистрированным пользователям. Подробности на сайте Справочники. Для всех остальных пока доступна только первая статья Первое знакомство с C#

Visual Basic.NET

Потихоньку продолжается наполнение примерами раздела, посвященного Visual Basic.NET. Кстати, я буду благодарен, если кто-то возьмется переделывать примеры, написанные под VB 6.0, под новую платформу .NET Framework. А пока рассмотрим пример, позволяющий включать вложения в письма в Outlook.

Как послать вложение в письме электронной почты в Visual Basic .NET

Чтобы послать письмо с вложением, используя библиотеку Microsoft Outlook 11.0 Object Library, сделайте следующее:

Запустите Microsoft Visual Studio .NET. Запустите новый проект типа Console. По умолчанию будет создан файл Module1.vb. Добавьте ссылку на объект Microsoft Outlook 11.0 Object Library (Project | Add Reference | вкладка COM | запись Microsoft Outlook 11.0 Object Library). Щелкните на кнопке Select. В диалоговом окне Add References щелкните на кнопке OK. В редакторе кода пишем следующее: 

Module Module1

    Sub Main()
        ' Создаем приложение Outlook.
        Dim oApp As Outlook._Application
        oApp = New Outlook.Application()

        ' Создаем новый MailItem.
        Dim oMsg As Outlook._MailItem
        oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
        oMsg.Subject = "Посылка вложения используя Outlook в Visual Basic .NET"
        oMsg.Body = "Привет" & vbCr & vbCr

        ' Замените на реальный адрес.
        oMsg.To = "billgates@microsoft.com"

        ' Добавляем вложение
        ' Замените на существующий путь.
        Dim sSource As String = "C:\boot.ini"
        ' Замените на имя файла
        Dim sDisplayName As String = "boot.ini"

        Dim sBodyLen As String = oMsg.Body.Length
        Dim oAttachs As Outlook.Attachments = oMsg.Attachments
        Dim oAttach As Outlook.Attachment
        oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)

        ' Посылаем
        oMsg.Send()

        ' Освобождаем ресурсы
        oApp = Nothing
        oMsg = Nothing
        oAttach = Nothing
        oAttachs = Nothing
    End Sub

End Module

Запустите программу и удостоверьтесь, что письмо с вложением было отправлено.

Счастливого вам программирования!

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