做个输入器~[已解决]

haijie1223 · 发表于 2011-10-26 01:23:44

把A版的代码换了个颜色

Local $text = '＋－×÷﹢﹣±／＝≈≡≠∧∨∑∏∪∩∈⊙⌒⊥∥∠' & _
                '∽≌＜＞≦≧≮≯∧∨√　﹙﹚［］﹛﹜∫∮∝∞⊙∏'
GUICreate('字符格子例子 By Afan', 400, 200)
GUISetBkColor(0xFFFFFF)
GUISetFont(11)

GUICtrlCreateLabel('', 90, 10, 302, 90)
;~ GUICtrlSetBkColor(-1, 0xCBCED5)
GUICtrlSetBkColor(-1, 000000)
GUICtrlSetState(-1, 128)

Local $aTxt = StringRegExp($text, '.', 3)
Local $_c = UBound($aTxt), $Label[$_c]
For $x = 1 To $_c
        $Label[$x - 1] = GUICtrlCreateLabel($aTxt[$x - 1], 92 + 25 * ($x - (Int(($x - 1) / 12) * 12 + 1)), _
                        12 + 22 * Int(($x - 1) / 12), 23, 20, 0x201)
Next

Local $LD = GUICtrlCreateLabel('', 160, 100, 80, 80, 0x201)
GUICtrlSetFont(-1, 50)
GUICtrlSetColor(-1, 0xCBCED5)

GUISetState()
While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit
                Case $Label[0] To $Label[$_c - 1]
                        GUICtrlSetData($LD, $aTxt[$msg - 4])
                        GUICtrlSetColor($LD, 000000)
                                                
        EndSwitch
WEnd

huangke · 发表于 2011-10-26 01:25:38

不错不错啊，呵呵

iori2882 · 发表于 2011-10-26 09:41:54

A版的回复格子线的形成以后备用

xx44t10 · 发表于 2011-10-26 22:23:30

哇。很强大的效果。。学习了。

lakyes · 发表于 2011-10-27 11:56:17

好东西，支持

uxuuexqyxwk · 发表于 2011-10-27 14:41:33

写的很好,受教!

xdcysten · 发表于 2011-10-27 21:31:25

我也来学习一下，多谢分享

lgs0540 · 发表于 2011-10-28 10:34:42

先收藏，thx

zcool321 · 发表于 2011-10-28 11:07:53

a版太强大的必须支持

水木子 · 发表于 2011-10-28 12:13:42

回复 4# afan

非常经典的例子！前辈真是无所不能啊！

让我想到了这个例子。

Global $aButton[25] ;按钮总数
Global $iNumber = 5 ;每行按钮数量
Global $iSpacingX = 50, $iSpacingY = 50 ;垂直、水平，间距

Opt('GUIOnEventMode', 1)

GUICreate('', 300, 300)
GUISetOnEvent(-3, '_ButtonEvents')
For $i = 0 To UBound($aButton) - 1
        $aButton[$i] = GUICtrlCreateButton($i + 1, $iSpacingX * Mod($i, $iNumber) + 25, $iSpacingY * Floor($i / $iNumber) + 25, 50, 50)
        GUICtrlSetOnEvent(-1, '_ButtonEvents')
Next
GUISetState()

While 1
        Sleep(500)
WEnd

Func _ButtonEvents()
        Switch @GUI_CtrlId
                Case -3
                        Exit
                Case $aButton[0] To $aButton[UBound($aButton) - 1]
                        MsgBox(0, '', '按钮 ： ' & @GUI_CtrlId - 2)
        EndSwitch
EndFunc   ;==>_ButtonEvents

770317321 · 发表于 2011-11-1 13:36:21

學習了都很不錯的

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

[GUI管理] 做个输入器~[已解决]