Filelistbox

[Stable]

Здраствуйте!
Помогите полному чайнику. Такой вот вопрос:
В Listbox при Выборе файла txt открывается другая форму с textbox , textbox непоказывает содержимое этого файла:( Посаветуйте.

[alibek]

Что было сделано и что вызывает сложности?

[Stable]

Немогу сделать код в textbox(Form2), чтоб открывался файл из ListBox(form1).

[Debugger]

fl=FileList

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


open form1.fl.filename for input as #1
Dim s As String
Dim i As Integer
i = FileLen(form1.fl.filename)
s = Input(i, #1)
txt=s
Close


[alibek]

Лучше fl.Path & "\" & fl.Filename, и не For Input, а For Binary.

[Stable]

Сама прога такая:
Прграмма должна открывать текстовые файлы и изображения.
С изображением я справился. ( В Listbox выбираю изображение, на Picturebox оно есть), а вот с текстовым файлом немогу разобраться. Как мне поступить?
Кстате, а что такое *fl=Листикю*.

[Oxygen]

А если использовать RichTextBox? Тогда все становится крайне просто.

[Stable]

Oxygen

А код можешь подсказать?

[alibek]

А если использовать RichTextBox? Тогда все становится крайне просто.

Э... А ты его вопрос читала?

[Oxygen]

Читала. Но если человек не может отобразить содержимое файла в TextBox, то может ему будет проще загрузить есго целиком в RTB?

2Stable Берем RichTextBox ставим его на форму, вторую, где должен отображаться текст. При выборе файла пишем Form2.RichTextBox.LoadFile (form1.fl.Path & "\" & form1.fl.filename)
В общем, смысл такой, а как уж у тебя компоненты называются, сам расставишь имена.

[Debugger]

Лучше fl.Path & "" & fl.Filename, и не For Input, а For Binary.

Да?

[Stable]

Спасибо программа сработала:), но есть один ньюанс. RitchBox открывает необходимый файл, только после нажатия на какую-либо клавишу!

[keks-n]

Debugger
Никогда не использую for input и for output для чтения/записи.Могут испортить содержимое файла.Лучше использовать binary с соответствующим Access (Read или Write). For Output использую только для обнуления содержимого файла , кто-нибудь, скажите, как ещё выставляется размер файла в 0?

[|kerish|]

кто-нибудь, скажите, как ещё выставляется размер файла в 0?

Kill "C:\test.txt"
Open "C:\test.txt" For Binary As #1
Close #1

хе-хе

P.S. Открывание файла способом

fl.Path & "" & fl.Filename

может в некоторых случаях привести к провалу, хотя это уже придирки...

[keks-n]

Kill - это с предварительным убиением... А мне надо без оного

[Antonariy]

кто-нибудь, скажите, как ещё выставляется размер файла в 0?

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

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const GENERIC_WRITE = &H40000000
Private Const TRUNCATE_EXISTING = 5
Private Type SECURITY_ATTRIBUTES
    nLength As Long
    lpSecurityDescriptor As Long
    bInheritHandle As Long
End Type

Dim hFile As Long
Dim sa As SECURITY_ATTRIBUTES
    sa.nLength = Len(sa)
    hFile = CreateFile(lPath, GENERIC_WRITE, 0, sa, TRUNCATE_EXISTING, 0, 0)
    CloseHandle hFile

[alibek]

Debugger
Никогда не использую for input и for output для чтения/записи.Могут испортить содержимое файла.Лучше использовать binary с соответствующим Access (Read или Write). For Output использую только для обнуления содержимого файла , кто-нибудь, скажите, как ещё выставляется размер файла в 0?

For Input файл никогда не попортит.
Чтобы изменить (уменьшить) размер файла, можно использовать API SetEndOfFile.

[SeT]

Спасибо программа сработала, но есть один ньюанс. RitchBox открывает необходимый файл, только после нажатия на какую-либо клавишу!

Странно...
тогда richtextbox1.refresh