[Uzvern]

Admiral, а если я добавлю ещё TextBox и при нажатии на кнопку, чтобы вылетало сообщение с текстом из текст бокса. Как это сделать?

[Admiral]

Я так понимаю TextBox на каждую вкладку

Код:

        For x As Integer = 0 To TabControl.TabCount - 1
REM ... код из предыдущего поста
            Dim t As New TextBox
            TabControl.TabPages(x).Controls.Add(t)
            t.Name = "TextBox" & x + 1
            t.Text = 1000 * (x + 1)
        Next

    End Sub

    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.Controls.Item(1).Text) 'Говорим что бы вывело текст контрола размещённого в выделенной вкладке по индексом 1, под 0 ушла кнопка
        End If
    End Sub

[Uzvern]

Admiral, блин, точняк там же можно выводить из контрола. чет я совсем затупил. Спасибо, Чувак!

[Uzvern]

А можно как-то писать и использовать в VB dll?

[Admiral]

С переходом на NET VB утратил базовую возможность писать ActiveX DLL.
Писать всё же можно, но среда аналогичной вкладки

как в VB6 не имеет

Придётся немного помудрить, что б сделать всё же DLL Writing an ActiveX Control in VB.NET
И их правильное использования.
DLL на VB.NET (точка входа)
Microsoft всё же надеется что среди богатых возможностей .NET FrameWorks найдутся классы которые прямо из коробки подойдут к проге, так что б смысла писать DLL у разработчиков не было.
В тоже время наибольший интерес представляют уже написанные DLL (не обязательно на NET). И в этой теме, когда необходимо было использовать WinApi функции, как раз использовались вызовы из системных библиотек.
Есть удобное средство позволяющие узнать, как вызывать функции из написанных DLL (тех что входят в базу проги, преимущественно системные, так что WinAPI) ApiViewer (en)

[Uzvern]

Как можно добавить таймер на форму?

Код:

        Dim Timer As New Timer
        Controls.Add(Timer)

так не хочет.

Там вроде как-то по другому надо добавлять и не только с таймером так

[Admiral]

Таймер, в отличие от VB6, помещается не на саму форму, а среда сама показывает, что он есть в проекте, но не добавляет его на форму.
Timer Class (по ссылке пример)
По указанным причинам так нельзя, кроме таймера, MainMenu или ContextMenu так как эти контроли не входят в класс Control.ControlCollection. >>

[Uzvern]

Как можно перевсти фокус с одно текст бокста на другой, ну или на кнопку например.
Все. нашел :

Код:

.Focus()

Как можно сделать обрашение к нужному текст боксу по кнопке, например :

Код:

Public Class Form1

    Dim x As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x += 1
        TextBox(x).Focus()
    End Sub
End Class

что-то в этом роде.

Все сделал :

Код:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim n As Integer
        Dim l As Integer
        Dim s As Integer
        Do Until n = 4
            n += 1
            Dim tb As New TextBox
            tb.Size = New Size(55, 20)
            tb.Location = New Point(12 + l + s, 12)
            tb.MaxLength = 4
            s = tb.Size.Width
            l = tb.Location.X
            AddHandler tb.TextChanged, AddressOf T
            Controls.Add(tb)
            Me.Size = New Size(tb.Location.X + 30 + 55, 78)
        Loop
    End Sub

    Dim v As TextBox
    Dim ti As Integer

    Private Sub T(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If TypeOf sender Is TextBox Then
            v = sender
            If v.Text.Length = 4 Then
                ti = v.TabIndex
                ti += 1
                Debug.Print(ti)
                Try
nachalo:            If TypeOf Controls.Item(ti) Is TextBox Then
                        Debug.Print(ti)
                        Controls.Item(ti).Focus()
                        Debug.Print(Controls.Item(ti).Name)
                    Else
                        ti += 1
                        GoTo nachalo
                    End If
                Catch
                    Dim TB As TextBox
                    For Each x As TextBox In Controls
                        If TypeOf x Is TextBox Then
                            TB = x
                            TB.Enabled = False
                        End If
                    Next
                End Try
            End If
        End If
    End Sub
End Class

Правда надо немного подшаманить, чтобы ошибки не лезли

Не могу понять как обращаться к объектам из BackgroundWorker. Прочитал этот пост, но ничего путного не нашел.
вот сам код :

Код:

На форму кинул 3 TextBox'a, BackgroundWorker, ProgressBar, Кнопку

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
            If TextBox1.Text <> "0" Or TextBox2.Text <> "0" Then
                TextBox3.Text = Math.Round(Val(TextBox1.Text / TextBox2.Text / 60), 2) & " мин."На это сторке начинает "орать" : "Недопустимая операция в нескольких потоках: попытка доступа к элементу управления "TextBox3" не из того потока, в котором он был создан."
            End If
        End If
    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
End Class

Как работать с модулями?

[Uzvern]

Hash
А можно как-то получить обратный результат?

Код:

"qwertyuiopasdfgh".GetHashCode = 1377243374

А мне бы хотелось наоборот получить не "1377243374", а "qwertyuiopasdfgh"

[Admiral]

Получить символы по его хешу не возможно в принципе!

Хеш (Hash) - комбинация символов, полученная с помощью безвозвратных математических операций. Если б можно было, то все пароли зная их хешы, которые не скрывают, на раз бы раскрывались. >>
В Интернете есть сайты которые составляют хеш таблицы соответствий, что б легче было "вспоминать" пароли.