输入框只能输入汉字【已解决】

3mile · 发表于 2010-7-20 22:38:10

呵呵，也发现这个问题了。再来个消息模式的

#include <GUIComboBox.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
Global $hGUI
Global Const $EN_CHANGE = 0x300
$hGUI = GUICreate("检测Combo有键盘输入", 400, 96)
$hinput = GUICtrlCreateInput("",2,5,396,20);
GUISetState()
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
Func WM_COMMAND($hWinHandle, $iMsg, $wParam, $lParam)
If _WinAPI_HiWord($wParam) = $EN_CHANGE And _WINAPI_LoWord($wParam) = $hinput Then
Local $read,$Re,$ReRead
$read=GUICtrlRead($hinput)
$InputSplit = StringRegExp($read, '.', 3)
For $n=0 To UBound($InputSplit)-1
If StringRegExp($InputSplit[$n],'[^\x00-\xff]',0)=0 Then
$read=StringReplace($read,$InputSplit[$n],'')
GUICtrlSetData($hinput,$Read)
EndIf
Next
EndIf
EndFunc

复制代码

3mile · 发表于 2010-7-20 22:42:13

14楼的改造代码，应该可以解决快速输入半角字符或在已输入的字符中插入字符或粘贴时发生错误的问题。

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <array.au3>
Local $InputSplit, $read
$Form1 = GUICreate("Form1", 256, 105, -1, -1)
$Input1 = GUICtrlCreateInput("", 24, 40, 190, 21, $ES_AUTOHSCROLL)
AdlibRegister("scan", 50)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func scan()
$read=GUICtrlRead($input1)
$InputSplit = StringRegExp($read, '.', 3)
For $n=0 To UBound($InputSplit)-1
If StringRegExp($InputSplit[$n],'[^\x00-\xff]',0)=0 Then
$read=StringReplace($read,$InputSplit[$n],'')
GUICtrlSetData($input1,$Read)
EndIf
Next
EndFunc ;==>scan

复制代码

afan · 发表于 2010-7-20 22:48:37

16# 17# 都不错，学习了~~

lxz · 发表于 2010-7-21 05:06:26

学习了~~..

261869247 · 发表于 2010-7-23 13:19:56

受教了非常不错呵呵每天都在学习！

261869247 · 发表于 2010-7-23 13:20:21

　　　　　谢谢大家！

styledream · 发表于 2010-7-23 15:08:31

在6# xsjtxy 兄弟的基础上增加了一个功能，可以限制全角数字及字母的输入

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 500, 150, -1, -1)
dim $ii = ""
$Input1 = GUICtrlCreateInput($ii, 30, 50, 440, 21,$ES_WANTRETURN)
GUISetState(@SW_SHOW)
AdlibRegister("Input",10)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func Input()
$i = GUICtrlRead($Input1)
if $i = $ii then Return
; 半角符的数字及英文
$i = StringReplace($i, "0", "")
$i = StringReplace($i, "1", "")
$i = StringReplace($i, "2", "")
$i = StringReplace($i, "3", "")
$i = StringReplace($i, "4", "")
$i = StringReplace($i, "5", "")
$i = StringReplace($i, "6", "")
$i = StringReplace($i, "7", "")
$i = StringReplace($i, "8", "")
$i = StringReplace($i, "9", "")
$i = StringReplace($i, "a", "")
$i = StringReplace($i, "b", "")
$i = StringReplace($i, "c", "")
$i = StringReplace($i, "d", "")
$i = StringReplace($i, "e", "")
$i = StringReplace($i, "f", "")
$i = StringReplace($i, "g", "")
$i = StringReplace($i, "h", "")
$i = StringReplace($i, "i", "")
$i = StringReplace($i, "j", "")
$i = StringReplace($i, "k", "")
$i = StringReplace($i, "l", "")
$i = StringReplace($i, "m", "")
$i = StringReplace($i, "n", "")
$i = StringReplace($i, "o", "")
$i = StringReplace($i, "p", "")
$i = StringReplace($i, "q", "")
$i = StringReplace($i, "r", "")
$i = StringReplace($i, "s", "")
$i = StringReplace($i, "t", "")
$i = StringReplace($i, "u", "")
$i = StringReplace($i, "v", "")
$i = StringReplace($i, "w", "")
$i = StringReplace($i, "x", "")
$i = StringReplace($i, "y", "")
$i = StringReplace($i, "z", "")
; 全角符的数字及英文
$i = StringReplace($i, "０", "")
$i = StringReplace($i, "２", "")
$i = StringReplace($i, "３", "")
$i = StringReplace($i, "４", "")
$i = StringReplace($i, "５", "")
$i = StringReplace($i, "６", "")
$i = StringReplace($i, "７", "")
$i = StringReplace($i, "８", "")
$i = StringReplace($i, "９", "")
$i = StringReplace($i, "ａ", "")
$i = StringReplace($i, "ｂ", "")
$i = StringReplace($i, "ｃ", "")
$i = StringReplace($i, "ｄ", "")
$i = StringReplace($i, "ｅ", "")
$i = StringReplace($i, "ｆ", "")
$i = StringReplace($i, "ｇ", "")
$i = StringReplace($i, "ｈ", "")
$i = StringReplace($i, "ｉ", "")
$i = StringReplace($i, "ｊ", "")
$i = StringReplace($i, "ｋ", "")
$i = StringReplace($i, "ｌ", "")
$i = StringReplace($i, "ｍ", "")
$i = StringReplace($i, "ｎ", "")
$i = StringReplace($i, "ｏ", "")
$i = StringReplace($i, "ｐ", "")
$i = StringReplace($i, "ｑ", "")
$i = StringReplace($i, "ｒ", "")
$i = StringReplace($i, "ｓ", "")
$i = StringReplace($i, "ｔ", "")
$i = StringReplace($i, "ｕ", "")
$i = StringReplace($i, "ｖ", "")
$i = StringReplace($i, "ｗ", "")
$i = StringReplace($i, "ｘ", "")
$i = StringReplace($i, "ｙ", "")
$i = StringReplace($i, "ｚ", "")
GUICtrlSetData($Input1,$i)
$ii = $i
endfunc

复制代码

nmgwddj · 发表于 2010-7-23 16:30:59

P版出过题的。我忘记叫什么了。
记得有很多人都是先输入消息判断然后删除。
P版的代码是直接截取消息

kk_lee69 · 发表于 2010-7-28 13:44:06

學習了....... 不知道是不是有 P版的源碼

		自动登录	找回密码
密码			加入

[GUI管理] 输入框只能输入汉字【已解决】

评分

评分

评分

[GUI管理] 输入框 只能输入汉字【已解决】

评分

评分

评分

[GUI管理] 输入框只能输入汉字【已解决】