[Uzvern]

пройти у них регистрацию, что б скачать указанный пример »

Скачать - скачал, а как его в проект запихать незнаю

[Uzvern]

Понял как можно избавится от

Код:

Chr(10) и тому подобной не нужной "гадости"

Код:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = ""
        If TextBox1.Text <> "" And IsNumeric(TextBox1.Text) = True Then
            TextBox1.Text = Int(TextBox1.Text)
            For v As Integer = 1 To TextBox1.Text
nachalo:
                Dim i As Integer
                i = Int(Rnd() * 190 + 1)
                Select Case i
                    Case 1 To 8 REM ну тут все как обычно
                        RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                    Case 14 To 190 REM и тут
                        RichTextBox1.Text = RichTextBox1.Text & Chr(i)
                        'Решение
                    Case Else 
                        RichTextBox1.Text = RichTextBox1.Text & ""
                        Do Until RichTextBox1.Text.Length = TextBox1.Text
                            Debug.Print(i)
                            GoTo nachalo
                        '/Решение
                        Loop
                End Select
            Next v
            Me.Text = RichTextBox1.Text.Length
        Else
            MsgBox("Вы не ввели значение, либо значение не является числом.", MsgBoxStyle.Critical, "Введите значение!")
        End If
    End Sub
End Class

[Uzvern]

Как-то можно запустить VB , чтобы сразу же появлялось окно с выбором нужного пректа, возможно с каким-то параметром или как-то по другому.

[Admiral]

Да можно. Загрузка последнего загруженного проекта настраивается так
Tools - > Options... -> Startup - > At startup: -> Load Last loaded solution

[Uzvern]

Нет, а можно чтобы окно выбора создаваемого проекта появилось?! Как на скрине.

[Admiral]

Тот же путь только последний пункт Show New Project dialog box
Информация по другим пунктам доступна в статье Startup, Environment, Options Dialog Box

[Uzvern]

Как вывести полный список файлов и папок, находящихся в указаной папке/системном диске/съемном носителе?!
И как можно отследить подключение съемного диска.

[Admiral]

List of all files and folders on drive
How to detect Insertion/Removal of a USB device

[Uzvern]

Убрал глюк с NotifyIcon и ContextMenuStrip.
Оказывается, надо было в свойствах NotifyIcon указать нужный ContextMenuStrip и прописать его вызов в код.

Код:

    Dim MD As Boolean = False

    Private Sub NotifyIcon1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
        If MouseButtons = Windows.Forms.MouseButtons.Right Then
            MD = True
        Else
            MD = False
        End If
    End Sub

    Private Sub NotifyIcon1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseUp
        If MD = True Then
            NotifyIcon1.ContextMenuStrip.Show()
            MD = False
        Else
            MD = False
        End If
    End Sub

[Uzvern]

Можно показать на примере цикл For Each, на каком-нмбудь понятном примере. просто пробовал разобраться - бестолку.

Кстати, для авторизации на сайте/форуме, нашел код :

Код:

 WebBrowser1.Navigate("//forum.oszone.net/index.php") 


    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted 
        WebBrowser1.Document.GetElementById("vb_login_username").InnerText = "ЛОГИН" 
        WebBrowser1.Document.GetElementById("vb_login_password").InnerText = "ПАРОЛЬ" 

        Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("input") 
        For Each curElement As HtmlElement In theElementCollection 
            If curElement.GetAttribute("value").Equals("Войти") Then 
                curElement.InvokeMember("click") 
            End If 
        Next 
End Sub

За код спасибо http://bbs.vbstreets.ru/