作者Hotan (昊天)
看板Visual_Basic
标题Re: [VB6 ] 输入字元 ，让特定的元件动作?
时间Thu Jul 13 22:31:02 2006
※ 引述《Hotan (昊天)》之铭言：
: ※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: : 假设你的文字方块是Text1，command分别为command1、command2、...
: : cmdName = "Command" & CStr(Asc(UCase(Text1.Text))-65)
: : CallByName Me, cmdName, VbMethod
: 谢谢版大的回答，不过我放到keydown中有bug.. 陌生的语法完全不会抓..程式如下
我主要是想知道，若在版大觉得程式逻辑或是用法上用错的话就会提出来
陌生的语法不会抓虫，当然就是指
cmdname = "Command" & CStr(Asc(UCase(Text1.Text)) - 64)
CallByName Me, cmdname, VbMethod
: Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
: Select Case KeyCode
: Case 65 To 84
: cmdname = "Command" & CStr(Asc(UCase(Text1.Text)) - 64)
: CallByName Me, cmdname, VbMethod
: Case Else
: Text1.Text = ""
: End Select
: End Sub
: : 在表单设计状态点 monthview 物件，点格式功能表，物件层次，移至顶层
: vb是英文版的，format下选项灰色居大部份，都不能选 @@
: 是因为少灌了什麽吗?? 重拉也一样
: 发现text的问题可能比较大，因为monthview其实在其他的text上都在最上面
: 我复制一般的text，但在那个"位置"上就是不会被挡住...
: 只能往"位置"上想了@@ 实在太没道理了....@@
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 202.132.132.184
1F：→ Hotan:cname是 empty，但 cstr(..) 输出是1没错 @@ 07/13 22:32
2F：推 fumizuki:cmdname还没执行前当然是空的 你要看callbyname那行 07/14 07:42
3F：推 fumizuki:然後你的控制项名称是不是叫做command1 07/14 07:43
4F：推 fumizuki:相关的副程式 command1_click() 也要存在 07/14 07:43