Как открыть файл и поместить его содержимое в TextField?

Question

Я пытаюсь научиться открывать файл и помещать его содержимое в TextField, используя общий диалог, только командный диалог в Visual Basic 6.

Мне нужно это, используя только общий диалог, потому что я пытаюсь сделать то же самое приложение в eVB, а eVB не поддерживает такие вещи, которые делают разработку VB6 более простой:

Dim objFSO As New Scripting.FileSystemObject
Dim objStream As Scripting.TextStream

Answer 1

Извлечение Доступ к файлу eVB через WinCE API . Пример кода из статьи (при условии, что вы уже получили свое имя файла (myFileName) из общего диалога):

Public Const GENERIC_READ As Int32 = &H80000000 
Public Const OPEN_EXISTING As Int32 = 3

' CreateFile will open a file handle (hFile) to the file in the myFileName variable
hFile = CreateFile(myFileName, GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0)

lFileSize = GetFileSize(hFile, 0)

' String(lFileSize, 0) will prepare the sContents string variable 
' to hold the contents of the file
sContents = String(lFileSize, 0)

' ReadFile actually reads the file we opened earlier and puts the contents
' into the sContents variable
ReadFile hFile, sContents, lFileSize, dwRead, 0

' Put the contents we read into the textbox
myTextBox.Text = sContents