| Вопрос: Поддержка других языков | Добавлено: 30.08.05 00:46 |
Автор вопроса:  Viktor Petrov
|
|
Несколько вопросов:
1)Как в ВБ 6.0 включить поддержку других языков (помимо русского и английского), хотя бы европейских? Дело в том, что в текстовом поле спецсимволы французского, немецкого, украинского и т.д. не отображаются... 2)Как с помощью ВБ реализовать изменение языка (с русского на английский и обратно)? 3)Как реализовать проверку существования папки по началу ее названия? Пытался так: Dir("C:\1papka\2pap" & "*", vbDirectory). Работает, но если в папке "1papka" нет папки , название которой начинается с "2pap", но есть, скажем, файл "2papker.htm", функция выдает название этого файла. Как этого избежать? Заранее спасибо! |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Master Cheat'$ Вопросов: 14 Ответов: 102 |
Профиль | | #1 | Добавлено: 30.08.05 00:57 |
|
1. русский и английский - это просто шрифты, буквы в них пронумерованные от символа 0 до 255 (кажется), на самом деле букв нет, есть ток шрифт (хоть китайский!) так что просто нужен шрифт.
2. все та же смена шрифтов. 3.через DirListBox попробуй перебрать до названия папки. ща код припехну. |
||
|
Номер ответа: 2 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #2 | Добавлено: 30.08.05 01:10 |
|
Public Sub ihem_tupuy_papku(papka)
For i = 0 To Dir1.ListCount - 1 If Dir1.List(i) = Dir1.Path & "\" & papka Then MsgBox "ýòà ôóãíÿ òóò åñòü!" Next End Sub пихаешь на форму dirlistbox и привязываешь к какой нидь кнопке ihem_tupuy_papku <имя папки> (там где <имя папки> просто имя, без пути) |
||
|
Номер ответа: 3 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #3 | Добавлено: 30.08.05 01:11 |
| ой, а код русский не поддерживает... | ||
|
Номер ответа: 4 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #4 | Добавлено: 30.08.05 01:12 |
|
Public Sub ihem_tupuy_papku(papka)
For i = 0 To Dir1.ListCount - 1 If Dir1.List(i) = Dir1.Path & "\" & papka Then MsgBox "эта фугня тут есть!" Next End Sub |
||
|
Номер ответа: 5 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #5 | Добавлено: 30.08.05 05:15 |
| Написано же по началу названия папки | ||
|
Номер ответа: 6 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #6 | Добавлено: 30.08.05 13:14 |
| это тоже с этим кодом делается, только надо кое че подправить | ||
|
Номер ответа: 7 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #7 | Добавлено: 30.08.05 13:30 |
|
For i = 0 To Dir1.ListCount - 1
MsgBox Left$(Dir1.List(i), Len(Dir1.Path) + Len(papka) + 1) & " " & Dir1.Path & "\" & papka If Left$(Dir1.List(i), Len(Dir1.Path) + Len(papka) + 1) = Dir1.Path & "\" & papka Then MsgBox "!!!" Next и п.2 ответ к другим языкам, а не к русскому и английскому. не вник читая, я по форуму "бегаю" а не хожу ))) |
||
|
Номер ответа: 8 Автор ответа: Master Cheat'$Вопросов: 14 Ответов: 102 |
Профиль | | #8 | Добавлено: 30.08.05 13:31 |
| ток без msgbox'ов, это при тестировании, чтоб видел, что и как сравнивается))) | ||
|
Номер ответа: 9 Автор ответа: Viktor Petrov Вопросов: 12 Ответов: 27 |
Профиль | | #9 | Добавлено: 31.08.05 23:39 |
|
По-поводу других языков все же не понял
(хотя о том, что такое коды ANSI, осведомлен). При попытке скопировать в текстполе, например, слово Änderungen, появляется A"nderungen. Что конкретно надо сделать для корректного отображения языка? Если закачать шрифт, то какой? |
||
|
Номер ответа: 10 Автор ответа: Viktor PetrovВопросов: 12 Ответов: 27 |
Профиль | | #10 | Добавлено: 31.08.05 23:44 |
| Немецкий здесь тоже не отображается. В общем, первая буква вставляемого слова - А с двоеточием над ним... | ||
Страница: 1 |