DimaAsInteger
DimWM_vscrollAsInteger=&H115
DimSB_THUMBPOSITIONAsInteger=4
a=GetScrollPos(RichTextBox1.Handle,1)
IfFJ=TrueThen
RichTextBox1.Text=StrConv(RichTextBox1.Text,VbStrConv.SimplifiedChinese)
FJ=False
Else
RichTextBox1.Text=StrConv(RichTextBox1.Text,VbStrConv.TraditionalChinese)
FJ=True
EndIf
SetScrollPos(RichTextBox1.Handle,1,a,True)
SendMessage(RichTextBox1.Handle,WM_vscroll,SB_THUMBPOSITION+&H10000*a,0)
滚动条动了可是文本没有动这是怎么回事啊~
函数声明在这里
PrivateDeclareFunctionGetScrollPosLib"user32.dll"(ByValhwndAsIntPtr,ByValnbarAsInteger)AsInteger
PrivateDeclareFunctionSetScrollPosLib"user32.dll"(ByValhwndAsIntPtr,ByValnbarAsInteger,ByValintnposAsInteger,ByValbredrawAsBoolean)AsInteger
PrivateDeclareFunctionPostMessageLib"user32.dll"(ByValhWndAsIntPtr,ByValnBarAsInteger,ByValwParamAsInteger,ByVallParamAsInteger)AsBoolean
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
分 -->
|
