Scroll verticale
'scroll vert only
Declare Function FlatSB_ShowScrollBar Lib "comctl32"_
alias "FlatSB_ShowScrollBar" (hWnd As Long,code As Long, fShow As Byte) As byte
declare sub hidescrollbar
create form as qform
create r as qrichedit
width=600
height=600
end create
onpaint=hidescrollbar
onresize=hidescrollbar
end create
form.showmodal
sub hidescrollbar
FlatSB_ShowScrollBar(form.handle,0,0)
end sub
|