[开源]之另类Edit[代码着色器完美版]无权限,免金币

sunfrank

sunfrank

1. SetFocus Text1.hwnd
   
2. SetFocus TextHwnd

复制代码

And then you can use Enter to make a new line

sunfrank

VB.NET Keywords  From MS
AddHandler
AddressOf
Alias
And
AndAlso
As
Boolean
ByRef
Byte
ByVal
Call
Case
Catch
CBool
CByte
CChar
CDate
CDec
CDbl
Char
CInt
Class
CLng
CObj
Const
Continue
CSByte
CShort
CSng
CStr
CType
CUInt
CULng
CUShort
Date
Decimal
Declare
Default
Delegate
Dim
DirectCast
Do
Double
Each
Else
ElseIf
End
EndIf
Enum
Erase
Error
Event
Exit
False
Finally
For
Friend
Function
Get
GetType
Global
GoSub
GoTo
Handles
If
Implements
Imports
In
Inherits
Integer
Interface
Is
IsNot
Let
Lib
Like
Long
Loop
Me
Mod
Module
MustInherit
MustOverride
MyBase
MyClass
Namespace
Narrowing
New
Next
Not
Nothing
NotInheritable
NotOverridable
Object
Of
On
Operator
Option
Optional
Or
OrElse
Overloads
Overridable
Overrides
ParamArray
Partial
Private
Property
Protected
Public
RaiseEvent
ReadOnly
ReDim
REM
RemoveHandler
Resume
Return
SByte
Select
Set
Shadows
Shared
Short
Single
Static
Step
Stop
String
Structure
Sub
SyncLock
Then
Throw
To
True
Try
TryCast
TypeOf
Variant
Wend
UInteger
ULong
UShort
Using
When
While
Widening
With
WithEvents
WriteOnly
Xor

sunfrank

hpygzhx520

WIN7,右键简单都是灰色，鼠标顺序移动一次后，正常了

sunfrank

更改字体会乱码，选择部分文本恢复

19900603

sunfrank 发表于 2012-8-26 11:38
更改字体会乱码，选择部分文本恢复

哦？  你用什么办法改的字体啊？
CreateFont  + SendMessage Hwnd,WM_SETFONT,FontHandle

你试试

sunfrank

19900603 发表于 2012-8-26 12:43
哦？  你用什么办法改的字体啊？
CreateFont  + SendMessage Hwnd,WM_SETFONT,FontHandle

用过两种方法----1你说的2在Hook里SelectObject改。
1方法乱码2方法有时乱码，有时正常(When I select a part of a line or scroll)

1方法:

问题出在Hook代码得到的文本乱码

19900603

sunfrank 发表于 2012-8-26 13:30
用过两种方法----1你说的2在Hook里SelectObject改。
1方法乱码2方法有时乱码，有时正常(When I select ...

我这办法你试试能改不 就是貌似 GetTextWidth 出错了
  我再看看
    hTextFont = CreateFontHandle(Me.Font)

SendMessage TextHwnd, WM_SETFONT, hTextFont, 1

1. 'Create   Font
   
2. Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
   
3. Public Const LF_FACESIZE = 32
   
4. Public Type LOGFONT
   
5.         lfHeight As Long
   
6.         lfWidth As Long
   
7.         lfEscapement As Long
   
8.         lfOrientation As Long
   
9.         lfWeight As Long
   
10.         lfItalic As Byte
    
11.         lfUnderline As Byte
    
12.         lfStrikeOut As Byte
    
13.         lfCharSet As Byte
    
14.         lfOutPrecision As Byte
    
15.         lfClipPrecision As Byte
    
16.         lfQuality As Byte
    
17.         lfPitchAndFamily As Byte
    
18.         lfFaceName(1 To LF_FACESIZE) As Byte
    
19. End Type
    
20. Public Const WM_SETFONT = &H30
    
21. Public Const LOGPIXELSY = 90        '  Logical pixels/inch in Y
    
22. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    
23. Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
    
24. Public Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
    
25. Public Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
    
26. Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
    
27. 
    
28. Private Function MulDiv(ByVal a As Long, ByVal b As Long, ByVal c As Long) As Long
    
29.     MulDiv = a * b / c
    
30. End Function
    
31. 
    
32. Public Function CreateFontHandle(sFont As StdFont) As Long
    
33.     Dim lf As LOGFONT
    
34.     Dim hFont As Long, hOldFont As Long
    
35.     Dim hdc As Long
    
36.     hdc = GetDC(0)
    
37.     lf.lfHeight = -MulDiv(sFont.Size, GetDeviceCaps(hdc, LOGPIXELSY), 72)
    
38.     If sFont.Bold Then
    
39.         lf.lfWeight = 700
    
40.     Else
    
41.         lf.lfWeight = 400
    
42.     End If
    
43.     lf.lfCharSet = sFont.Charset   '使用GB_2312字符集
    
44.     lstrcpy lf.lfFaceName, sFont.Name
    
45.     lf.lfItalic = sFont.Italic
    
46.     lf.lfStrikeOut = sFont.Strikethrough
    
47.     lf.lfUnderline = sFont.Underline
    
48.     CreateFontHandle = CreateFontIndirect(lf)
    
49.     ReleaseDC 0, hdc
    
50. End Function
    
51. 
    

复制代码

19900603

怪不得。。 改字体后 绘字的方式又改变了