[Uzvern]

Ещё. Что означает в свойствах объекта : ImeMode? и как мне можно открыть папку (Файл открывать при помощи Shell - за это отдельное спасибо. Теперья знаю как можно создать свой авторан ) ?

[Admiral]

Или считываем построчно файл, как в девятом посте, на тот случай если инфа ещё будет нужна в виде переменной, что б не считывать заново и не выспрашивать её у ComboBox1 тогда просто пишем, в общем случаи

ComboBox1.Items().Add(*перемнная*) »

а конкретно по примеру
ComboBox1.Items().Add(AllText)
или прямо в него в цикле записываем, правильнее сказать, добавляем строчки

Код:

Dim AllText As String = "", LineOfText As String = ""
        FileOpen(1, "File.log", OpenMode.Append)
        Do Until EOF(1)
           ComboBox1.Items().Add(LineInput(1)) 
        Loop

кстати можно писать и без () после Items -> ComboBox1.Items.Add(LineInput(1))

Это будет смешно, но опять же, с помощью команды Shell, есть отдельные команды специально для открытия папок, но это самое простое.
В это случаи необходимо будет передавать параметром имя "Експлорер" и папку на открытия в нём Shell("Explorer.exe C:\")
Кстати, возможно понадобится подрегулировать параметры запуска через запятую после " AppWinStyle далее точка и нужный эффект открытия.
По сути Shellу можно скормить практически тоже, что и cmd. Я его когда Winampom кормил, пока не умел музыку самостоятельно играть в проге.
Так же в VB есть файловые диалоги, специально для файлов и папок, возможно они подойдут больше. Они лежат на палитре компонентов, так что запоминать их имена не обязательно.

ImeMode, честно говоря я уже подумал что это уже .NETовское нововведение, не тут-то было, в VB6 он тоже есть. В VB2008 есть даже таблица соотношений. Но я про него не знал, ибо не было в нём надобности.

An IME is a program that enables users to enter complex characters and symbols, such as Japanese Kanji characters, using a standard keyboard. The ImeMode property is typically set to ImeMode..::.Off for a TextBox control that is intended to only enter numeric values. The ImeMode property value is set to ImeMode..::.NoControl for the Form class.

Кратко – IME режим даёт возможность ввод японских иероглифов со стандартной клавиатуры.

На счёт игры и её дизайн, так держать, выполнена она в хакерском стиле – главное творчество, а опыт в средствах разработки даст рост.

[Uzvern]

А как можно сделать чтобы программа сворачивалась в трей? и если щелкаешь на неё правой кнопкой мыши (когда она в трее) вылезал ContextMenuStrip?

+ как сделать проверку, если в ТекстБоксе есть какие-либо символы, то они убираются из ТекстБокса, либо чтение происходит до них или после. или если существует какие-либо символы, то выполняетя определенное дейстиве, например как обычно MsgBox(123)

[Admiral]

С тре никогда не связывался, с ним в VB6 было больше мороки, в Vb2008м компонент на палитре есть, но нет желание работать с тре. Как работать с тре можно посмотреть вот здесь http://forums.microsoft.com/MSDN/Sho...52568&SiteID=1

Проверить равенство на пустой символ

Код:

        If TextBox1.Text = "" Then
            MsgBox("123")
        End If

До определённого символа это равноценно работы со строками, с нини лучше, стандартно забиваем в переменную и по символьно в цыкле проверяем елементы строки/массива, если найденный нужный убираем всё что заним.
Так же можно попробовать запрет ввода сего символа, что б потом не искать, например вот так можно вводить в ТекстБокс из символов только числа

Код:

    
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Select Case e.KeyChar
            Case "0" To "9"
            Case Else
                e.KeyChar = ""
        End Select
    End Sub

[Uzvern]

С тре никогда не связывался, с ним в VB6 было больше мороки, в Vb2008м компонент на палитре есть, но нет желание работать с тре. »

Круто! Спасибо. Разобрался.

В что делаеют вот эти как бы их назвать...действия... : Handles Me.Validated и Handles Me.Validating

И как сделать проверку, если окно свернуто/развенуто/находится в нормальном состоянии.

[Uzvern]

Вот ещё сабж: как это можно реальзовать

Ху***** в прогу окно текстовое , делаешь чтобы в него подгружалась интренет страница , после подгрузки страницы в окно ишешь определённый текст и всё а дальше если есть текст то ...... Нету текста .......

[Admiral]

Handles Me.Validated/Handles Me.Validating - понятия не имею, не сталкивался, в VB6 его вообще не было. Беглый просмотр справки: вроде как момент ловления событий адрессованых системой окну (новое для VB и стандарт для C++/Delphi), а также что-то про сохранение значений (от слова Value – Значения), точнее не скажу, надо столкнутся или книг умных почитать на досуге.

Именно проверка: If Me.WindowState <> FormWindowState.Minimized Then / If Me.WindowState <> FormWindowState.Maximized Then / If Me.WindowState <> FormWindowState.Normal Then
момент срабатывания свёртывания, развёртывания, нормализации нужно отловить. Возможно и с помощью Validated/Validating

Не тривиальная это задача, по крайне мере в VB6 была, нужен компонент Internet Explorer, на палитре нужно поискать.

[Uzvern]

А как сделать это?

в прогу окно текстовое , делаешь чтобы в него подгружалась интренет страница , после подгрузки страницы в окно ишешь определённый текст и всё а дальше если есть текст то ...... Нету текста .......

[Uzvern]

Возможно и с помощью Validated/Validating »

Хм...идея! я понял как можно сделать примитивную проверку про помощи таймера

Код:

Public Class Form1
    Dim norm As Integer = 0, min As Integer = 0, max As Integer = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 10
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Valid_WinStat()
    End Sub

    Private Sub Valid_WinStat()
        If norm = 0 And Me.WindowState = FormWindowState.Normal Then
            norm = 1
            min = 0
            max = 0
            MsgBox(1)
        End If

        If min = 0 And Me.WindowState = FormWindowState.Minimized Then
            norm = 0
            min = 1
            max = 0
            MsgBox(2)
        End If

        If max = 0 And Me.WindowState = FormWindowState.Maximized Then
            norm = 0
            min = 0
            max = 1
            MsgBox(3)
        End If

    End Sub
End Class

Начинаю хоть что-то потихоньку понимать и соображать

[Uzvern]

Как добавлять и удалять значения из реестра?