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 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 ;按钮总数
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 To $aButton
                        MsgBox(0, '', '按钮 ： ' & @GUI_CtrlId - 2)
        EndSwitch
EndFunc   ;==>_ButtonEvents

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

學習了   都很不錯的
页: 1 2 [3]
查看完整版本: 做个输入器~[已解决]