Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на Basic / VBA

Выпуск № 147
от 26.09.2004, 14:00

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 314
Отправлено ответов: 266
Активность: 84.71 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Licvidator
Статус: Профессиональный
Общий рейтинг: 107.11
URL: PC Info
[Подробней >>]
Puma
Статус: Профессиональный
Общий рейтинг: 103.03
[Подробней >>]
Василевский Александр
Статус: Доверительный
Общий рейтинг: 116.23
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 313. Добрый день эксперты! Кто знает как поменять шрифт меню формы во время выполнения ? Проблема вот в ... (ответов: 1)
Вопрос № 314. Скажите пожалуйста как в сеансе программы на VB 6.0 узнать имя текущего пользователя и как можно про... (ответов: 3)

Вопросов: 2, ответов: 4


 Вопрос № 313

Добрый день эксперты!
Кто знает как поменять шрифт меню формы во время выполнения ? Проблема вот в чем. Хочу создать многоязычную программу. И надо динамически менять шрифты в меню формы во время выполнения в зависимости от выбранного языка. Способ динамически менять пункты меню во время выполнения я нашел в интернете. Однако, в некоторых языках, в частности в казахском, есть дополнительные символы. И хотя в Word - е эти символы отображаются корректно, в среде разработке и во время выполнения эти символы отображаются не правильно. Кто подскажет как обойти эту проблему. Решение должно существовать. Ведь подобных алфавитов множество от армянского до китайского, где множество дополнительных символов.



Вопрос отправлен: 22.09.2004, 20:52
Отправитель: Тимур (timur_bekbulatov@mail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Licvidator

Доброе время суток, Тимур!
http://vbaccelerator.com/home/VB/Code/Controls/Toolbar/index.asp
http://vbstreets.ru/ActiveX/GUI/default.aspx
Это ссылки на контролы, которые, возможно, помогут решить Вашу проблему. Я так же предполагаю, что это можно решить с помощью АПИ, однако код в сети найти не удалось, возможно Вам поведет больше:)
Удачи!

Ответ отправлен: 22.09.2004, 22:08
Отправитель: Licvidator


 Вопрос № 314

Скажите пожалуйста как в сеансе программы на VB 6.0 узнать имя текущего пользователя и как можно прописать путь к папке с Windows. Я пробовал %SystemRoot% не проходит.
Заранее спасибо.



Вопрос отправлен: 22.09.2004, 21:45
Отправитель: Евгений (408b@mail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает Licvidator

Приветствую Вас, Евгений!
Уже отвечал на Ваш вопрос http://rusfaq.ru/cgi-bin/info.cgi?Action=GetQuestion&ID=9187131.89502345.

Ответ отправлен: 22.09.2004, 22:17
Отправитель: Licvidator


Отвечает Puma

Приветствую Вас, Евгений!
Запустить в цикле debug.print Environ(i), где i=1...20 (примерно так, этого должно хватить), далее там находиться строка, что-то вроде WindowsDir. Потом уже в готовой программе вставляешь в Environ() эту самую строку, например, так Environ(WindowsDir)

Ответ отправлен: 22.09.2004, 21:53
Отправитель: Puma


Отвечает Василевский Александр

Приветствую Вас, Евгений!
1. Имя текущего пользователя можно узнать при помощи функции GetUserName
WinAPI. Применительно к VB:
Объявление
Declare Function GetUserName& Lib "ADVAPI32.DLL" Alias _
"GetUserNameA" ( ByVal lpBuffer As String, nSize As Long )
Описание
Функция получает имя текущего пользователя
Аргументы
lpBuffer
String - строковый буфер длинны nSize. Заполняется именем пользователя
nSize
Long - длинна буфера nSize. При выходе из функции содержит количество
символов, записанных в lpBuffer
Возвращаемое значение
Long - TRUE (ненулевое значение) в случае успеха, ноль при неудаче.
Устанавливает информацию GetLastError.
Пример
Dim s$, cnt&, dl&
cnt& = 199
s$ = String$( 200, 0 )
dl& = GetUserName( s$, cnt )
Debug.Print Left$( s$, cnt ); cnt
2. Название папки Windows можно получить при помощи функции GetWindowsDirectory W inAPI. Применительно к VB:
Объявление
Declare Function GetWindowsDirectory& Lib "Kernel32" Alias _
"GetWindowsDirectoryA" ( ByVal lpBuffer As String, ByVal nSize As long )
Описание
Функция получает полный путь к каталогу Windows. В этом каталоге хранятся файлы основных приложений Windows и файлы инициализации.
Аргументы
lpBuffer
String - строковый буфер, заполняемый полным именем каталога Windows. В путь не включается завершающий символ '\', если каталог не является корневым.
nSize
Long - максимальная длинна строки lpBuffer
Возвращаемое значение
Long - длинна скопированной строки в буфер. Необходимая длинна буфера, если путь не помещается в lpBuffer. Ноль в случае ошибки. Устанавливает информацию GetLastError.


Ответ отправлен: 24.09.2004, 14:00
Отправитель: Василевский Александр



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (23)
C / C++ (17)
Perl (7)
Builder / Delphi (12)
Pascal (19)
Basic / VBA (6)
Java / JavaScript (6)
PHP (15)
Криптография (6)
WinAPI (12)
Радиоэлектроника (13)
Пользователю
Windows 95/98/Me (49)
Windows NT/2000/XP (65)
"Железо" (41)
Поиск информации (20)
Администратору
Windows NT/2000/XP (46)
Linux / Unix (19)
Юристу
Гражданское право (7)
Семейное право (4)
Трудовое право (6)
КоАП (4)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование


Яндекс цитирования
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А. ICQ: 68951340
При перепечатке материалов ссылка на данный сайт обязательна!

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное