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

Программирование (VB,C#,ASP,.NET): новости, советы, примеры

Рассылка закрыта

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Август 2013   →
 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
Автор
Алексей Немиро

Статистика

1.234 подписчиков
-1 за неделю
←   Все выпуски   →

Программирование (VB,C#,ASP,.NET): новости, советы, примеры


Выпуск # 740

Очередной выпуск рассылки! За последнее время на сайте произошло столько всего, столько всего, что все просто не уместилось в этот выпуск! Но ничего, ведь вы всегда можете ознакомиться со всеми обновлениями непосредственно посетив сайт. Кстати, помимо изменения в содержании Kbyte.Ru, появлении новых интересных материалов, проект постоянно совершенствуется технически, и вы можете принять в этом непосредственное участие, присылая свои идеи и предложения.
Надеюсь, этот выпуск будет интересен для вас. Если вы хотите увидеть в следующих выпусках что-то конкретное, напишите мне об этом на ящик subscribe@kbyte.ru.

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

Читайте в этом выпуске:

Если у вас есть вопросы по программированию или работе с компьютером, не стесняйтесь, спрашивайте.

Форумы Kbyte.Ru

На форумах Kbyte.Ru постоянно появляются новые интересные темы и обсуждения. В этом выпуске представлены лишь новые темы, с момента прошлой рассылки.

Кстати, любой желающий может на форумах Kbyte.Ru совершенно свободно получить помощь грамотных специалистов в области программирования, да и в целом информационных технологий.

Задать свой вопрос прямо сейчас

Преобразователь ASCII @Akiva 15.08.2013 01:23
Сделал эту <игрушку> еще в прошлую зиму - 2012.
Я ею пользуюсь иногда. Может кому-то сослужит пользу.
Мы здесь на Форуме не плохие...

[- к содержанию -]

Ответ #1 @Akiva 15.08.2013 02:03
Я расширил TextBox-окошко, чтоб можно было вписывать большее число.

[- к содержанию -]

Ответ #2 @Алексей Немиро 15.08.2013 11:07
Недавно запустил online-сервисы с таблицами ASCII и Unicode, а то постоянно приходилось проверять код в других, не предназначенных для этого, программах или писать код в режиме отладки для этой задачи

Akiva:
Я расширил TextBox-окошко, чтоб можно было вписывать большее число
Это уже не ASCII, а Unicode.

[- к содержанию -]

Добавить свой ответ в эту тему
Catch @i32 12.08.2013 19:11
Еще один вопрос . Не знал как тему назвать..
Смысл такой подвисает приложение мое..
HttpWebRequest проходит запрос не успевает все обрабатываться. Лейбл даже не меняет.
Как только ставлю паузу в виде мсг - все нормально становится.
Типо в конце 
 End If
                ' MsgBox("111111")
            Catch ex As Exception
Поток - один..
req.Timeout = 10000000
Слипп я так понял - не поможет..

Вчем может быть проблема.??.

[- к содержанию -]

Ответ #1 @Алексей Немиро 12.08.2013 19:18
подвисает приложение мое
Поток - один
Веб-запросы нужно делать в отдельном потоке, либо асинхронными методами (которые будут использовать для этого отдельный поток), тогда ничего подвисать не будет.

[- к содержанию -]

Ответ #2 @i32 14.08.2013 21:35
Сделал отдельный поток..Но у меня 3 функции из этого потока перестали работать..
К примеру Public Sub GetDelet()
Что то прослышал про Delegate . Поясните плиз как запустить теперь свои функции

[- к содержанию -]

Ответ #3 @Алексей Немиро 14.08.2013 22:28
Вот тут обсуждалось: http://kbyte.ru/ru/Forums/Show.aspx?id=14146.

Action(Of ...) - это "универсальный" делегат, который можно использовать, чтобы не создавать отдельные делегаты.

Количество параметров идущее после Of должно быть равно числу параметров метода, в который будут переданы параметры (что логично).
Например:
Private Sub SafeFormChange(result As String) 
  If Me.InvokeRequired Then 'если вызов не из родного потока
    Me.Invoke(New Action(Of String)(AddressOf SafeFormChange), result) 'один параметр
    Return 'выходим, чтобы не случилось ничего плохого
  End If
  ...
End Sub
Private Sub SafeFormChange(a As String, b As Integer, c As Date) 
  If Me.InvokeRequired Then 
    Me.Invoke(New Action(Of String, Integer, Date)(AddressOf SafeFormChange), a, b, c) 'три параметра: Of String, Integer, Date
    Return 'выходим, чтобы не случилось ничего плохого
  End If
  ...
End Sub

[- к содержанию -]

Ответ #4 @i32 15.08.2013 23:31
 Private Sub addmebad(ByVal Yes As Boolean)
        If Me.InvokeRequired Then
            Me.Invoke(New Action(Of Boolean)(AddressOf addmebad), Yes)
        Else
            ListBox4.Items.Add(ListBox2.SelectedItem.ToString)
        End If
        ListBox4.ForeColor = Color.Red
        Label4.Text = ListBox4.Items.Count
Что то не так...

[- к содержанию -]

Добавить свой ответ в эту тему
(Задание № 82) или шахматные часы @Akiva 12.08.2013 19:04
С.Н.ЛУКИН, в своей книге предлагает сделать шахматные часы.
Вот так я выполнил его задание:

[- к содержанию -]

TreeView @Crash666 12.08.2013 16:02
Как сохранить список узлов и ветвей и отобразить их при следующем запуске?

[- к содержанию -]

Ответ #1 @Алексей Немиро 12.08.2013 18:01
Проще всего сериализовать:

  Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    If Not SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Return

    Using s As Stream = File.Open(SaveFileDialog1.FileName, FileMode.Create)
      Dim bf As New BinaryFormatter()
      bf.Serialize(s, TreeView1.Nodes.Cast(Of TreeNode)().ToList())
    End Using
  End Sub

  Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    If Not OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Return

    Using s As Stream = File.Open(OpenFileDialog1.FileName, FileMode.Open)
      Dim bf As New BinaryFormatter()
      Dim obj As Object = bf.Deserialize(s)
      Dim nodeList As TreeNode() = (TryCast(obj, IEnumerable(Of TreeNode))).ToArray()
      TreeView1.Nodes.AddRange(nodeList)
    End Using
  End Sub

Но лучше "руками" рекурсивно перебрать и сохранить, чтобы не было лишних данных.

[- к содержанию -]

Ответ #2 @Crash666 13.08.2013 18:05
А что я получаю этой строчкой кода?
MsgBox(CType(sender,
TreeView).Tag)
Тег дочерних элементов? или всех?

[- к содержанию -]

Ответ #3 @Алексей Немиро 13.08.2013 18:10
Tag - есть у всех элементов. Это пользовательское свойство. Разработчики могут использовать его для чего угодно, по своему усмотрению.

[- к содержанию -]

Ответ #4 @Crash666 15.08.2013 06:02
Вы не поняли мой вопрос. Я иммел введу какой тег я получуб основных элементов или которые в них?

[- к содержанию -]

Ответ #5 @Алексей Немиро 15.08.2013 11:02
я получуб основных элементов или которые в них
TreeView содержит в себе TreeNode.
CType(sender, TreeView).Tag
TreeView не является TreeNode.
Следовательно, ты никак не сможешь получить Tag элементов TreenNode напрямую из класса TreeView, ибо это не класс TreeNode.

Tag есть у всех элементов и имеет отношение только к элементу, к которому относится. Это свойство ничего не знает ни о родителях, ни о детях.
Button1.Tag = 123
MsgBox(Button1.Tag)

If CType(sender, TreeView).SelectedNode IsNot Nothing Then
  CType(sender, TreeView).Tag = "превед"
  CType(sender, TreeView).SelectedNode.Tag = "kbyte.ru"
  MsgBox(CType(sender, TreeView).Tag)
  MsgBox(CType(sender, TreeView).SelectedNode.Tag)
End If

Me.Tag = Now
MsgBox(Me.Tag)

For i As Integer = 0 To 5
  TreeView1.Nodes.Add(New TreeNode With {.Text = String.Format("Элемент {0}", i), .Tag = i})
Next
For i As Integer = 0 To 5
  MsgBox(TreeView1.Nodes(i).Tag)
Next

[- к содержанию -]

Добавить свой ответ в эту тему
WebProxy @i32 12.08.2013 12:23
Привет всем ..Вопрос Как отобразить из формата WebProxy
в стринг.Что бы можно было отобразить .( может не так выражаюсь..
Пример..
 For i = 0 To ListBox2.Items.Count - 1
  Dim ProxyAdr As String = ListBox2.Items(i)
                    Dim prox As New WebProxy(ProxyAdr)
                    Return prox
После этого добавить..
ListBox3.Items.Add(prox)
        ListBox3.ForeColor = Color.Green
        Label7.Text = ListBox3.Items.Count
В данном варианте добавится фотмат WebProxy.а ProxyAdr -ошибка
Или
Выделить и удалить..Тоже какаето "шляпа".Вообще удаляет но мне надо не первую строку
а исполняемую..
  Dim count = (From item In ListBox2.Items _
        Where item.ToString = i _
         Select item).Count
        ListBox2.Items.RemoveAt(count)
        Label5.Text = ListBox2.Items.Count
Спасибо..

[- к содержанию -]

Ответ #1 @Алексей Немиро 12.08.2013 15:24
См. DisplayMember и ValueMember.

Например: 
ListBox1.DisplayMember = "Address"'будет
выводить адрес прокси в списке

Выбранная строка - SelectedIndex, либо SelectedItem.
В случае с объектами (коим является WebProxy), SelectedItem может быть удобней, т.к. будет содержать экземпляр объекта:
If ListBox1.SelectedItem IsNot Nothing Then
  MsgBox(CType(ListBox1.SelectedItem, WebProxy).Address.ToString())
End If

[- к содержанию -]

Ответ #2 @i32 12.08.2013 17:32
Спс .пошло немного не так.
 MsgBox(ListBox2.SelectedItem.ToString)

[- к содержанию -]

Ответ #3 @Алексей Немиро 12.08.2013 17:50
ListBox2.SelectedItem.ToString
Так, если в Items добавлять строку, а не объект.
Если добавлять объект (как это делается в этой строчке кода: ListBox3.Items.Add(prox)), то скорее всего при получении строки, будет возвращено название объекта, в стиле: System.Net.WebProxy.

[- к содержанию -]

Ответ #4 @i32 12.08.2013 18:14
 Public Sub addmebad(ByVal Yes As Boolean)
        ListBox4.Items.Add(ListBox2.SelectedItem.ToString)
        ' MsgBox(ListBox2.SelectedItem.ToString)
        ' TextBox1.Text = CType(ListBox2.SelectedItem, WebProxy).Address.ToString()
        ListBox4.ForeColor = Color.Red 
End Sub
Так рамотает все как надо ..А ну все верно говоришь..Так и было..Перелопатил ..

[- к содержанию -]

Ответ #5 @olgamaster 15.08.2013 13:35
Спасибо за консультацию

[- к содержанию -]

Добавить свой ответ в эту тему
Часы-Секундомер @Akiva 11.08.2013 01:12
Просматривая книгу многоуважаемого мною программиста-писателя С.Н.ЛУКИНА,
решил повторить его <часы-будильник>.Он программировал его еще в 2004 году.
Я немного выкинул немного добавил. И вот что получилось:

Переход с часов на секундомер и обратно ч/з R-кнопок.
Если кто пожелает продолжить эту тему. Дам наработанную папочку.

[- к содержанию -]

Ответ #1 @i32 12.08.2013 12:32
Не запускаются твои приложения..В исходах писал что ВБ у тебя новее..
Фламевок 5 что ли вышел .Но исходы я из папки запустил а это х.з.

[- к содержанию -]

Ответ #2 @Akiva 12.08.2013 16:59
У меня From(4).
Прикрепляю всю программку.Попробуйте еще раз.

[- к содержанию -]

Ответ #3 @i32 12.08.2013 19:18
Не является приложением вин32..У меня ХР- поэтому наверно

[- к содержанию -]

Добавить свой ответ в эту тему

Все темы и обсуждения

Вакансии в IT

Программист РНР/ разработчик высоконагруженных Интернет проектах

Россия, Москва | Работа в офисе

Программист 1 С

Россия, Москва | Работа в офисе

Инженер-разработчик РЭА, схемотехник, конструктор печатных плат

Россия, Москва | Работа в офисе | 50 000,00 KBP

Программист для доработки интернет сайта /

Россия, Москва | Удаленная работа

Программист VBA/SQL/Access

Россия, Москва | Работа в офисе

Программист 1С

Россия, Москва | Работа в офисе | 120 000,00 KBP

Программист стажер 1С

Россия, Москва | Работа в офисе | 45 000,00 KBP

Программист

Россия, Москва | Работа в офисе | 45 000,00 KBP

Программист C#

Россия, Москва | Работа в офисе | 60 000,00 KBP

Программист для доработки интернет сайта

Россия, Москва | Удаленная работа

Все вакансии в IT · Создать резюме

[- к содержанию -]

Новости мира IT

«Яндекс.Карты» научились бронировать столики и записывать к парикмахеру

В картографическом сервисе «Яндекс.Карты» появилась возможность записи в различные учреждения. Через сервис можно забронировать столик в ресторане, записаться в салон красоты или на прием к врачу. Всего через «Яндекс.Карты» доступно бронирование в 13 тысячах учреждений.

15.08.2013 11:16 · Категория: Бизнес в IT · Источник: Lenta.ru

[- к содержанию -]

Samsung анонсировал «раскладушку» для китайского рынка

Компания Samsung представила смартфон-«раскладушку», выполненный в классических грубых формах, для китайского рынка. Об этом сообщается в пресс-релизе китайской версии официального сайта компании. Обзор устройства также приводит Pocket-lint.


Новая модель SCH-W789 получила название Hennessy (в честь французского коньячного дома) и, как говорится в сообщении, предназначена для тех, кто предпочитает традиционный стиль.

Устройство на базе операционной системы Android 4.1 оснащено двумя полноценными цветными экранами размером 3,3 дюйма — на внешней и внутренней поверхности откидывающейся крышки. Смартфон получил четырехъядерный процессор и гигабайт оперативной памяти. Емкость аккумулятора аппарата составляет 1500 миллиампер-часов.

Специально для китайского рынка в телефоне предусмотрена возможность использования сразу двух SIM-карт двух различных стандартов сотовой связи — CDMA и GSM.

О цене на Samsung Hennesy, а также датах выхода в Китае и возможном релизе на других рынках в сообщении не говорится.

Популярный ранее форм-фактор мобильных телефонов «раскладушка» (когда устройство состоит из двух частей — клавиатуры и откидывающегося экрана) в последнее время уступил позиции моноблочным смартфонам. Наибольшую известность с 1990-х годов получили «раскладушки» производства Motorola.

15.08.2013 11:16 · Категория: Железо · Источник: Lenta.ru

[- к содержанию -]

Google отказал пользователям в праве на конфиденциальность переписки

Корпорация Google считает, что пользователи не могут рассчитывать на приватность писем, которые они отправляют через Gmail. Такое заявление корпорация сделала в ходатайстве с требованием отклонить иск с претензией к функции, которая анализирует содержимое сообщений для подбора рекламы.

15.08.2013 11:13 · Категория: Безопасность · Источник: Lenta.ru

[- к содержанию -]

Все новости

Подпишитесь на тематические RSS-ленты Kbyte.Ru, чтобы быть в курсе последних новостей:

Основная лента · Форумы (темы и сообщения) · Visual Basic 5.0/6.0 · Visual Basic .NET · C# (Си шарп) · Delphi · JavaScript · ActionScript · ASP .NET · ASP .NET MVC

Ищите Kbyte.Ru в социальных сетях FaceBook, ВКонтакте, Twitter.

Если вы занимаетесь программированием, то наверняка вам пригодятся хитрые инструменты.

Международный портал для программистов и разработчиков Kbyte.Ru основан в 2006 году. Целью портала является объединение программистов и специалистов IT-бизнеса, студентов и преподавателей для обмена опытом и знаниями, оказания помощи во всех делах и начинаниях в области IT.
Kbyte.Ru является парнёром компаний Mail.Ru Group, WebMoney Transfer, Ozon.Ru и др.
Выпуск рассылки подготовлен автоматически. Все права на материалы выпуска принадлежат Kbyte.Ru если иное не указано отдельно.
В избранное