[Линда Кайе]

#post-id: 3517-20-12
#original-date: 13.03.2010 Sat
#original-time: 8:12 PM
#original-day:  3517
#original-host: WinXP Home SP3 (Build 2600)

Охренеть =_=

00000000  0.00000000  [1940] asRegisterAppPath   
00000001  0.00392927  [1940] InitCommonControls   
00000002  0.00430083  [1940] If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON   
00000003  0.00598232  [1940] frmMain.Show   
00000004  0.00966380  [1940] asCenterFormEx Me.hWnd   
00000005  0.01094022  [1940] If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN "   
00000006  0.01237364  [1940] TXT = asLoadResTextA("ID_STORY", sTEXT)   
00000007  0.01891805  [1940] TXT = asTrimCRLF(TXT)   
00000008  0.02014278  [1940] SetWindowText Me.txtMoon.hWnd, TXT   
00000009  2.37756467  [1940] Me.Caption = LoadResString(1000)   
00000010  2.37799692  [1940] Me.BackColor = vbBlack   
00000011  2.37828803  [1940] Me.ForeColor = &HFFC0C0   
00000012  2.37859440  [1940] Me.txtMoon.BackColor = Me.BackColor   
00000013  2.37881160  [1940] Me.txtMoon.ForeColor = Me.ForeColor   
00000014  2.37901044  [1940] SetFont "MS Shell Dlg", 10, 204   
00000015  2.37921715  [1940] Me.txtMoon.FontName = Name   
00000016  6.99934864  [1940] If Err Then Exit Function   
00000017  7.00055790  [1940] Me.txtMoon.FontSize = Size   
00000018  9.29626846  [1940] Me.txtMoon.FontBold = False   
00000019  9.29676914  [1940] Me.txtMoon.FontItalic = False   
00000020  9.29727364  [1940] Me.txtMoon.FontStrikethru = False   
00000021  9.29756451  [1940] Me.txtMoon.FontUnderline = False   
00000022  9.30234241  [1940] Me.txtMoon.Font.Charset = Charset   
00000023  11.35901928 [1940] SetFont = True   

Ну допустим запихнуть сто с лишнм кило текста в текстбокс требует пары скеунд (строка 8), но почему работа со шрифтами такая тугая? Тормоза при старте программы прямо чувствуются! А ведь в IDE всё в норме...

#upd: Кажется поняла. Если в текстбоксе много текста, то каждое изменение шрифта вызывает тормоза. В IDE текст просто не грузился (из-за специфичной функции), поэтому и проблемы не было. Сейчас допишу интересный модуль для профилинга, и попробую снова...

00000000  0.00000000  [248] asRegisterAppPath   
00000001  0.00234471  [248] InitCommonControls   
00000002  0.00252099  [248] If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON   
00000003  0.00394408  [248] frmMain.Show   
00000004  0.00724226  [248] asCenterFormEx Me.hWnd   
00000005  0.00885308  [248] If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN"   
00000006  0.01034601  [248] TXT = asLoadResTextA("ID_STORY", sTEXT)   
00000007  0.01839340  [248] TXT = asTrimCRLF(TXT)   
00000008  0.02413854  [248] SetWindowText Me.txtMoon.hWnd, TXT   
00000009  2.10096693  [248] Me.Caption = LoadResString(1000)   
00000010  2.10147619  [248] Me.BackColor = vbBlack   
00000011  2.10176182  [248] Me.ForeColor = &HFFC0C0   
00000012  2.10192275  [248] Me.txtMoon.BackColor = Me.BackColor   
00000013  2.10210609  [248] Me.txtMoon.ForeColor = Me.ForeColor   
00000014  2.10246634  [248] SetFont "MS Shell Dlg", 10, 204   
00000015  2.10262942  [248] Me.Font.Name = Name   
00000016  2.10301948  [248] If UCase(Me.Font.Name) <> UCase(Name) Then Exit Function   
00000017  2.10358572  [248] Me.Font.Size = Size   
00000018  2.10374522  [248] Me.Font.Bold = False   
00000019  2.10393214  [248] Me.Font.Italic = False   
00000020  2.10419703  [248] Me.Font.Strikethrough = False   
00000021  2.10438347  [248] Me.Font.Underline = False   
00000022  2.10454369  [248] Me.Font.Charset = Charset   
00000023  2.10472107  [248] SetFont = True   
00000024  2.10487294  [248] Me.txtMoon.Font = Me.Font   
00000025  4.15078211  [248] End Sub   

О, 4 секунды ^^ Но попробуем ещё немного оптимизировать, загружая текст позже...

/* Кстати, надо бы написать плагин для VB IDE для профилинга! */

00000000  0.00000000  [3580] asRegisterAppPath   
00000001  0.00268805  [3580] InitCommonControls   
00000002  0.00293920  [3580] If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON   
00000003  0.00461120  [3580] frmMain.Show   
00000004  0.00787782  [3580] asCenterFormEx Me.hWnd   
00000005  0.00927213  [3580] If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN"   
00000006  0.01067650  [3580] Me.BackColor = vbBlack   
00000007  0.01094944  [3580] Me.ForeColor = &HFFC0C0   
00000008  0.01111147  [3580] Me.txtMoon.BackColor = Me.BackColor   
00000009  0.01130563  [3580] Me.txtMoon.ForeColor = Me.ForeColor   
00000010  0.01146905  [3580] SetFont "MS Shell Dlg", 10, 204   
00000011  0.01163667  [3580] Me.Font.Name = Name   
00000012  0.01201521  [3580] If UCase(Me.Font.Name) <> UCase(Name) Then Exit Function   
00000013  0.01256612  [3580] Me.Font.Size = Size   
00000014  0.01286644  [3580] Me.Font.Bold = False   
00000015  0.01303490  [3580] Me.Font.Italic = False   
00000016  0.01320140  [3580] Me.Font.Strikethrough = False   
00000017  0.01336120  [3580] Me.Font.Underline = False   
00000018  0.01352434  [3580] Me.Font.Charset = Charset   
00000019  0.01369420  [3580] SetFont = True   
00000020  0.01385372  [3580] Me.txtMoon.Font = Me.Font   
00000021  0.01472841  [3580] TXT = asLoadResTextA("ID_STORY", sTEXT)   
00000022  0.01922954  [3580] TXT = asTrimCRLF(TXT)   
00000023  0.02038890  [3580] SetWindowText Me.txtMoon.hWnd, TXT   
00000024  2.13600922  [3580] Me.Caption = LoadResString(1000)   
00000025  2.13641095  [3580] End Sub   

Во, две секунды. Время не тратится дважды на перерисовку большого фрагмента текста, так что скорость возрастает.

Короче, вывод такой: если вы собираетесь менять шривт в текстбоксе, то лучше это сделать до того как туда попадёт большой кусок текста.

Листинги я делала самопальным скриптом, который каждую строку дублирует через OutputDebugString(). А мне потом оставалось только снять вывод с DebugView ^^

Почему я использовала SetWindowText() вместо свойства Text? VB режет всё, что после 65535 ^^' Тоесть в текстбоксе оказывается не весь текст, хотя NT способна переварить гораздо больше.

#music: Scooter\The Stadium Techno Expirience\Take A Breake