Страница: 1 |
Вопрос: Несколько вопросов | Добавлено: 29.05.03 19:51 |
Автор вопроса: ![]() |
Заранее благодарен. |
Ответы | Всего ответов: 10 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ICQ: 132309822 Вопросов: 24 Ответов: 54 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 30.05.03 09:22 |
1. Это можно зделать только в Win 2000, Win XP, Win 2003 c помощью АПИ!!!! 2. Кодировать можно тоже через вин апи или накачать внешних дос кодировщиков!!!! а автоопределение я незнаю как зделать! 3. сохранять крафику я незнаю как ... я вообще некогда на ВБ с графикой не пахал! 4. скачай справочник от Русского проэкта и посмотри!!!!! (но вроди это функции ВБ а не апи- если так то тогда в справочник по ВБ) |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 11 Ответов: 61 |
Профиль | Цитата | #2 | Добавлено: 30.05.03 09:44 |
Хотя и на 6-ом я делал и прозрачность и кодирование, но это всё на API ...... Криво и не на всех платформах работает .... Искать некогда |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | Цитата | #3 | Добавлено: 31.05.03 22:19 |
Я на .NET и пишу, но мне все равно нужен исходник! плз![]() |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ICQ: 346632205 Вопросов: 25 Ответов: 215 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 01.06.03 02:40 |
Прозрачность под win2k & winxp (взято из api-guide):
Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
'param description: · hwnd · crKey · bAlpha · dwFlags
'example:
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Sub Form_Load() 'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Ret As Long
'Set the window style to 'Layered'
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret 'Set the opacity of the layered window to 128
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ICQ: 346632205 Вопросов: 25 Ответов: 215 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 01.06.03 02:49 |
Да, вот ещё модуль перекодировки...
Option Explicit Enum Code If Src = Dest Then Dim t As String, i As Long, tt As String, a As Long, ss As String, ch As String If Dest = Win Then ...и пример определения кодировки:
'пpовеpяем тип кодиpовки ANSI или ASCII 'беpем пеpвые 1000 байт еcли это возможно. Hевозможно - меньше. l& = Len(rtbView.Text) If l& > 1000 Then l& = 1000 'копиpyем yчаcток текcта из RichTextBox в пеpеменнyю, иначе тоpмоз обеcпечен s$ = Left$(rtbView.Text, l& 'обнyляем флажки fdo% = 0 fwo% = 0 'пpоcматpиваем кycок текcта For n% = 1 To l& 'вытаcкиваем очеpедной cимвол c$ = Mid$(s$, n%, 1) 'еcли это pyccкая "о" в DOS кодиpовке то инкpементиpyем cчетчик |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ICQ: 346632205 Вопросов: 25 Ответов: 215 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 01.06.03 02:58 |
Мммм, а вот что есть по последнему вопросу:
Public Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA" ( _ Public Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" ( _ Type FINDREPLACE |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 01.06.03 13:38 |
2 Padre: вот перекодировка намного быстрее и лучше: '===================Перекодировка символов=========== Public Const MB_PRECOMPOSED = &H1 ' use precomposed chars '=============Функция перекодировки===================
Вызывай функцию Convert. Ей передаёшь исходную строку, исходную кодировку (например, 1251) и кодировку, которую надо получить (например, 866). В .NET для перекодировки надо юзать класс System.Text.Encoding. То есть создаём один Encoding для исходной кодировки, другой - для получаемой кодировки. Потом в первом юзаем GetBytes, полученный байтовый массив закидываем в метод второго Encoding'а - GetString. |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | Цитата | #8 | Добавлено: 02.06.03 18:49 |
2 Павел Замечательная функция!!!! Но как узнать кодовую страницу Koi, ISO? |
Номер ответа: 9 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 03.06.03 07:11 | ||||||||||||||||||||||
Вот список кодов некоторых кодировок.
Страница: 1 |
|