VisualBasic.NET - [2] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » VisualBasic.NET

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2

Открыть новую тему

Написать ответ в эту тему

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Fill747
Помогать, так помогать.

Цитата:

Две вещи непонятны мне: куда деваются деньги и откуда берется пыль

Это же элементарно, Ватсон! Деньги в пыль.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:17 11-11-2003

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ищу об'яснение с примерами об использовании принтеров в VB.Net.
Перехожу с VB6, а printer object оказывается не поддерживается. И с примерами в MSDN что-то не то

Они какие-то не полные. Книги, сайты, примеры... Все приму.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 05:23 27-05-2005

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Кто-нибудь сталкивался с печатью нескольких страниц без использования PrintDocument контрола, прямо из модуля?
Так же интересует возможность скрыть мелькающий DialogBox 'Printing'
Дополнительно:
страницы формируются в коде
страницы содержат как техт, так и графику
техт форматируется различными способами(местоположение, размер, болд и т.п.)количество строк на страницу "плавает"

Желательно сформировать ВСЕ страницы и затем отдать на печать.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 01:05 31-05-2005 | Исправлено: dneprcomp, 04:00 31-05-2005

zeleniy Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Работа с реестром в VB.NET что-то ника не помню пишу Dim RegKey As Microsoft.Win32.RegistryKey RegKey=Registry.LocalMachine.opensubkey("SOFTWARE") а она мне Declaration Expected в чем ошибка?
	Всего записей: 777 \| Зарегистр. 07-12-2001 \| Отправлено: 16:50 20-07-2005

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Если забыл сделать Imports, то добавь:
Imports Microsoft.Win32
Попробуй также использовать полный путь:
regKey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE")

PS. А прав хватает на открытие .LocalMachine ?

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:26 20-07-2005

zeleniy Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dneprcomp Все разобрался в чем дело было. Я там перед этим одну ошибку сделал и VS не указал на нее.
	Всего записей: 777 \| Зарегистр. 07-12-2001 \| Отправлено: 10:50 21-07-2005 \| Исправлено: zeleniy, 11:12 21-07-2005

1lex1

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Есть система из M элементов (задаёт пользователь от 5 до 100), в которой нужно последовательно рассчитать N состояний (выбирает пользователь от 10⁸ до 10¹⁰). Каждое следующее состояние элемента зависит от предыдущего состояния всех элементов, поэтому сделать вначале программы по потоку на один или группу элементов нельзя. Но в пределах одного шага расчёт элементов независимый, поэтому на каждом шаге можно разбивать вычисления групп элементов по потокам и дожидаться выполнения каждого потока до следующего шага. Сейчас просто цикл с вложенным циклом.

Код:

For i = 0 To N (N = 10^8...10)
    For j = 0 To M (M = 5...100)
        Расчёт
    Next
Next

Как вложенный цикл заменить на M (или M/2 или как лучше) потоков, чтоб ощутимо ускорить вычисления (на 4-ёх ядерном процессоре)?

Всего записей: 278 | Зарегистр. 22-11-2013 | Отправлено: 12:11 19-07-2015

Gold Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

При отправке письма через Gmail API использую такую функцию:

Код:

Dim mimeMessage As MimeKit.MimeMessage = MimeKit.MimeMessage.CreateFromMailMessage(mmsgЗаказПоставки)
Dim message As Message = New Message()
message.Raw = EncodeBase64(mimeMessage.ToString())

Public Function EncodeBase64(ByVal text As String) As String

' Encodes a text-string for sending as an email message
Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(text)
Return System.Convert.ToBase64String(bytes).Replace("+"c, "-"c).Replace("/"c, "_"c).Replace("=", "")

End Function
gsGooglGmail.Users.Messages.Send(message, "me").Execute()

В результате текст письма получается с кракозябрами:

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

Добавлено:
При отправке письма через Gmail API использую такую функцию:

Код:

Dim mimeMessage As MimeKit.MimeMessage = MimeKit.MimeMessage.CreateFromMailMessage(mmsgЗаказПоставки)
Dim message As Message = New Message()
message.Raw = EncodeBase64(mimeMessage.ToString())

Public Function EncodeBase64(ByVal text As String) As String

' Encodes a text-string for sending as an email message
Dim bytes As Byte() = System.Text.Encoding.UTF8.GetBytes(text)
Return System.Convert.ToBase64String(bytes).Replace("+"c, "-"c).Replace("/"c, "_"c).Replace("=", "")

End Function
gsGooglGmail.Users.Messages.Send(message, "me").Execute()

В результате текст письма получается с кракозябрами:

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

Всего записей: 5598 | Зарегистр. 31-05-2009 | Отправлено: 17:01 15-11-2023

Открыть новую тему

Написать ответ в эту тему

Страницы: 1 2

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » VisualBasic.NET

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC