Просмотр "Уроки Visual Basic.NET"

Графический интерфейс с помощью AeonSofts Theme | Быстро и легко!

Хочется без лишних проблем создавать красивый интерфейс для своих программ, но возникает вопрос, как? Способов много, я уже описывал один, опишу сейчас еще один.

У меня в наличии всего две версии:

  • AeonSofts Theme Designer
  • Aeonsofts Theme Manager v2.0

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

Создаем новый проект и запускаем AeonSofts Theme Designer

theme1 300x281 Графический интерфейс с помощью AeonSofts Theme | Быстро и легко!

Подробнее »

  Метки: ,
  Евгений
  Просмотров: 5 974
  Запись опубликована в 08:04

Добавление строк снизу в вверх

По аналогии, как сделано в чатах.

Dim lnSize As Single = RichTextBox1.Font.Height + RichTextBox1.Font.GetHeight
Dim nBufferSize As Integer = CInt(Math.Truncate(RichTextBox1.ClientSize.Height / lnSize * 2))
Static i As Integer : i += 1
Static lnBuffer As New List(Of String)(Enumerable.Repeat(Environment.NewLine, nBufferSize))
If (lnBuffer(0) = Environment.NewLine) Then
    lnBuffer.RemoveAt(0)
End If
lnBuffer.Add(Now.ToLongTimeString & " : " & TextBox1.Text)
RichTextBox1.Lines = lnBuffer.ToArray
RichTextBox1.ScrollToCaret()
RichTextBox1.SelectionStart = RichTextBox1.Text.Length
RichTextBox1.ScrollToCaret()

TextL 300x238 Добавление строк снизу в вверх

  Метки:
  Евгений
  Просмотров: 4 132
  Запись опубликована в 13:27

Копирование локального файла с отображением процесса

Работать мы будем с классом WebClient.

#скопировать файл используя диалог проводника Windows

CopyFile Копирование локального файла с отображением процесса

На форму поместите Button и ProgressBar

Копирование файла (ProgressBar).zip

Imports System.Net
Imports System.IO
Public Class Form1
    WithEvents WC As New WebClient
    Dim UrlFile As Uri = New Uri("D:\Hard\1.msi")
    Dim Leng As Long
    Public Sub New()
        ' Этот вызов необходим конструктору форм Windows.
        InitializeComponent()
        Dim FI As FileInfo = New FileInfo(UrlFile.LocalPath)
        Leng = FI.Length
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WC.DownloadFileAsync(UrlFile, "D:\1.msi")
    End Sub
    ' Процедура "копирования"
    Sub DPC(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
        ProgressBar1.Maximum = Leng \ 1024 ' Max
        ProgressBar1.Value = e.BytesReceived \ 1024 ' Value
        Text = e.BytesReceived \ 1024 & " Кб" ' KbReceived
    End Sub
    ' Копирование завершено
    Private Sub DFC(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted
        If e.Error Is Nothing Then
            MsgBox("OK")
        Else
            MsgBox(e.Error)
        End If
    End Sub

Сердечко

По началу хотел реализовать графически, но не совсем пока разобрался, как применять нужные мне формулы, так что сделал этакое "простое" чудо. Как разберусь с графическим, обязательно покажу.

Загрузить проект

  Метки:
  Евгений
  Просмотров: 2 743
  Запись опубликована в 16:58

Время выполнения кода?

Для чего нужно знать время выполнения того или иного участка кода? Допустим у вас есть два варианта кода, которые выполняют одно и тоже. Тогда с помощью замеров, можно просмотреть, какой вариант выполнится быстрей и исходя из этих данных делать выводы.

Сегодня разберем два примера.

rst.rst04164 Время выполнения кода?

Первый пример:

Класс StopWatch унаследованный от System.Diagnostics

VB.NET:

Imports System.Diagnostics
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SW As New Stopwatch 'Создаем объект
        SW.Start() 'Запускаем
        System.Threading.Thread.Sleep(1000) 'Наш код
        SW.Stop() 'Останавливаем
        MsgBox(SW.ElapsedMilliseconds) 'Время выполнения в миллисекундах
        MsgBox(SW.Elapsed.Seconds) 'Время выполнения в секундах
        MsgBox(SW.ElapsedTicks) 'Тики
    End Sub
End Class

C#:

using System.Diagnostics;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        private void button1_Click(object sender, EventArgs e)
        {
            Stopwatch SW = new Stopwatch(); // Создаем объект
            SW.Start(); // Запускаем
            System.Threading.Thread.Sleep(1000); // Наш код
            SW.Stop(); //Останавливаем
            MessageBox.Show(Convert.ToString(SW.ElapsedMilliseconds)); // Время выполнения в миллисекундах
            MessageBox.Show(Convert.ToString(SW.Elapsed.Seconds)); // Время в секундах
            MessageBox.Show(Convert.ToString(SW.ElapsedTicks)); // Время в тиках
        }
    }
}

Подробнее »

  Метки: , ,
  Евгений
  Просмотров: 21 116
  Запись опубликована в 12:10

Узнаем букву флешки

В данном примере мы узнаем какую букву занимает наша флешка.

Можно определять тип и информацию о дисках.

Код на VB.NET и для C#

DriveType 300x158 Узнаем букву флешки

Подробнее »

  Метки: , ,
  Евгений
  Просмотров: 6 341
  Запись опубликована в 10:09

Регулирование громкости компьютера

Регулирование громкости 300x58 Регулирование громкости компьютера

По поводу CoreAudioApi можно почитать в интернете, информации полно.

  Метки: , ,
  Евгений
  Просмотров: 8 279
  Запись опубликована в 14:38

Извлечение кадров из видео файлов

Этот класс содержит методы использования интерфейса IMediaDet, что можно найти в Microsoft DirectShow. Объекты Media Detector, среди прочего, могут быть использованы для извлечения стоп-кадров из нескольких форматов файлов, включая *. AVI, *. WMV и некоторых *. файлов MPEG.

Интерфейс IMediaDet

Исходная статья

Раскадровка видео файлов 300x272 Извлечение кадров из видео файлов

  Метки: , ,
  Евгений
  Просмотров: 8 485
  Запись опубликована в 07:08

Тень для формы

С Новым Годом читатели блога! Вот и первая запись в 2014 году.

Не давно нашел код, который реализует тень для формы

теньдляформы Тень для формы

Показать код »

Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Dim myparam As CreateParams = MyBase.CreateParams
            myparam.ClassStyle = myparam.ClassStyle Or &H20000
            Return myparam
        End Get
    End Property
  Метки: , ,
  Евгений
  Просмотров: 3 907
  Запись опубликована в 10:39

Бесконечно большие числа

Все мы знаем такие типы как Integer, Double, Long. И так же мы знаем что любой из этих типов имеет верхнюю и нижнюю границу значений.

И конечно же это не есть хорошо. Вдруг нам понадобится совершать вычисления с внешним долгом Украины? Тут уж никакие Intenger'ы не помогут.

Но нам на помощь приходит новый тип BigInteger, доступный начиная с .NET Framework 4.

1332915113 4 thumb4 300x225 Бесконечно большие числа

Подробнее »

  Метки: , ,
  Gemorg
  Просмотров: 5 657
  Запись опубликована в 15:07

Страницы:«1234567...12»