| Вопрос: проблема с меню в mdi и отобр. текста в textbox | Добавлено: 28.07.06 17:51 |
Автор вопроса:  Dixon | ICQ: 262-393-953 |
| Ответы | Всего ответов: 55 |
|
Номер ответа: 31 Автор ответа:  Dixon ICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #31 | Добавлено: 31.07.06 14:41 |
|
и ещё, нашел апи функцию Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
хотелось бы узнать, что подставлять под hFile и lpFileSizeHigh, и какая переменная будет хранить размер файла? |
||
|
Номер ответа: 32 Автор ответа: Softer ICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #32 | Добавлено: 31.07.06 14:43 |
|
http://hardware.ho.com.ua/coolbar.zip
Оно? Может использовать не текстбокс, а RichEdit? Больше возможностей и ограничения вроде нету... |
||
|
Номер ответа: 33 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #33 | Добавлено: 31.07.06 14:44 |
|
' Example by AKriLium-Death (bumpybl2@hotmail.com)
' Visit his site at http://rift.zeloop.com 'This project needs ' -a Command Button (Command1) ' -a CommonDialog (CommonDialog1) ' -a Label (Label1) Private Const OF_READ = &H0& Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Dim lpFSHigh As Long Public Sub GetInfoF(FilePath As String)  im Pointer As Long, sizeofthefile As Long
Pointer = lOpen(FilePath, OF_READ) 'size of the file sizeofthefile = GetFileSize(Pointer, lpFSHigh) Label1.Caption = sizeofthefile & " bytes" lclose Pointer End Sub Private Sub command1_Click() CommonDialog1.ShowOpen GetInfoF CommonDialog1.filename End Sub Private Sub Form_Load() With CommonDialog1 .DialogTitle = "Select a file" .Filter = "All the files|*.*" End With Command1.Caption = "Select a file" End Sub PS: Взято из API-Guide 3.7 |
||
|
Номер ответа: 34 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #34 | Добавлено: 31.07.06 15:40 |
|
2Softer, спасибо, код работает, только вот хотел узнать, как можно воспользоваться фунцией GetFileSize без использования функции lOpen перед ней? Или обязательно нужна?
и второе, ричтекстбокс это конечно выход, но хотелось бы узнать размер textbox, хотя б для общего развития ) |
||
|
Номер ответа: 35 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #35 | Добавлено: 31.07.06 15:41 |
| и ещё, чему равна константа OF_READ? | ||
|
Номер ответа: 36 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #36 | Добавлено: 31.07.06 15:45 |
| кста, при использовании richtextbox не работает код, по определению позиции курсора | ||
|
Номер ответа: 37 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #37 | Добавлено: 31.07.06 15:47 |
|
I:\Common\Tools\Winapi\Apiload.exe
Еси Сидюк = I:\ Там открыть File->Load Text File->Win32api.txt Public Const OF_READ = &H0 PS: Это для VB6. |
||
|
Номер ответа: 38 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #38 | Добавлено: 31.07.06 15:50 |
|
Function GetLineFromChar(lChar As Long) As Long
Member of RichTextLib.RichTextBox Returns the number of the line containing a specified character position in a RichTextBox control. Не пойдет? |
||
|
Номер ответа: 39 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #39 | Добавлено: 31.07.06 16:08 |
| последний пост, эт что за код? | ||
|
Номер ответа: 40 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #40 | Добавлено: 31.07.06 16:13 |
| нигде не могу найти максимальный размер текстбокса((( | ||
|
Номер ответа: 41 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #41 | Добавлено: 31.07.06 16:14 |
|
Это из Object Browser (В VB6 нажать F2) там смотришь все св-ва, методы и события. Это ф-я которая возвращает номер строки по номеру символа.
Вроде... Т.е. пишешь L=RichText1.GetLineFromChar(23)
и в L у тя номер строки... Наверно... 
|
||
|
Номер ответа: 42 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #42 | Добавлено: 31.07.06 16:15 |
| 65535 байт. | ||
|
Номер ответа: 43 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #43 | Добавлено: 31.07.06 16:23 |
| сенка большое ), только вот ещё одна проблема, в ричтекстбоксе слова постоянно переносятся, хотя оба скроллбара включены | ||
|
Номер ответа: 44 Автор ответа: DixonICQ: 262-393-953 Вопросов: 8 Ответов: 78 |
Профиль | | #44 | Добавлено: 31.07.06 16:27 |
| как я понял getlinefromchar, дает только строку, а как с столбцом? | ||
|
Номер ответа: 45 Автор ответа: SofterICQ: 203660381 Вопросов: 29 Ответов: 205 |
Web-сайт: Профиль | | #45 | Добавлено: 01.08.06 13:50 |
|
Ну это я не знаю...... Узнаешь - скажешь!
|
||