Nemprogresssettext Lib "nnotesws.dll"

@ottyx · Регистрация: 10.09.2005

Студворк — интернет-сервис помощи студентам

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

<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"><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)

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

@Omh · 03.03.2010, 09:20

Подтверждаю

@hosm · 03.03.2010, 09:26

<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">

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
функции преобразования строк
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 intl case table */
Const OS_TRANSLATE_UPPER_TO_LOWER = 4 current intl case table */
Const OS_TRANSLATE_UNACCENT = 5 intl 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)

@rymsk · 03.03.2010, 11:08

Сообщение от allex

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

Что бы кракозябр небыло - практически везде в вызовах API надо юзать Lmbcs String:
Declare Public Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval pcszLine1 As Lmbcs String, Byval pcszLine2 As Lmbcs String )

@Dorkyr · 04.03.2010, 09:22

http://dpastov.blogspot.com/2008/05/progressbar-example.html

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@ottyx 0 / 0 / 0 Регистрация: 10.09.2005 Сообщений: 560

	Nemprogresssettext Lib "nnotesws.dll" 03.03.2010, 09:06. Показов 13386. Ответов 4 Метки нет (Все метки) Всем доброго дня! Кто-нито победил ввод рускоязычного текста в прогресс бар <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) В таком виде пишутся "кракозябры" 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	03.03.2010, 09:20
	Подтверждаю 0

@Dorkyr 0 / 0 / 0 Регистрация: 12.01.2009 Сообщений: 246
	04.03.2010, 09:22
	http://dpastov.blogspot.com/2008/05/progressbar-example.html 0