[Alexej77]

В процедуре события MouseDown определяй, какая кнопка нажата, в нее передаются нужные параметры.

[Uzvern]

Alexej77, спасибо! Оперативно!
Теперь всегда буду тут спрашивать. )

P.S. Тему можно не закрывать. Я скоро вернусь с новым заданием

[Uzvern]

Вопрос № 2:

Можно ли как-то изменить название кнопок в MsgBox ? Например в место кнопки "Ок" - сделать кнопку "Хорошо", или все-таки придется делать дополнитьельную форму?

[Admiral]

Придётся брать форму, ибо MsgBox уже предустановлен.

[Uzvern]

Ещё вопрос :

Как открыть текстовый файл ПОЛНОСТЬЮ, а НЕПОСТРОЧНО.
В VB6 Input$(LOG(1),1) в 8 не катит

[Admiral]

Я в VB6 так считывал все строки

Код:

intFH=FreeFile
Open "C:\Boot.ini" For Input As intFH
Do Until EOF(IntFH)
        Line Input #intFH, strString
        strText=strText & strString & VbLf
Loop

Для VB2008 будет так

Код:

Dim fileReader As String
        fileReader = My.Computer.FileSystem.ReadAllText("C:\Boot.ini")
        MsgBox(fileReader)

[Uzvern]

Вообщем-то сабж:
Как сделать, чтобы программа вела лог?

Например у меня 3 TextBox и 1 кнопка.
Необходимо чтобы при нажатии на кнопку - программа записывала значения TextBox каждое в отдельную строчку.
Например: Нажал на кнопку в файле появились строки:

123
456
789

Нажал ещё раз, к ним прибавились ещё одни только уже через строчку и результат будет таким :

123
456
789

098
765
432

и так до бесконечности или до определенного размера файла, дальше начинается перезапись.

И ещё вопросик на счет файлов тоже:
OpenMode.Binary

чет я в VB8 в них разобраться несмог. как записывать посторчно и как считывать, тоже построчно.

[Admiral]

Между логом и того примера с трёма TextBoxами и одной кнопкой общего мало. Лог, как по мне, реализуется не так: для него даже компонент вроде есть.
Я сам не писал лог обработчик. А как вопрос решался в VB6 или там не приходилось так писать?

А предложенный пример реализуется так

Код:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileOpen(1, "File.log", OpenMode.Append) 'Открываем для добавления. Если файла нет, то он создаётся
        PrintLine(1, TextBox1.Text) 'Добавляем строчки в лог файл
        PrintLine(1, TextBox2.Text)
        PrintLine(1, TextBox3.Text)
        PrintLine(1, "") 'Добавляем пустую строчку
        FileClose(1) 'Желательно после всех проделанных операций закрывать файл
End Sub

OpenMode.Binary - бинарный доступ, строк как таковых нету, только группы определённых, понятных кодеру, данных. Полная аналогия как и в VB6

Построчно можно считать также как и в VB6

Код:

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

Что б писать построчно нужно открыть файл в режиме OutPut/Append и использовать оператор PrintLine. (см первый пример в посте)

[Uzvern]

Do Until EOF(1) LineOfText = LineInput(1) AllText = AllText & LineOfText & vbCrLf Loop »

А вот тут можно поподробней, кроме цыкла?!
Т.е. что значит :
EOF(1)
и кстати интереисует вопрос: что значит вот этот знак "&"

OpenMode.Binary - бинарный доступ, строк как таковых нету, только группы определённых, понятных кодеру, данных. Полная аналогия как и в VB6 »

Значит нельзя например из первой сторки считать с 3 байта, а со второй с 5?

Кстати какие ещё циклы бывают, кроме:
If Then Else
End If

Do While/Until
Loop

Do
Loop While/Until

For
Next

И в каких случаях они используются (кроме тех что написал).