发表评论(0)作者:, 平台:, 阅读:10804, 日期:2000-03-12
利用代码启动/关闭中文输入法
IMEMode属性。例如Text1.IMEMode = 1
一是想用鼠标右键在text中打开自己定义的一个新窗体,但总是跟出来一个系统默
认的关于文本操作的菜单,如何把它去掉?
在Text的MouseDown事件中
if button=2 then
text1.enabled=false
text1.enabled=ture '禁止出现系统菜单
popupmenu mymenu '显示自已的菜单或做其它的事
end if
如何关闭ScreenSave功能, Timeout时间
原始来源: cww
此外希望只有本次使用 Windows 时改变(下次开机时还原原状), 则
最後参数改为 SPIF_SENDWININICHANGE (没有SPIF_UPDATEINIFILE)
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPI_SETSCREENSAVETIMEOUT = 15
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfo Lib "user32" Alias _"
SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
_ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Sub SetScreenSaveTimeout(ByVal BySecond As Long)
Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0,
_SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)
End Sub
Private Sub EnableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0,
_SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)
End Sub
Private Sub DisableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0,
_SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)
End Sub
IMEMode属性。例如Text1.IMEMode = 1
一是想用鼠标右键在text中打开自己定义的一个新窗体,但总是跟出来一个系统默
认的关于文本操作的菜单,如何把它去掉?
在Text的MouseDown事件中
if button=2 then
text1.enabled=false
text1.enabled=ture '禁止出现系统菜单
popupmenu mymenu '显示自已的菜单或做其它的事
end if
如何关闭ScreenSave功能, Timeout时间
原始来源: cww
此外希望只有本次使用 Windows 时改变(下次开机时还原原状), 则
最後参数改为 SPIF_SENDWININICHANGE (没有SPIF_UPDATEINIFILE)
Const SPI_SETSCREENSAVEACTIVE = 17
Const SPI_SETSCREENSAVETIMEOUT = 15
Const SPIF_SENDWININICHANGE = &H2
Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfo Lib "user32" Alias _"
SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long,
_ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Sub SetScreenSaveTimeout(ByVal BySecond As Long)
Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0,
_SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)
End Sub
Private Sub EnableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0,
_SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)
End Sub
Private Sub DisableScreenSave()
Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0,
_SPIF_UPDATEINIFILE +SPIF_SENDWININICHANGE)
End Sub