Nemprogresssettext Lib "nnotesws.dll"

Тема в разделе "Lotus - Программирование", создана пользователем allex, 4 мар 2010.

  1. allex

    allex Гость

    Всем доброго дня!
    Кто-нито победил ввод рускоязычного текста в прогресс бар

    <div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Пример кода</div></div><div class="sp-body"><div class="sp-content"><!--shcode--><pre><code class='vb'>Declare Function NEMProgressBegin Lib "nnotesws.dll" ( ByVal wFlags As Integer ) As Long
    Declare Sub NEMProgressEnd Lib "nnotesws.dll" ( ByVal hwnd As Long )
    Declare Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( ByVal hwnd As Long, ByVal dwPos As Long)
    Declare Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( ByVal hwnd As Long, ByVal dwMax As Long )
    Declare Sub NEMProgressSetText Lib "nnotesws.dll" ( ByVal hwnd As Long, ByVal pcszLine1 As String, _
    ByVal pcszLine2 As String )
    Const NPB_TWOLINE% = 1

    Class ProgressBar
    Private hwnd As Long

    Sub New (BarRange As Long)
    On Error GoTo ErrorHandler

    Me.hwnd = NEMProgressBegin (NPB_TWOLINE)

    Call NEMProgressSetBarRange (Me.hwnd, BarRange)

    Exit Sub
    ErrorHandler:
    strErrMessage_rep = "Ошибка " & Error$ & " выполняемая процедура " & GetThreadInfo(10) &" текущая процедура " & GetThreadInfo(1) & ", в строке " & CStr(Erl)
    Print strErrMessage_rep

    End Sub[/CODE]
    BarMsg="Заголовок"
    UpdMsg = "Обработанные данные"
    Call RefreshProgress.UpdateProgressText (BarMsg, UpdMsg)

    В таком виде пишутся "кракозябры"
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Подтверждаю
     
  3. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    <div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">возможно, так</div></div><div class="sp-body"><div class="sp-content">
    Код (Text):
    'функции преобразования строк
    Const OS_TRANSLATE_NATIVE_TO_LMBCS = 0 'Translate platform-specific to LMBCS */
    Const OS_TRANSLATE_LMBCS_TO_NATIVE = 1 'Translate LMBCS to platform-specific */
    Const OS_TRANSLATE_LOWER_TO_UPPER = 3 'current int'l case table */
    Const OS_TRANSLATE_UPPER_TO_LOWER = 4 'current int'l case table */
    Const OS_TRANSLATE_UNACCENT = 5 'int'l unaccenting table */
    Const OS_TRANSLATE_LMBCS_TO_ASCII_DOS = 11
    Const OS_TRANSLATE_LMBCS_TO_ASCII = 13

    Declare Sub OSTranslate Lib "nnotes.dll" Alias "OSTranslate"( Byval mode As Integer, Byval strIn As String, Byval lenIn As Integer, Byval strOut As String, Byval lenOut As Integer )
    Let ascii = "строка"
    Let tmp0=Len(ascii)    
    Let tmp1=Len(ascii)*2
    Let Prompt = Space(Len(ascii)*2)
    Call OSTranslate( OS_TRANSLATE_NATIVE_TO_LMBCS, ascii, tmp0, Prompt, tmp1 )
    Call NemProgressSetText( hwnd, Title, Prompt)
     
  4. rinsk

    rinsk Lotus team
    Lotus team

    Регистрация:
    12 ноя 2009
    Сообщения:
    797
    Симпатии:
    78
    Что бы кракозябр небыло - практически везде в вызовах API надо юзать Lmbcs String:
    Declare Public Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval pcszLine1 As Lmbcs String, Byval pcszLine2 As Lmbcs String )
     
Загрузка...
Похожие Темы - Nemprogresssettext Lib nnotesws
  1. KapitoliyKakoyTo
    Ответов:
    1
    Просмотров:
    2.824
  2. Nick Nick
    Ответов:
    14
    Просмотров:
    749
  3. Cleric-Lviv
    Ответов:
    1
    Просмотров:
    478
  4. garrick
    Ответов:
    14
    Просмотров:
    1.447
  5. Amfion
    Ответов:
    1
    Просмотров:
    617

Поделиться этой страницей