CN101436125A - 特殊符号输入法 - Google Patents
特殊符号输入法 Download PDFInfo
- Publication number
- CN101436125A CN101436125A CNA2007101661444A CN200710166144A CN101436125A CN 101436125 A CN101436125 A CN 101436125A CN A2007101661444 A CNA2007101661444 A CN A2007101661444A CN 200710166144 A CN200710166144 A CN 200710166144A CN 101436125 A CN101436125 A CN 101436125A
- Authority
- CN
- China
- Prior art keywords
- caption
- sub
- clipboard
- click
- call
- Prior art date
- Legal status (The legal status is an assumption and is not a legal conclusion. Google has not performed a legal analysis and makes no representation as to the accuracy of the status listed.)
- Pending
Links
Landscapes
- Input From Keyboards Or The Like (AREA)
Abstract
特殊符号输入法提供一种不针对某种特定软件的输入方法,该输入法直接在显示屏上显示数学运算符等特殊符号,只需用鼠标单击,被点击的符号即能输入到光标指定的位置。
Description
所属技术领域
本发明直接应用于计算机中特殊符号的输入。
背景技术
眼下各种输入法不下几十种,但主要都是针对文字符号进行设计,对数学运算符等特殊符号的输入还是显得不方便,某些编辑软件虽然有快速输入特殊符号的功能,但却只能在它的界面内使用,又显得不够通用。
发明内容
为了克服目前输入法对特殊符号输入的困难,本发明提供一种不针对某种特定软件的输入方法,该输入法直接在显示屏上显示特殊符号,只需用鼠标单击,被点击的符号即能输入到光标指定的位置。为了在较小的显示区域内显示更多的特殊符号,对特殊符号按类型分类,每一类型显示在一页中,通过单击不同命令按钮显示不同的特殊符号类型。
本发明解决其技术问题所采用的技术方案是:运行Visual Basic 6.0软件,在“文件”菜单中选择“新建工程”命令打开对话框,选择“标准EXE”建立一个默认名为form1的窗口,把它的Caption属性设为“特殊符号输入法(演示版)”(注:输入时没有双引号“”)。向窗体添加如下控件:(1)八个单选按钮控件Option1~Option8,它们的Caption属性分别设为“ā”、“零”、“①”、“π”、“≈”、“★”、“囍”和“:)”。(2)两个框架frame1和frame2,它们的Caption属性均设为空,在frame1内添加六十个命令按钮控件Command1~Command60,在frame2内添加十二个命令按钮控件Command61~Command72。(3)一个命令按钮控件Command73,它的Caption属性设为“关于”。(4)一个计时器控件Timer,它的Interval属性设为“100”。在“视图”菜单中选择“代码窗口”,向代码窗口中输入如下代码:
Const SWP_NOSIZE=1
Const HWND_TOPMOST=-1
Const WM_PASTE=&H302
Const KEYEVENTF_KEYUP=&H2
Const VK_CONTROL=&H11
Const VK_V=&H56
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Type RECT
leftAs Long
topAs Long
rightAs Long
bottom As Long
End Type
Private Declare Function GetDesktopWindow Lib"user32"()As Long
Private Declare Sub Sleep Lib"kerne132"(ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib"user32"(ByVal bVk As Byte,ByVal bScan As Byte,ByVal dwFlags As Long,ByVal dwExtraInfo As Long)
Private Declare Function SetActiveWindow Lib"user32"(ByVal hwnd As Long)As Long
Private Declare Function GetForegroundWindow Lib"user32"()As Long
Private Declare Function GetCursorPos Lib"user32"(lpPointAs POINTAPI)As Long
Private Declare Function SetWindowPos Lib"user32"(ByVal hwnd As Long,ByValhWndInsertAfter As Long,ByVal X As Long,ByVal Y As Long,ByVal cx As Long,ByVal cy AsLong,ByVal wFlags As Long)As Long
Private Declare Function GetWindowRect Lib"user32"(ByVal hwnd As Long,lpRect AsRECT)As Long
Private Sub Form_Load()
Dim drecAs RECT
Dim dhwnd As Long
Static ahwnd As Long
dhwnd=GetDesktopWindow
GetWindowRect dhwnd,drec
SetWindowPos Form1.hwnd,HWND_TOPMOST,drec.right-255,drec.bottom-250,280,240,SWP_NOSIZE
Call Addl
End Sub
Private Sub Option1_Click()
Frame1.Visible=True
Frame2.Visible=False
Call Addl
End Sub
Private Sub Option2_Click()
Frame1.Visible=True
Frame2.Visible=False
Call Add2
End Sub
Private Sub Option3_Click()
Frame1.Visible=True
Frame2.Visible=False
CallAdd3
End Sub
Private Sub Option4_Click()
Frame1.Visible=True
Frame2.Visible=False
Call Add4
End Sub
Private Sub Option5_Click()
Frame1.Visible=True
Frame2.Visible=False
Call Add5
End Sub
Private Sub Option6_Click()
Frame1.Visible=True
Frame2.Visible=False
Call Add6
End Sub
Private Sub Option7_Click()
Frame1.Visible=False
Frame2.Visible=True
Call Add7
End Sub
Private Sub Option8_Click()
Frame1.Visible=False
Frame2.Visible=True
Call Add8
End Sub
Private Sub Timer1_Timer()
Dim rec As RECT,point As POINTAPI
GetWindowRect Form1.hwnd,rec
GetCursorPos point
If point.X<rec.leftOr point.X>rec.right Or point.Y<rec.top Or point.Y>rec.bottom Then
ahwnd=GetForegroundWindow()
End If
End Sub
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Command1.Caption
Call Paste2
End Sub
Private Sub Command2_Click()
Clipboard.Clear
Clipboard.SetText Command2.Caption
Call Paste2
End Sub
Private Sub Command3_Click()
Clipboard.Clear
Clipboard.SetText Command3.Caption
Call Paste2
End Sub
Private Sub Command4_Click()
Clipboard.Clear
Clipboard.SetText Command4.Caption
Call Paste2
End Sub
Private Sub Command5_Click()
Clipboard.Clear
Clipboard.SetText Command5.Caption
Call Paste2
End Sub
Private Sub Command6_Click()
Clipboard.Clear
Clipboard.SetText Command6.Caption
Call Paste2
End Sub
Private Sub Command7_Click()
Clipboard.Clear
Clipboard.SetText Command7.Caption
Call Paste2
End Sub
Private Sub Command8_Click()
Clipboard.Clear
Clipboard.SetText Command8.Caption
Call Paste2
End Sub
Private Sub Command9_Click()
Clipboard.Clear
Clipboard.SetText Command9.Caption
Call Paste2
End Sub
Private Sub Command10_Click()
Clipboard.Clear
Clipboard.SetText Command10.Caption
Call Paste2
End Sub
Private Sub Command11_Click()
Clipboard.Clear
Clipboard.SetText Command11.Caption
Call Paste2
End Sub
Private Sub Command13_Click()
Clipboard.Clear
Clipboard.SetText Command13.Caption
Call Paste2
End Sub
Private Sub Command14_Click()
Clipboard.Clear
Clipboard.SetText Command14.Caption
Call Paste2
End Sub
Private Sub Command15_Click()
Clipboard.Clear
Clipboard.SetText Command15.Caption
Call Paste2
End Sub
Private Sub Command16_Click()
Clipboard.Clear
Clipboard.SetText Command16.Caption
Call Paste2
End Sub
Private Sub Command17_Click()
Clipboard.Clear
Clipboard.SetText Command17.Caption
Call Paste2
End Sub
Private Sub Command18_Click()
Clipboard.Clear
Clipboard.SetText Command18.Caption
Call Paste2
End Sub
Private Sub Command19_Click()
Clipboard.Clear
Clipboard.SetText Command19.Caption
CallPaste2
End Sub
Private Sub Command20_Click()
Clipboard.Clear
Clipboard.SetText Command20.Caption
Call Paste2
End Sub
Private Sub Command21_Click()
Clipboard.Clear
Clipboard.SetText Command21.Caption
Call Paste2
End Sub
Private Sub Command22_Click()
Clipboard.Clear
Clipboard.SetText Command22.Caption
Call Paste2
End Sub
Private Sub Command23_Click()
Clipboard.Clear
Clipboard.SetText Command23.Caption
Call Paste2
End Sub
Private Sub Command24_Click()
Clipboard.Clear
Clipboard.SetText Command24.Caption
Call Paste2
End Sub
Private Sub Command25_Click()
Clipboard.Clear
Clipboard.SetText Command25.Caption
Call Paste2
End Sub
Private Sub Command26_Click()
Clipboard.Clear
Clipboard.SetText Command26.Caption
Call Paste2
End Sub
Private Sub Command27_Click()
Clipboard.Clear
Clipboard.SetText Command27.Caption
Call Paste2
End Sub
Private Sub Command28_Click()
Clipboard.Clear
Clipboard.SetText Command28.Caption
Call Paste2
End Sub
Private Sub Command29_Click()
Clipboard.Clear
Clipboard.SetText Command29.Caption
Call Paste2
End Sub
Private Sub Command12_Click()
Clipboard.Clear
Clipboard.SetText Command12.Caption
Call Paste2
End Sub
Private Sub Command30_Click()
Clipboard.Clear
Clipboard.SetText Command30.Caption
Call Paste2
End Sub
Private Sub Command31_Click()
Clipboard.Clear
Clipboard.SetText Command31.Caption
Call Paste2
End Sub
Private Sub Command32_Click()
Clipboard.Clear
Clipboard.SetText Command32.Caption
Call Paste2
End Sub
Private Sub Command33_Click()
Clipboard.Clear
Clipboard.SetText Command33.Caption
Call Paste2
End Sub
Private Sub Command34_Click()
Clipboard.Clear
Clipboard.SetText Command34.Caption
Call Paste2
End Sub
Private Sub Command35_Click()
Clipboard.Clear
Clipboard.SetText Command35.Caption
Call Paste2
End Sub
Private Sub Command36_Click()
Clipboard.Clear
Clipboard.SetText Command36.Caption
Call Paste2
End Sub
Private Sub Command37_Click()
Clipboard.Clear
Clipboard.SetText Command37.Caption
Call Paste2
End Sub
Private Sub Command38_Click()
Clipboard.Clear
Clipboard.SetText Command38.Caption
Call Paste2
End Sub
Private Sub Command39_Click()
Clipboard.Clear
Clipboard.SetText Command39.Caption
Call Paste2
End Sub
Private Sub Command40_Click()
Clipboard.Clear
Clipboard.SetText Command40.Caption
CallPaste2
End Sub
Private Sub Command41_Click()
Clipboard.Clear
Clipboard.SetText Command41.Caption
Call Paste2
End Sub
Private Sub Command42_Click()
Clipboard.Clear
Clipboard.SetText Command42.Caption
Call Paste2
End Sub
Private Sub Command43_Click()
Clipboard.Clear
Clipboard.SetText Command43.Caption
Call Paste2
End Sub
Private Sub Command44_Click()
Clipboard.Clear
Clipboard.SetText Command44.Caption
Call Paste2
End Sub
Private Sub Command45_Click()
Clipboard.Clear
Clipboard.SetText Command45.Caption
Call Paste2
End Sub
Private Sub Command46_Click()
Clipboard.Clear
Clipboard.SetText Command46.Caption
Call Paste2
End Sub
Private Sub Command47_Click()
Clipboard.Clear
Clipboard.SetText Command47.Caption
Call Paste2
End Sub
Private Sub Command48_Click()
Clipboard.Clear
Clipboard.SetText Command48.Caption
Call Paste2
End Sub
Private Sub Command49_Click()
Clipboard.Clear
Clipboard.SetText Command49.Caption
Call Paste2
End Sub
Private Sub Command50_Click()
Clipboard.Clear
Clipboard.SetText Command50.Caption
Call Paste2
End Sub
Private Sub Command51_Click()
Clipboard.Clear
Clipboard.SetText Command51.Caption
Call Paste2
End Sub
Private Sub Command52_Click()
Clipboard.Clear
Clipboard.SetText Command52.Caption
Call Paste2
End Sub
Private Sub Command53_Click()
Clipboard.Clear
Clipboard.SetText Command53.Caption
Call Paste2
End Sub
Private Sub Command54_Click()
Clipboard.Clear
Clipboard.SetText Command54.Caption
Call Paste2
End Sub
Private Sub Command55_Click()
Clipboard.Clear
Clipboard.SetText Command55.Caption
Call Paste2
End Sub
Private Sub Command56_Click()
Clipboard.Clear
Clipboard.SetText Command56.Caption
Call Paste2
End Sub
Private Sub Command57_Click()
Clipboard.Clear
Clipboard.SetText Command57.Caption
Call Paste2
End Sub
Private Sub Command58_Click()
Clipboard.Clear
Clipboard.SetText Command58.Caption
Call Paste2
End Sub
Private Sub Command59_Click()
Clipboard.Clear
Clipboard.SetText Command59.Caption
Call Paste2
End Sub
Private Sub Command60_Click()
Clipboard.Clear
Clipboard.SetText Command60.Caption
Call Paste2
End Sub
Private Sub Command61_Click()
Clipboard.Clear
Clipboard.SetText Command61.Caption
Call Paste2
End Sub
Private Sub Command62_Click()
Clipboard.Clear
Clipboard.SetText Command62.Caption
Call Paste2
End Sub
Private Sub Command63_Click()
Clipboard.Clear
Clipboard.SetText Command63.Caption
Call Paste2
End Sub
Private Sub Command64_Click()
Clipboard.Clear
Clipboard.SetText Command64.Caption
Call Paste2
End Sub
Private Sub Command65_Click()
Clipboard.Clear
Clipboard.SetText Command65.Caption
Call Paste2
End Sub
Private Sub Command66_Click()
Clipboard.Clear
Clipboard.SetText Command66.Caption
Call Paste2
End Sub
Private Sub Command67_Click()
Clipboard.Clear
Clipboard.SetText Command67.Caption
Call Paste2
End Sub
Private Sub Command68_Click()
Clipboard.Clear
Clipboard.SetText Command68.Caption
Call Paste2
End Sub
Private Sub Command69_Click()
Clipboard.Clear
Clipboard.SetText Command69.Caption
Call Paste2
End Sub
Private Sub Command70_Click()
Clipboard.Clear
Clipboard.SetText Command70.Caption
Call Paste2
End Sub
Private Sub Command71_Click()
Clipboard.Clear
Clipboard.SetText Command71.Caption
Call Paste2
End Sub
Private Sub Command72_Click()
Clipboard.Clear
Clipboard.SetText Command72.Caption
Call Paste2
End Sub
Private Sub Command74_Click()
Call MsgBox("版权所有 2007 海南 吴多传",vbOKOnly,"特殊符号输入法(演示版)")
End Sub
Private Sub Add1()
Command1.Caption="ā"
Command2.Caption="á"
Command3.Caption="ǎ"
Command4.Caption="à"
Command5.Caption=""
Command6.Caption="ē"
Command7.Caption="é"
Command8.Caption="ě"
Command9.Caption="è"
Command10.Caption=""
Command11.Caption="ī"
Command12.Caption="í"
Command13.Caption="ǐ"
Command14.Caption="ì"
Command15.Caption=""
Command16.Caption="ō"
Command17.Caption="ó"
Command18.Caption="ǒ"
Command19.Caption="ò"
Command20.Caption=""
Command21.Caption="ū"
Command22.Caption="ú"
Command23.Caption="ǔ"
Command24.Caption="ù"
Command25.Caption=""
Command26.Caption="ǖ"
Command27.Caption="ǘ"
Command28.Caption="ǚ"
Command29.Caption="ǜ"
Command30.Caption=""
Command31.Caption="ü"
Command33.Caption="o"
Command34.Caption="g"
Command35.Caption=""
Command40.Caption=""
Command41.Caption=""
Command42.Caption=""
Command43.Caption=""
Command44.Caption=""
Command45.Caption=""
Command46.Caption=""
Command47.Caption=""
Command48.Caption=""
Command49.Caption=""
Command50.Caption=""
Command51.Caption=""
Command52.Caption=""
Command53.Caption=""
Command54.Caption=""
Command55.Caption=""
Command56.Caption=""
Command57.Caption=""
Command58.Caption=""
Command59.Caption=""
Command60.Caption=""
End Sub
Private Sub Add2()
Command1.Caption="(一)"
Command2.Caption="(二)"
Command3.Caption="(三)"
Command4.Caption="(四)"
Command5.Caption="(五)"
Command6.Caption="(六)"
Command7.Caption="(七)"
Command8.Caption="(八)"
Command9.Caption="(九)"
Command10.Caption="(十)"
Command11.Caption="○"
Command12.Caption="一"
Command13.Caption="二"
Command14.Caption="三"
Command15.Caption="四"
Command16.Caption="五"
Command17.Caption="六"
Command18.Caption="七"
Command19.Caption="八"
Command20.Caption="九"
Command21.Caption="十"
Command22.Caption="百"
Command23.Caption="千"
Command24.Caption="万"
Command25.Caption="亿"
Command26.Caption="兆"
Command27.Caption="吉"
Command28.Caption="太"
Command29.Caption="拍"
Command30.Caption="艾"
Command31.Caption="分"
Command32.Caption="厘"
Command33.Caption="毫"
Command34.Caption="微"
Command35.Caption=""
Command36.Caption=""
Command37.Caption=""
Command38.Caption="拾"
Command39.Caption="佰"
Command40.Caption="仟"
Command41.Caption="零"
Command42.Caption="壹"
Command43.Caption="贰"
Command44.Caption="叁"
Command45.Caption="肆"
Command46.Caption="伍"
Command47.Caption="陆"
Command48.Caption="柒"
Command49.Caption="捌"
Command50.Caption="玖"
Command52.Caption="‖"
Command54.Caption=""
Command59.Caption=""
Command60.Caption=""
End Sub
Private Sub Add3()
Command1.Caption="①"
Command2.Caption="②"
Command3.Caption="③"
Command4.Caption="④"
Command5.Caption="⑤"
Command6.Caption="⑥"
Command7.Caption="⑦"
Command8.Caption="⑧"
Command9.Caption="⑨"
Command10.Caption="⑩"
Command11.Caption="(1)"
Command12.Caption="(2)"
Command13.Caption="(3)"
Command14.Caption="(4)"
Command15.Caption="(5)"
Command16.Caption="(6)"
Command17.Caption="(7)"
Command18.Caption="(8)"
Command19.Caption="(9)"
Command20.Caption="(10)"
Command21.Caption="(11)"
Command22.Caption="(12)"
Command23.Caption="(13)"
Command24.Caption="(14)"
Command25.Caption="(15)"
Command26.Caption="(16)"
Command27.Caption="(17)"
Command28.Caption="(18)"
Command29.Caption="(19)"
Command30.Caption="(20)"
Command31.Caption="1."
Command32.Caption="2."
Command33.Caption="3."
Command34.Caption="4."
Command35.Caption="5."
Command36.Caption="6."
Command37.Caption="7."
Command38.Caption="8."
Command39.Caption="9."
Command40.Caption="10."
Command41.Caption="11."
Command42.Caption="12."
Command43.Caption="13."
Command44.Caption="14."
Command45.Caption="15."
Command46.Caption="16."
Command47.Caption="17."
Command48.Caption="18."
Command49.Caption="19."
Command50.Caption="20."
Command51.Caption="I"
Command52.Caption="II"
Command53.Caption="III"
Command54.Caption="IV"
Command55.Caption="V"
Command56.Caption="VI"
Command57.Caption="VII"
Command58.Caption="VIII"
Command59.Caption="IX"
Command60.Caption="X"
End Sub
Private Sub Add4()
Command1.Caption="α"
Command2.Caption="β"
Command3.Caption="γ"
Command4.Caption="δ"
Command5.Caption="ε"
Command6.Caption="ζ"
Command7.Caption="η"
Command8.Caption="θ"
Command9.Caption="ι"
Command10.Caption="κ"
Command11.Caption="λ"
Command12.Caption="μ"
Command13.Caption="ν"
Command14.Caption="ξ"
Command15.Caption="o"
Command16.Caption="π"
Command17.Caption="ρ"
Command18.Caption="σ"
Command19.Caption="T"
Command20.Caption="υ"
Command21.Caption=
Command22.Caption="x"
Command23.Caption="ψ"
Command24.Caption="ω"
Command25.Caption=""
Command26.Caption=""
Command27.Caption=""
Command28.Caption=""
Command29.Caption=""
Command30.Caption=""
Command31.Caption="A"
Command32.Caption="B"
Command33.Caption="Γ"
Command34.Caption="Δ"
Command35.Caption="E"
Command36.Caption="Z"
Command37.Caption="H"
Command38.Caption="Θ"
Command39.Caption="I"
Command40.Caption="K"
Command41.Caption="Λ"
Command42.Caption="M"
Command43.Caption="N"
Command45.Caption="O"
Command46.Caption="Π"
Command47.Caption="P"
Command48.Caption="∑"
Command49.Caption="T"
Command50.Caption="Y"
Command51.Caption="Φ"
Command52.Caption="X"
Command53.Caption="ψ"
Command54.Caption="Ω"
Command55.Caption=""
Command56.Caption=""
Command57.Caption=""
Command58.Caption=""
Command59.Caption=""
Command60.Caption=""
End Sub
Private Sub Add5()
Command1.Caption="="
Command2.Caption="≈"
Command3.Caption="≠"
Command4.Caption="三"
Command5.Caption="≌"
Command6.Caption="∽"
Command7.Caption="//"
Command8.Caption="⊥"
Command10.Caption="∈"
Command11.Caption="≤"
Command12.Caption="≥"
Command13.Caption="<"
Command14.Caption=">"
Command15.Caption="≮"
Command16.Caption="≯"
Command17.Caption="∧"
Command18.Caption="∨"
Command19.Caption="∪"
Command20.Caption="∩"
Command21.Caption="±"
Command22.Caption="+"
Command23.Caption="—"
Command24.Caption="×"
Command25.Caption="÷"
Command26.Caption="/"
Command27.Caption="∑"
Command28.Caption="Π"
Command29.Caption="∫"
Command30.Caption="∮"
Command31.Caption="::"
Command32.Caption="∵"
Command33.Caption="∴"
Command34.Caption=":"
Command35.Caption="⌒"
Command36.Caption="⊙"
Command38.Caption="∠"
Command39.Caption=
Command40.Caption="√"
Command41.Caption=""
Command42.Caption=""
Command43.Caption=""
Command44.Caption=""
Command45.Caption=""
Command46.Caption=""
Command47.Caption=""
Command48.Caption=""
Command49.Caption=""
Command50.Caption=""
Command51.Caption=""
Command52.Caption=""
Command53.Caption=""
Command54.Caption=""
Command55.Caption=""
Command56.Caption=""
Command57.Caption=""
Command58.Caption=""
Command59.Caption=""
Command60.Caption=""
End Sub
Private Sub Add6()
Command1.Caption="№"
Command2.Caption="§"
Command3.Caption="※"
Command4.Caption="☆"
Command5.Caption="★"
Command6.Caption="→"
Command7.Caption="←"
Command8.Caption="↑"
Command9.Caption="↓"
Command10.Caption="^"
Command11.Caption="○"
Command12.Caption="●"
Command13.Caption="◎"
Command14.Caption="◇"
Command15.Caption="◆"
Command16.Caption="口"
Command17.Caption="■"
Command18.Caption="△"
Command19.Caption="▲"
Command20.Caption=
Command21.Caption="¥"
Command22.Caption="£"
Command23.Caption="$"
Command24.Caption="$"
Command28.Caption=
Command29.Caption="TEL"
Command30.Caption="(株)"
Command31.Caption="°"
Command32.Caption="′"
Command33.Caption="″"
Command34.Caption="℃"
Command35.Caption="℉"
Command36.Caption="%"
Command37.Caption="‰"
Command38.Caption="@"
Command39.Caption="&"
Command40.Caption="#"
Command41.Caption="kg"
Command42.Caption="mg"
Command43.Caption="km"
Command44.Caption="am"
Command45.Caption="mm"
Command46.Caption="m2"
Command47.Caption="cc"
Command48.Caption="ln"
Command49.Caption="log"
Command50.Caption="mil"
Command51.Caption="♀"
Command52.Caption="♂"
Command53.Caption=""
Command54.Caption=""
Command55.Caption=""
Command56.Caption=""
Command57.Caption=""
Command58.Caption=""
Command59.Caption=""
Command60.Caption=""
End Sub
Private Sub Add7()
Command61.Caption="public"
Command62.Caption="private"
Command63.Caption="protected"
Command64.Caption="static"
Command65.Caption="const"
Command66.Caption="volatile"
Command67.Caption="囍"
Command68.Caption="嫪毐"
Command69.Caption="甲由"
Command70.Caption="博鳌"
Command71.Caption="厄尔尼诺"
Command72.Caption="罄竹难书"
End Sub
Private Sub Add8()
Command61.Caption=":)"
Command62.Caption=":-D"
Command63.Caption="%-\"
Command64.Caption=":-X"
Command65.Caption=";-("
Command66.Caption=":′("
Command67.Caption="顶!!!"
Command68.Caption="嘻嘻!"
Command69.Caption="呵呵!"
Command70.Caption="哈哈哈…"
Command71.Caption="啊~哦~~?!"
Command72.Caption="*$#-@!"
End Sub
Private Sub Paste2()
SetActiveWindow ahwnd
keybd_event VK_CONTROL,0,0,0
keybd_event VK_V,0,0,0
Sleep100
keybd_event VK_V,0,KEYEVENTF_KEYUP,0
keybd_event VK_CONTROL,0,KEYEVENTF_KEYUP,0
End Sub
单击“文件”菜单中的“生成特殊符号输入法(演示版).exe”项,单击“确定”按钮完成可执行文件的生成。
本发明的有益效果是,提供一种输入法,该输入法能方便地、快速地输入一些不常用的特殊符号。
具体实施方式
按照所采用的技术方案逐步操作,最终生成的可执行文件可以在Windows环境下运行。
Claims (1)
- 一种不针对某种特定软件的输入方法,其特征是:法直接在显示屏上显示特殊符号,只需用鼠标单击,被点击的符号即能输入到光标指定的位置;对特殊符号按类型分类,每一类型显示在一页中,通过单击不同命令按钮显示不同的特殊符号类型。
Priority Applications (1)
Application Number | Priority Date | Filing Date | Title |
---|---|---|---|
CNA2007101661444A CN101436125A (zh) | 2007-11-12 | 2007-11-12 | 特殊符号输入法 |
Applications Claiming Priority (1)
Application Number | Priority Date | Filing Date | Title |
---|---|---|---|
CNA2007101661444A CN101436125A (zh) | 2007-11-12 | 2007-11-12 | 特殊符号输入法 |
Publications (1)
Publication Number | Publication Date |
---|---|
CN101436125A true CN101436125A (zh) | 2009-05-20 |
Family
ID=40710574
Family Applications (1)
Application Number | Title | Priority Date | Filing Date |
---|---|---|---|
CNA2007101661444A Pending CN101436125A (zh) | 2007-11-12 | 2007-11-12 | 特殊符号输入法 |
Country Status (1)
Country | Link |
---|---|
CN (1) | CN101436125A (zh) |
Cited By (2)
Publication number | Priority date | Publication date | Assignee | Title |
---|---|---|---|---|
CN101968719A (zh) * | 2010-11-18 | 2011-02-09 | 北京数码大方科技有限公司 | 创建特殊字符的方法、装置及其计算机 |
WO2016197271A1 (zh) * | 2015-06-11 | 2016-12-15 | 周连惠 | 一种特殊符号输入法及输入法系统 |
-
2007
- 2007-11-12 CN CNA2007101661444A patent/CN101436125A/zh active Pending
Cited By (2)
Publication number | Priority date | Publication date | Assignee | Title |
---|---|---|---|---|
CN101968719A (zh) * | 2010-11-18 | 2011-02-09 | 北京数码大方科技有限公司 | 创建特殊字符的方法、装置及其计算机 |
WO2016197271A1 (zh) * | 2015-06-11 | 2016-12-15 | 周连惠 | 一种特殊符号输入法及输入法系统 |
Similar Documents
Publication | Publication Date | Title |
---|---|---|
US20050273700A1 (en) | Computer system with user interface having annotation capability | |
TW591478B (en) | Apparatus and method of using personal computer to integrate functions of home electronics | |
JP6795519B2 (ja) | クロスドメインデスクトップ合成器 | |
CN103218109A (zh) | 用于安卓操作系统的双窗口解决方案 | |
Cabreira et al. | An analysis of mid-air gestures used across three platforms | |
TWI354224B (en) | Interpreting architecture of multi-finger gesture | |
Hutterer et al. | Groupware support in the windowing system | |
US8443299B1 (en) | Rendering text in a brew device | |
US11016588B2 (en) | Method and device and system with dual mouse support | |
WO2015030982A1 (en) | Gui window with scaled-down version of the desktop for interacting with hidden interface elements | |
CN106066768A (zh) | 一种ppt互动演示装置和方法 | |
CN101436125A (zh) | 特殊符号输入法 | |
CN103034490A (zh) | 一种基于Managed C实现WPF窗体与GDI窗体消息互操作的方法 | |
Benyon et al. | Blended spaces for collaborative creativity | |
US20150138085A1 (en) | Electronic apparatus for simulating or interfacing a backward compatible human input device by means or control of a gesture recognition system | |
Scott et al. | Towards an interaction blueprint for mixed reality experiences in glam spaces: the augmented telegrapher at porthcurno museum | |
JP2005339530A (ja) | 小型コンピュータ装置用のユーザインターフェイスシェルを改良するシステムおよび方法 | |
US20110314399A1 (en) | Windowless runtime control of dynamic input device | |
Correia et al. | From GUI to AVUI: situating audiovisual user interfaces within human-computer interaction and related fields | |
WO2019092920A1 (ja) | 付加情報重畳プログラム、付加情報重畳方法、及び付加情報重畳装置 | |
CN102662673B (zh) | 用于手持设备的人机交互装置 | |
Fetter et al. | Tuiofx: A javafx toolkit for shared interactive surfaces | |
CN107797753A (zh) | 一种调用预装输入法的软键盘及其调用方法 | |
CN111045638B (zh) | 光标控制方法、装置、存储介质和终端 | |
Burkhardt et al. | A mobile visual analytics approach for instant Trend Analysis in mobile Contexts |
Legal Events
Date | Code | Title | Description |
---|---|---|---|
C06 | Publication | ||
PB01 | Publication | ||
C10 | Entry into substantive examination | ||
SE01 | Entry into force of request for substantive examination | ||
C02 | Deemed withdrawal of patent application after publication (patent law 2001) | ||
WD01 | Invention patent application deemed withdrawn after publication |
Open date: 20090520 |