| Вопрос: Test tag'a [CODE]...[/CODE] | Добавлено: 25.09.04 01:28 |
Автор вопроса:  AASoft
|
|
testiruem tag CODe, znachit.....
[CODE] Dim iCnt as Integer For iCnt = 0 to 100 'a teper` my v cile For delaem DoEvents DoEventS next iCnt [/CODE] |
| Ответы | Всего ответов: 40 |
|
Номер ответа: 1 Автор ответа:  AASoft Вопросов: 86 Ответов: 920 |
Профиль | | #1 | Добавлено: 25.09.04 01:28 |
|
Dim iCnt as Integer
For iCnt = 0 to 100 'a teper` my v cile For delaem DoEvents  oEventS
next iCnt |
||
|
Номер ответа: 2 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #2 | Добавлено: 25.09.04 01:29 |
|
Option Explicit
Private Sub Form_Load() 'sdflklsjdfk & _ ldfjkdl End Sub |
||
|
Номер ответа: 3 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #3 | Добавлено: 25.09.04 01:29 |
| gy, a multiline comments ne rabotayu-to...... | ||
|
Номер ответа: 4 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #4 | Добавлено: 25.09.04 01:30 |
|
i eshe ono u vas case-sensitive...nu, tipa DoEventS ne prokatit...
eshe raz test.. MsgBox("Hello!I Am Testing!"  |
||
|
Номер ответа: 5 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #5 | Добавлено: 25.09.04 01:30 |
|
MsgBox("Hello!I Am Testing!"
|
||
|
Номер ответа: 6 Автор ответа: AASoftВопросов: 86 Ответов: 920 |
Профиль | | #6 | Добавлено: 25.09.04 01:31 |
| a chevo MsgBox ne podsvetilo???!?!?!? | ||
|
Номер ответа: 7 Автор ответа: CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #7 | Добавлено: 25.09.04 02:02 |
| Мда, хромает подсветка то. Ну ладно, лучше ж чем ничего. | ||
|
Номер ответа: 8 Автор ответа:  ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #8 | Добавлено: 25.09.04 09:46 |
А никто более приличных вариантов не предлагал  А мне и без подсветки хорошо живется. Пока единственное замечание, которое в ближайшее время будет исправлено - большое расстояние между строками кода. |
||
|
Номер ответа: 9 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #9 | Добавлено: 25.09.04 11:07 |
| [CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE][CODE]DoEvents 'Проверка оверквотинга ...[/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE][/CODE] | ||
|
Номер ответа: 10 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #10 | Добавлено: 25.09.04 11:09 |
|
Бзю! Тэг CODE глючит! что такое? Он работает каждый второй раз! ну ка так:
'Api функции 'Функция определяет стиль окна Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long 'Функция задаёт стиль окна Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'Функция делает окно прозрачным Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, _ ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 'Константы Public Const LWA_COLORKEY = &H1 Public Const LWA_ALPHA = &H2 Public Const GWL_EXSTYLE = (-20) Public Const WS_EX_LAYERED = &H80000 'Процедура 'hWnd - манипулятор окна, Layered - степень прозрачности от 0 до 255 Public Function SetTransparent(hwnd As Long, Layered As Byte) As Boolean On Error GoTo 1 Dim Ret As Long 'Определяем стиль нужного окна Ret = GetWindowLong(hwnd, GWL_EXSTYLE) 'Задаём стиль окна как заслоённый Ret = Ret Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Ret 'Задём степень прозрачности окна SetLayeredWindowAttributes hwnd, 1, Layered, LWA_ALPHA SetTransparent = True 1 Exit Function End Function |
||
|
Номер ответа: 11 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #11 | Добавлено: 25.09.04 11:11 |
| кстати, большое расстояние между строками - это два тэга BR, а не P. Че за глююк? | ||
|
Номер ответа: 12 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #12 | Добавлено: 25.09.04 11:12 |
|
Нуксь... ну не дай бог хоть один тэг не сработает ))
|
||
|
Номер ответа: 13 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | | #13 | Добавлено: 25.09.04 11:14 |
|
Ух ты! теперь я знаю как выделять важные вещи в сообщении!
Вот так ! Админы, простите за оффтоп, порто см. Тему Print Screen, я там код писал а он в тэгах CODE не пахал. Проверить хотелось. Судя по #9, так ничего и не пофиксили 
|
||
|
Номер ответа: 14 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #14 | Добавлено: 25.09.04 13:45 |
|
Насчет [code][code][code]... [/code] [/code] [/code] Такой идиотизм не работает, потому что мое регулярное выражение работает только для строк вида [code]код [/code] где внутри тэгов не встречается символов "[" и "]". |
||
|
Номер ответа: 15 Автор ответа: АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #15 | Добавлено: 25.09.04 19:54 |
|
Нука...
Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long |
||