Кодовые страницы

[sergtix]

Читаю записи из базы данных. В базе данные отображаются правильно (региональные сеттинги - Estonian). В ComboBox
тоже все отображается нормально. А в сообщениях MsgBox вместо
русских букв - иероглифы. Когда делаю региональные сеттинги - Russian, то в сообщениях MsgBox все становится нормально, но в
ComboBox вместо нужных символов русские буквы. Как побороть проблему ?

[Powersoft]

существует уникальный мой проект, называемый Inventory System. Там все все про работу с базой данных. Исходники находятся здесь: ftp://powersoftnet.com/inv.rar

PS: обращаюсь к МОДЕРАТОРАМ этого форума: вы не можете предоставить столько места, чтобы мне разместить этот большой проект.

[skiperski]

Мне, в отличие от модераторов, всё-равно что ты там рекламируешь, но когда, надо заметить очень корректно, поставлен вопрос о кодировках, а ты предлагаешь человеку скачать пример в > 4 МБ по БД, в котором он явно не нуждается - это становится не понятно. Или человек спрашивает как траффик посчитать, а ты ему пример как почту отправить. Начинает раздражать. Для рекламы своего ресурса есть масса мест специятельно для того предназначенных, но это не здесь. Удачи, Максим.

[moderator]

2skiperski: ты совершенно прав.

2powersoft:

Рекламировать свой проект можно (и нужно), но не такими способами. Никто ведь не запрещает вставлять УРЛ в подпись или ненавязчиво (внимание - ключевое слово "ненавязчиво") рекламировать себя или свои услуги.

Но если человек начинает заниматься спамерской деятельностью - это не нравится ни мне (в лице всех модераторов), ни посетителям.

Тебя уже предупреждал и я, и RayShade. Это, похоже, тебе непонятно. Личные письма ты тоже не воспринимаешь. Так что если по-хорошему ты не понимаешь, будем по-плохому.

[Vi]

Попробуй использовать MessageBox из системы.

Код: Выделить всё

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" _
    (ByVal hwnd As Long, ByVal lpText As String, _
    ByVal lpCaption As String, ByVal wType As Long) As Long

Private Declare Function MessageBoxUnicode Lib "user32" Alias "MessageBoxW" _
    (ByVal hwnd As Long, ByVal lpText As Any, _
    ByVal lpCaption As Any, ByVal wType As Long) As Long

  Dim msg As String, msgtitle As String, msgtype As VbMsgBoxStyle
  msg = "English Русский"
  msgtitle = "Title Заголовок"
  msgtype = vbOKOnly

  MsgBox msg, msgtype, msgtitle
или
  MessageBox 0, msg, msgtitle, msgtype
или
  MessageBoxUnicode 0, StrPtr(msg), StrPtr(msgtitle), msgtype