[Uzvern]

Как можно сделать корректное отображение символов в RichTextBox?
подгружаю текст из файла ивот такая беда

Как полусить SubItems значение выделеного элемента ?
Сделал так :

Код:

ListView1.SelectedItems.Item(0).SubItems.Item(1).Text

Помогло

[Admiral]

Сохранять файл в кодировке Юникод (Unicode) и будет всё ОК

[Uzvern]

Сделал липкое окно

Код:

    Sub SW(ByVal Pixels As Integer)
        Dim SH = Screen.PrimaryScreen.WorkingArea.Height
        Dim SW = Screen.PrimaryScreen.WorkingArea.Width

        Dim MAH = Me.Location.Y + Me.Height
        Dim MAW = Me.Location.X + Me.Width

        'Верхняя строна
        If Me.Location.Y - Pixels <= Pixels And Me.Location.Y + Pixels > 0 - Pixels Then
            Me.Location = New Point(Me.Location.X, 0)
        End If
        '/Верхняя строна

        'Нижняя сторона
        If SH - MAH <= Pixels And SH - MAH + Pixels > 0 - Pixels Then
            Me.Location = New Point(Me.Location.X, SH - Me.Height)
        End If
        '/Нижняя сторона

        'Правая сторона
        If SW - MAW <= Pixels And SW - MAW + Pixels > 0 - Pixels Then
            Me.Location = New Point(SW - Me.Width, Me.Location.Y)
        End If
        '/Правая сторона

        'Левая сторона
        If Me.Location.X - Pixels <= Pixels And Me.Location.X + Pixels > 0 - Pixels Then
            Me.Location = New Point(0, Me.Location.Y)
        End If
        '/Левая

    End Sub

Как то можно убрать потрясывания во время "приклеивания окна"?

Юникод (Unicode) и будет всё ОК »

Как можно перекодировать файл при помощи VB?

[Admiral]

Возможно через таймер дать плавный переход по координатам?
Я имел ввиду в блокноте пересохранить текстовый файл как Юникод.

читать дальше »

В проекте всё правильно считывает из тхт файла.
Если так интересно тогда вот Конвертация ANSI to UNICODE (или UTF)

[Uzvern]

Как в одном окне можно создать ещё одно?

[Admiral]

Это называется MDI интерфейс.
Creating Multiple-Document Interface (MDI) Applications

[Uzvern]

Admiral, чет у меня с кодом косяк какой-то.

Код:

Dim ch1 As New Child1
Dim ch2 As New Child2

Child(х) подчеркивает

Вопрос решен. Моя тупость.

А можно как-то цвет поменять? С серого на белый например?!

[Admiral]

Да.

Код:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SetBackGroundColorOfMDIForm()
    End Sub
    Private Sub SetBackGroundColorOfMDIForm()
        Dim ctl As Control

        ' Loop through controls,  
        ' looking for controls of MdiClient type. 
        For Each ctl In Me.Controls
            If TypeOf (ctl) Is MdiClient Then

                ' If the control is the correct type,
                ' change the color.
                ctl.BackColor = System.Drawing.Color.White
            End If
        Next
    End Sub

Form.IsMdiContainer Property

[Uzvern]

Как можно автоматичски добавлять действия, например :

Код:

Public Class Form1

    Dim TabControl As New TabControl
    Dim Num As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Controls.Add(TabControl)
        Me.TabControl.Dock = DockStyle.Fill
        Me.TabControl.Multiline = True

        Do Until TabControl.TabCount = 8
            Num += 1
            TabControl.TabPages.Add("TabPage" & Num)
        Loop

        For x As Integer = 0 To TabControl.TabCount - 1
            Dim b As New Button
            TabControl.TabPages(x).Controls.Add(b)
            b.Dock = DockStyle.Bottom
            b.Name = "Button" & x + 1
            b.Text = b.Name
        Next

    End Sub
End Class

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

[Admiral]

Основная часть динамики уже написана, осталось приделать динамическое добавления событий и поставленная задача будет выполнена

Код:

        For x As Integer = 0 To TabControl.TabCount - 1
            Dim b As New Button
            AddHandler b.Click, AddressOf Button_Click
REM...дальше код с предыдущего поста
        Next

    End Sub
REM этих строчек не было ранее, именно они отвечают за действия кнопок
    Protected Sub Button_Click(ByVal sender As Object, ByVal e As EventArgs)
        If TypeOf (sender) Is Button Then ' check to make sure that the sender is actually a Button
            MsgBox(TabControl.SelectedTab.Text.ToString())
        End If
    End Sub

Ссылки по вопросу
как узнать имя объекта вызвавшего событие?
How to: Consume Events in a Windows Forms Application
Set dynamic control's properties

И немного истории How To Dynamically Add Controls to a Form with Visual Basic 6.0