作者Hotan (昊天)
看板Visual_Basic
标题Re: [VB6 ] 输入字元 ，让特定的元件动作?
时间Thu Jul 13 17:06:23 2006
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: ※ 引述《Hotan (昊天)》之铭言：
: : 想达成输入 a~i，让它触动个别的 command_click 指令(1~20)
: : 使用controls() 写在 text_keydown 中
: 假设你的文字方块是Text1，command分别为command1、command2、...
: cmdName = "Command" & CStr(Asc(UCase(Text1.Text))-65)
: CallByName Me, cmdName, VbMethod
谢谢版大的回答，不过我放到keydown中有bug.. 陌生的语法完全不会抓..程式如下
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会被某些text挡住，我该调整什麽属性呢??
: : 谢谢 ^^"
: 在表单设计状态点 monthview 物件，点格式功能表，物件层次，移至顶层
vb是英文版的，format下选项灰色居大部份，都不能选 @@
是因为少灌了什麽吗?? 重拉也一样
发现text的问题可能比较大，因为monthview其实在其他的text上都在最上面
我复制一般的text，但在那个"位置"上就是不会被挡住...
只能往"位置"上想了@@ 实在太没道理了....@@
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 202.132.132.184
1F：推 fumizuki:1. 善用 F9 设中断点，检查哪行程式有问题 07/13 21:54
2F：推 fumizuki:然後 bug 是什麽没说清楚，没人知道你有什麽问题@@ 07/13 21:54
3F：推 fumizuki:2. 复制一般的text @@? 不然你原本的text是什麽o.o? 07/13 21:55