| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Экспорт в Excel, Проблемы с эксопртом отчета Срочно!, Срочно! Folder Dialog, на Visual Basic Анимированные gif ' ы в программе, Анимированные gif ' ы в программе Необязательные параметры в функциях, Как создать необязательный параметр? СРОЧНО! Программа решения кв.уравнений!, Помогите написать программу решения кв.у Подскажите как работать с коллекциями Статьи и находки Просьба начинаещего программиста Hook, Hook на мыш и клаву(key logger) Как Вы относитесь к курящим девушкам? Оптимизация кода, Нужна прога для Программно отследить подключён ли юзер к инету, Программно отследить подключён ли юзер к Как сделать ячейки в Excel скрытыми. Не могу добавить новое свойство к TextBox, ActiveX Как удалить лист в Excel., Удаление листа в Excel без подтверждения Перенос строки HTML страницы в Excel разбиение Word документа на несколько Delay, for перед каждым шагом делать delay Полупрозрачный label, Полупрозрачный label Запуск программы на компе где нет VB динамические запросы, в VB Проблемы с русскими буквами, Проблемы с русскими буквами Заголовок Frame, Заголовок Frame Помогите новичку в напичсании макроса, сортировка и вывод чести данных Как получить файл в архиве ShutDown PC владелец файла, Как установить? Пункты меню разным цветом, Пункты меню разным цветом Запустить main метод одного класса из другого. Умножиение одного числа на другое Перенос строки, Перенос строки Скажите, пожалуста, как указать путь к файлу котор Как развернуть элементы формы? Проблемма с регистром букв, Не могу реализовать поиск в таблице Меню как в офисе Components-Data Picker???, в каких компонентах засел Дата Пикер Менюшки, Три вопроса по меню в VB Excel , Перевести номер столбца в букву столбца ?, Перевести номер столбца в букву столбца Как вызвать окно "Открыть с помощью", И ещё... Что даст мне Java Поиск в БД, Access97 Как НЕ сохранять изменения в файле? Программа нажимает за нас ОК в чужой программе, Каким образом нажать ОК из чужой проги Как запустить события Что бы не мигали элементы интерфейса, Что бы не мигали элементы интерфейса Реклама в программе, Реклама в программе vb просы...простенькие, вопросы простенькие Свойство тестового поля PDWizard: проблема № 2..., Some files are out of date и тд и тп Составляйте опросы!, см. название темы Документация и книги по Java, Давайте соберём ссылки Получение документации Как Вы относитесь к курящим девушкам? Определение цвета обратного данному, Определение цвета обратного данному проблема с циклами, знаю как сделать на пасе как будет в ВБ? Установка DLL с INF из web-страницы, Как инсталлировать дрова через Web Как Вы относитесь к курящим девушкам? Что нам не нравится в ВБ 6?, кликай сюда:)) Скрипт VBS, Скрипт на vbs для отправки сообщения чер Текстовоя строка, щитывание символов со строки, плз хелп Как определить кнопку Cancel в InputBox? Исходник, Исходник Оптимизация программы под различные разрешения экр, Разрешение экрана Прежде чем задать вопрос, прочтите это! Разрешение выполнения ActiveX в IE Помогите с функцией API Не работает Common Dialog Control, Не работает Common Dialog Control Pop-up окно не закрывается, Помогите, пожайлуста! Параметры в VBS, VBScript |
Платные хостинги Раскрутка сайта Книги по программированию Проблемы с русскими буквами, Проблемы с русскими буквами
- Думаю что VB тут не причем, (vb6 sp5) таких проблем не встречал.Скорее всего это твоя винда загибается. Тем более что "бывает"! Какой windows используешь? - У меня ЛИЦЕНЗИОННАЯ Windows XP ProfТак что енто не винда , а VB , подскажи , кстати , API для вызова шрифтов , буду благодарен ЗЫ бывает только в моей программе ( юзаю comdlg32.ocx) - "ЛИЦЕНЗИОННАЯ" или нет, это не важно - важно что не 98* или ME*.Точно говорю, сам менял в контролах шрифты и проблем нет.Я сам API для шрифтов не пользовал, но на работе есть очень толстая книга.Посмотрю что как и пример найду, вот только скоро не получится - праздники, а я далеко.* - не имею ничего против - просто там много чего поменялось, а я за этим не слежу.Удачи. - Что поменялось , где поменялось Когда поменялось Почему мне никто не сказал - Смеяться изволите "Что поменялось , где поменялось Когда поменялось Почему мне никто не сказал" - это влияет (не всегда) на объявление API функций."Удачи." - к API отношения не имеет.В XP всё работает (проверял).Код Label1.FontName = "Courier New"Label1.FontName = "MS Sans Serif"highlightSyntax('vbWFlN2E','vb');Сколько угодно, как угодно, работает.Проблема в другом (как я думаю - не в VB).Удачи. - С таким кодом понятное дело работает. Я говорю об использовании контрола comdlg32.ocx Код примерно такой : With Dialog .ShowFont Label1.FontName = .FontName MakeFontsSub MakeFonts() Label2.FontName = Label1.FontName Label3.FontName = Label1.FontName Label4.FontName = Label1.FontName Label5.FontName = Label1.FontNameEnd Sub()Ну и дальше такой хрен :Запускаю прогу Выбираю в List1 какой нибудь пункт (1)Меняю шрифт (код выше)--- пока всё ОКПотом выбираю другой пункт в List1Тоже меняю шрифт - успешно А вот теперь снова выбрав на List1 пункт (1) и поменяв там шрифт , вместо Label ' ов с нормальным изменённым шрифтом появляется пэ... Если сохранить эти изменения шрифтов в файле DAT , выйти из проги , снова запустить её и загрузить настройки из этого DAT файла , то всё нормально - Label ' ы опять с читаемыми буквамиВот так вот Чё , блин делать ЗЫ нужен надёжный API для вызова диалога шрифтов - Ростик.Мне кажется, фишка тут в кодовой странице языка по умолчанию.Видиш ли, один и тот же шрифт имеет несколько кодовых страниц (для разных языков).comdlg32 не писали специально русский - а потому - по умолчанию там кодовая страница англицкая!После установки имени шрифта, попробуй поиграться со свойством Charset класса Font своего контрола.Более конкретно ничего сказать не могу. По крайней мере сейчас. - А подскажи тогда плз API для выбора шрифтов ( желательно чтоб исчо работал и в win 9x ) - Я типа уже переделал прогу - вставил API вместо ComDlg32.OCX а проблема осталась ЧЁ ЗА ПЭ.... - Господа модераторы , вы же шарите , подскажите типа чё за х , а то меня этот хрен со шрифтами немного раздражает - Rostik Ultra а ну ка покаж тестовый прожект для выявление сего фефекта. - Вот кодКод Sub StartOfList() If eng = False Then Label9.Caption = "Начать считывание" Else Label9.Caption = "Start" h = 0 If Timer1.Enabled = True Then StopTimers te = True End IfEnd SubPrivate Sub List1_Click() On Error GoTo li1c1 StartOfList Dim CF As ChooseFont, hMem As Long, LF As LOGFONT, aFontName As String hMem = GlobalAlloc(GPTR, Len(LF)) CF.hInstance = App.hInstance CF.hwndOwner = hwnd CF.lpLogFont = hMem CF.lStructSize = Len(CF) CF.flags = CF_BOTH If ChooseFont(CF) Then CopyMemory LF, ByVal hMem, Len(LF) aFontName = Space$(LF_FACESIZE) CopyMemory ByVal aFontName, LF.lfFaceName(0), LF_FACESIZE If List1.ListIndex = 0 Then With Text1.Font .Name = CString(aFontName) End With End If If List1.ListIndex = 1 Then With Drive1.Font .Name = CString(aFontName) End With End If If List1.ListIndex = 2 Then With Dir1.Font .Name = CString(aFontName) End With End If If List1.ListIndex = 3 Then With File1.Font .Name = CString(aFontName) End With End If If List1.ListIndex = 4 Then With Label3.Font .Name = CString(aFontName) End With End If If List1.ListIndex = 5 Then With Frame1.Font .Name = CString(aFontName) End With End If End If GlobalFree hMem FontOfIndications FontOfHelp EndOfListli1c1: Exit SubEnd SubSub FontOfIndications() Label6.FontName = Label3.FontName Label11.FontName = Label3.FontName Label2.FontName = Label3.FontName Label20.FontName = Label3.FontName Text2.FontName = Label3.FontName Text4.FontName = Label3.FontNameEnd SubSub FontOfHelp() Frame2.FontName = Frame1.FontName Frame3.FontName = Frame1.FontName Frame4.FontName = Frame1.FontName Frame5.FontName = Frame1.FontName Frame6.FontName = Frame1.FontName Label4.FontName = Frame1.FontName Label8.FontName = Frame1.FontName Label5.FontName = Frame1.FontName Label10.FontName = Frame1.FontName Label16.FontName = Frame1.FontName Label17.FontName = Frame1.FontName Label7.FontName = Frame1.FontName Label9.FontName = Frame1.FontName Label14.FontName = Frame1.FontNameEnd SubSub EndOfList() If te = True Then StartReadingText te = FalseEnd SubhighlightSyntax('vbJlMzQw','vb');ЗЫ : со шрифтами Frame ' ов такого никогда не бывает Это сообщение отредактировал Rostik Ultra - 12.1.2005, 05:17 - Не, ну ты и кадр. И куда мне это привинтить?Что у тебя чем вызывается? Что куда относится? Где обьявления?Я только понял что на форме должен быть Лист-бокс.А остальное к чему?Ты давай проект зазипованый.  |