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

Рисунок цапли

Ища у себя в архиве проектов один проект, нашел совершенно случайно интересный проект. Автора можно найти на КБ.

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

Imagee 300x248 Рисунок цапли

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

Красивый интерфейс с помощью DotNetBar

DotNetBar для Windows Forms (VB.NET, C#) является инструментом для создания профессиональных пользовательских интерфейсов.

Предоставляется на использование 78 различных компонентов.

DotNetBarControls Красивый интерфейс с помощью DotNetBar

Таким образом можно быстро создавать красивые интерфейсы для своих программ.

Подробнее »

  Метки: ,
  Евгений
  Просмотров: 16 958
  Запись опубликована в 18:31

Разноцветные итемы в ListBox

Пример взят с MSDN

Public Class Form1
    Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
        'Рисуем фон элемента управления ListBox для каждого элемента.
        e.DrawBackground()
        'Цвет кисти по умолчанию черный
        Dim myBrush As Brush = Brushes.Black
        'Задаем цвет для трех итемов
        Select Case e.Index
            Case 0
                myBrush = Brushes.Red
            Case 1
                myBrush = Brushes.Orange
            Case 2
                myBrush = Brushes.Purple
        End Select
        'Рисуем текст.
        e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, myBrush, e.Bounds, StringFormat.GenericDefault)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.DrawMode = DrawMode.OwnerDrawFixed 'Задаем режим для рисования элемента
        ListBox1.Items.AddRange({"VB.NET", "C#.NET", "F#.NET"})
    End Sub
End Class

ListBoxDrawItem Разноцветные итемы в ListBox

  Метки:
  Евгений
  Просмотров: 5 947
  Запись опубликована в 11:30

Работа с реестром | Запись и чтение.

Реестр подходит для хранения настроек программы и не только.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Test", "Key", TextBox1.Text) ' Записываем текст в раздел Test
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        My.Computer.Registry.CurrentUser.CreateSubKey("Test") ' Создаем новый раздел с именем Test и открываем с доступом на запись
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox2.Text = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Test", "Key", Nothing) ' Выводим записаный текст из раздела Test
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Registry.CurrentUser.DeleteSubKey("Test") ' Удаляем раздел Test из реестра 
    End Sub
End Class

mcr Работа с реестром | Запись и чтение.

Подробно на MSDN

  Метки:
  Евгений
  Просмотров: 6 951
  Запись опубликована в 11:41

Создание скриншота области экрана

Написал  пример создания снимка области экрана, не используя класс Graphics и структуру Rectangle, как сделано в FastScreen.

Нам потребуется всего лишь один PictureBox.

Правда есть небольшой нюанс, при выделении области в левую строну экрана, край PB дергается.

На всякий случай, если у кого то получилось это исправить, напишите мне, я обязательно внесу изменения в статью.

Imports System.Drawing.Imaging
Public Class Form1
    Public Sub New()
        InitializeComponent()
        Me.Left = 0
        Me.Top = 0
        Me.Width = Screen.PrimaryScreen.Bounds.Width
        Me.Height = Screen.PrimaryScreen.Bounds.Height
        Me.BackColor = Color.Black
        Me.TransparencyKey = Color.Yellow
        Me.Opacity = 0.7
        Me.TopMost = True
        Me.Cursor = Cursors.Cross
        PictureBox1.BackColor = Color.Yellow
    End Sub
    Dim xy1 As Point, xy2 As Point
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        xy1 = e.Location
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            xy2 = e.Location
            PictureBox1.Location = New Point(Math.Min(xy1.X, xy2.X), Math.Min(xy1.Y, xy2.Y))
            PictureBox1.Size = New Size(Math.Max(xy1.X, xy2.X) - PictureBox1.Location.X, Math.Max(xy1.Y, xy2.Y) - PictureBox1.Location.Y)
        End If
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        g.CopyFromScreen(New Point(PictureBox1.Left, PictureBox1.Top), New Point(0, 0), New Point(PictureBox1.Width, PictureBox1.Height))
        bmp.Save(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\1.jpg", ImageFormat.Jpeg)
        MsgBox("Снимок создан") : PictureBox1.Size = New Size(0, 0)
    End Sub
End Class

Скачать исходник

  Метки: ,
  Евгений
  Просмотров: 9 602
  Запись опубликована в 11:31

Страницы:«123456789101112»