Cls
Print "Test1"
CurrentX = 50
CurrentY = 50
Print "Test2"
Private Sub Command1_Click()
Cls
Dim MyFilePosition As Long 'переменная позиции
MyFilePosition = 1 'начальное значение
Dim MySimbol As Byte 'переменная символа
Open TextPole.Text For Binary As #1 Len = 1
'Это уже реализация просмотра файла
For y = 0 To 16
For x = 0 To 2 * 16 Step 2
Get #1, MyFilePosition, MySimbol 'достаем символ
CurrentX = x
CurrentY = y
Print Chr(MySimbol) ' рисуем его
'даем следующие смещение
MyFilePosition = MyFilePosition + 1
Next x
Next y
Close #1
End Sub
Private Sub Drive1_Change()
'выбираем диск
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
'выбираем путь
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
'получаем полное имя файла с путем и риуем его в поле
TextPole.Text = File1.Path + "\" + File1.FileName
End Sub
'Вот тут замечается два больших бага.
'1.Все работает открывается и смотрится из любого места
'места кроме корневого каталога. Тут вылазиет лишний слеш.
'2.И еще один баг который мне совершенно не понятен.
'Если заметно, то полное имя файла с путем формируется не
'в переменную, а сразу лепится в эелемент формы!!!
'(Это какараз последние строки)
'Если использовать какую либо переменную файл не откроется
'будет кричать и ругаться.
'Обьявление этой переменной как String не помогает.
Option Explicit
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_DblClick()
Dim x As Long, y As Long
Dim MySymbol(1 To 16) As Byte
Me.Cls
Open IfSlash(File1.Path) + File1.FileName For Binary Access Read As #1
For y = 0 To 16
Get #1, , MySymbol
Me.CurrentY = y
For x = 1 To 16
Me.CurrentX = x * 2
Me.Print Chr$(MySymbol(x));
Next
Next
Close #1
End Sub
Private Function IfSlash(s As String) As String
If Right$(s, 1) = "\" Then IfSlash = s Else IfSlash = s + "\"
End Function
'Данный пример визуально дает представление
'о том как управлять CommonDialog-ами
'а также следить за результатами из работы
'на примере CommonDialog1.ShowOpen
Private Sub Command1_Click()
Cls
'Тут играемся с настройками диалога
'Action
' CommonDialog1.Action = ???
' Print "HelpCommand", CommonDialog1.Action
'DefaultExt
CommonDialog1.DefaultExt = ".txt"
Print "DefaultExt", CommonDialog1.DefaultExt
'DialogTitle
CommonDialog1.DialogTitle = "MyDialogTitle for OpenFile"
Print "DialogTitle", CommonDialog1.DialogTitle
'Filter
CommonDialog1.Filter = "Text(*.txt)|*.txt|MSWord (*.doc)|*.doc|AllFiles(*.*)|*.*|"
Print "Filter", CommonDialog1.Filter
'HelpCommand
' CommonDialog1.HelpCommand = ???
' Print "HelpCommand", CommonDialog1.HelpCommand
'HelpContextID
' CommonDialog1.HelpContextID = ???
' Print "HelpContextID", CommonDialog1.HelpContextID
'HelpFile
' CommonDialog1.HelpFile = ???
' Print "HelpFile", CommonDialog1.HelpFile
'HelpKey
' CommonDialog1.HelpKey = ???
' Print "HelpKey", CommonDialog1.HelpKey
'InitDir - Стартовый каталог
CommonDialog1.InitDir = "C:\windows\"
Print "InitDir", CommonDialog1.InitDir
'Не забудьте на форме установить AutoRedraw=True
'иначе открывшаяся форма сотрет результаты установок
'Теперь откроем диалог
CommonDialog1.ShowOpen
Cls
'Теперь выведем на экран все результаты диалога
'CancelError - Контроль ошибок
MyCancelError = CommonDialog1.CancelError
Print "CancelError", MyCancelError
'FileName - полное имя файла с путем
MyFileName$ = CommonDialog1.FileName
Print "FileName", MyFileName$
'FileTitle - только имя файла
MyFileTitle$ = CommonDialog1.FileTitle
Print "FileTitle", MyFileTitle$
'FilterIndex
MyFilterIndex = CommonDialog1.FilterIndex
Print "FilterIndex", MyFilterIndex
'Flags
MyFlags = CommonDialog1.Flags
Print "Flags", MyFlags
'MaxFileSize
MyMaxFileSize = CommonDialog1.MaxFileSize
Print "MaxFileSize", MyMaxFileSize
End Sub
'Если у кого есть что добавить, то добавляйте :)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 17