Запись в строчку!

[ZipFeR]

Здарова люди
это..самое...подскажите плиз код чтобы записывать в длину а не через строчку, ну блин вот мой код:

Код: Выделить всё

f = FreeFile
Open "c:\1.txt" For Append As f
Print #f, "z"
Close #f

Кароче если нажата кнопка то записывает в файл текст "z" , так вот он записывается через строку, а мне надо подряд чтобы ??

[Alexanbar]

print #f,"z";

[Amed]

Нет, млин, здесь не савсем так, кароче:

Код: Выделить всё

print #f, "z";


Вот так, па-моему...

[Ramzes]

Нет, млин, здесь не савсем так, кароче:

Код: Выделить всё

print #f, "z";


Вот так, па-моему...

Помоему Alexanbar именно так и написал

[ZipFeR]

Спасибо !

ЛЮДИ ЩАС ЗАДАМ ЛАМЕРСКИЙ ВОПРОС ТОКА НЕ БЕЙТЕ !!

Вот мой код, тут мне нужно чтобы работала кнопка z и записывалось в файл, через ASC не нужно, только через Chr

Код: Выделить всё

If KeyCode = Chr ("122") Then
f = FreeFile
Open "c:\1.txt" For Append As f
Print #f, "z";
Close #fcode]

[GSerg]

За спутывание 122 и "122" бить будем обязательно!

[Ramzes]

За спутывание 122 и "122" бить будем обязательно!

Не, бить не будем, просто поправим

[ZipFeR]

Всеравно не работает блин
Пишу так:

Код: Выделить всё

Private Sub Command1_KeyPress(KeyAscii As Integer)
If KeyCode = Chr(122) Then
f = FreeFile
Open "c:\1.txt" For Append As f
Print #f, "z";
Close #f
End If


ПРОБОВАЛ ДЕЛАТЬ KeyDown и всеравно нифига попробуйте сами

[GSerg]

А стрелки и не ловятся в этой процедуре.

[tyomitch]

Да блин, там надо:

Код: Выделить всё

If KeyCode = 122 Then

[ZipFeR]

Блин мне даже интересно стало, никак не рабоатет ! и как в учебнике у меня и как тока не пробовал и нифига ! ПОПРОБУЙТЕ САМИ ПЛИЗ !
Ни ни нерабоатет

[_Мика_]

А так

этот код в Key_Down

Код: Выделить всё

If KeyCode = vbkeyz Then
f = FreeFile
Open "c:\1.txt" For Append As f
Print #f, "z";
Close #f
end if


[ZipFeR]

Блин, а как осуществить запись ПРОБЕЛА в файл ?? тоесть я нажимаю
zzz [пробел] zzz

???

[ZipFeR]

Че-то непонял это че ? под кей довн не работает.
Поподробнее плизз