初学者 VB代码求解大神们帮帮忙_百度知道
初学者 VB代码求解大神们帮帮忙
请求此段代码的详解尤其是粗体这段
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim ShiftDown, AltDown, CtrlDown Dim Txt As String ShiftDown = (Shift And vbShiftMask) & 0 ' AltDown = (Shift And vbAltMask) & 0 ' CtrlDown = (Shift And vbCtrlMask) & 0 ' If KeyCode &= 48 And KeyCode &= 105 Then If ShiftDown And AltDown And CtrlDown Then Txt = &Shif+Alt+Ctrl& ElseIf ShiftDown And AltDown Then Txt = &Shif+Alt& ElseIf ShiftDown And CtrlDown Then Txt = &Shif+Ctrl& ElseIf CtrltDown And AltDown Then Txt = &Ctrl+Alt& ElseIf ShiftDown Then Txt = &Shif& ElseIf AltDown Then Txt = &Alt& ElseIf CtrlDown Then Txt = &Ctrl& ElseIf Shift = 0 Then Txt = && End If Txt = Txt + Chr(KeyCode) txt1.Text = &您按下了& + Txt End If End Sub
提问者采纳
仔细看下MSDN KeyDown、KeyUp 事件
这些事件是当一个对象具有焦点时按下 ( KeyDown ) 或松开 ( KeyUp ) 一个键时发生的。（要解释 ANSI 字符，应使用 KeyPress 事件。） 语法 Private Sub
Form_KeyDown( keycode
As Integer , shift
As Integer) Private Sub object _KeyDown( [index
As Integer ,]keycode
As Integer , shift
As Integer) Private Sub
Form_KeyUp( keycode
As Integer , shift
As Integer) Private Sub object _KeyUp( [index
As Integer ,]keycode
As Integer , shift
As Integer) KeyDown 和 KeyUp 事件包括下列部分： 部分 描述 object 一个对象表达式，其值是“应用于”列表中的一个对象。 index 是一个整数，它用来唯一标识一个在控件数组中的控件。 keycode 是一个键代码，诸如 vbKeyF1
（ F1 键）或 vbKeyHome
（ HOME 键）。要指定键代码，可使用对象浏览器中的 Visual Basic ( VB ) 对象库中的常数。 shift 是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。shift 参数是一个位域，它用最少的位响应 SHIFT 键（位 0 ）、CTRL 键（位 1 ）和 ALT 键（位 2 ）。这些位分别对应于值 1、2 和 4。可通过对一些、所有或无位的设置来指明有一些、所有或零个键被按下。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。 说明 对于这两个事件来说，带焦点的对象都接收所有击键。一个窗体只有在不具有可视的和有效的控件时才可以获得焦点。虽然 KeyDown 和 KeyUp 事件可应用于大多数键，它们最经常地还是应用于：
扩展的字符键如功能键等。 定位键。 键盘修饰键和按键的组合。 区别数字小键盘和常规数字键。
在需要对按下和松开一个键都响应时，可使用 KeyDown 和 KeyUp 事件过程。 下列情况不能引用 KeyDown 和 KeyUp 事件：
窗体有一个
CommandButton
控件，并且
属性设置为
时的ENTER 键。 窗体有一个
CommandButton
控件，并且
属性设置为
时的ESC 键。 TAB 键。
KeyDown 和 KeyUp 用两种参数解释每个字符的大写形式和小写形式：keycode —显示物理的键（将 A 和 a 作为同一个键返回）和 shift —显示 shift + key 键的状态而且返回 A 或 a 其中之一。 如果需要测试 shift 参数，可使用该参数中定义各位的 shift 常数。该常数有下列值： 常数 值 描述 vbShiftMask 1 SHIFT 键的位屏蔽。 VbCtrlMask 2 CTRL 键的位屏蔽。 VbAltMask 4 ALT 键的位屏蔽。 该常数用作位屏蔽。它可被用来测试任何键组合。 测试一个条件时，首先将每个结果分配给一个临时整数变量，然后将 shift 与一个位屏蔽进行对比。如下例，可用
运算符和 shift 参数一起来测试条件是否大于 0。该条件说明该修正键被按下： ShiftDown = (Shift And vbShiftMask) & 0
可按此例在一个过程中测试任何条件的组合： If ShiftDown And CtrlDown Then
注意 如果 KeyPreview
属性被设置为
True ，则一个窗体先于该窗体上的控件接收到此事件。可用
KeyPreview
属性来创建全局键盘处理例程。 麻烦采纳，谢谢!
其他类似问题
为您推荐：
其他1条回答
这样，加一个过程，把窗体的keypreview属性设置为 true 就可以接收按键了。
Private Sub Form_Load() Form1.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim ShiftDown, AltDown, CtrlDown Dim Txt As String ShiftDown = (Shift And vbShiftMask) & 0 ' AltDown = (Shift And vbAltMask) & 0 ' CtrlDown = (Shift And vbCtrlMask) & 0 ' If KeyCode &= 48 And KeyCode &= 105 Then If ShiftDown And AltDown And CtrlDown Then Txt = &Shif+Alt+Ctrl& ElseIf ShiftDown And AltDown Then Txt = &Shif+Alt& ElseIf ShiftDown And CtrlDown Then Txt = &Shif+Ctrl& ElseIf CtrltDown And AltDown Then Txt = &Ctrl+Alt& ElseIf ShiftDown Then Txt = &Shif& E...
初学者的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb五子棋源代码谁有谢谢大神们帮帮忙_百度知道
vb五子棋源代码谁有谢谢大神们帮帮忙
谁有五子棋源代码人机对战的谢谢 q： 邮箱： 再次感谢！
提问者采纳
邮件已经发出,我的邮箱是
请注意查收!源码已经在附件内了
其他类似问题
为您推荐：
五子棋的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁谁有vb牛逼的程序代码？大神们帮帮忙_百度知道
谁有vb牛逼的程序代码？大神们帮帮忙
提问者采纳
牛B的？ 呵呵，只要不多的几行代码 让机器立刻跟死机一样！（CPU占用100%） 只能重启
其他类似问题
为您推荐：
程序代码的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求VB高手解释这些代码。小弟的分不多，希望大神们帮帮忙，感激不敬。代码如下_百度知道
求VB高手解释这些代码。小弟的分不多，希望大神们帮帮忙，感激不敬。代码如下
Dim s As Integer
Dim value As LongDim filename As StringPrivate Sub Form_Resize()
On Error Resume Next
Text1.Width = Me.ScaleWidth - 50
Text1.Height = Me.ScaleHeight - 50
Private Sub Form_Unload(Cancel As Integer)Dim ms As IntegerIf s = 1 Then
ms = MsgBox(&要保存刚才编辑的文件吗？&, vbYesNoCancel + vbDefaultButton1, &保存否&)
Select Case ms
Call menusave_Click
Cancel = 0
Cancel = 1
Text1.Text = &&
Cancel = 0
End SelectEnd IfUnload Form3End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)If Text1.Text = && Or Text1.SelLength = 0 Thenmenucut.Enabled = Falsemenudel.Enabled = Falsemenucopy.Enabled = Falsemenuup.Enabled = Falsemenulow.Enabled = FalseEnd IfIf Text1.SelLength & 0 Thenmenucut.Enabled = Truemenudel.Enabled = Truemenucopy.Enabled = Truemenuup.Enabled = Truemenulow.Enabled = TrueEnd Ifmenusave.Enabled = Truemenusaveas.Enabled = TrueEnd Sub解释重点，大意就行了
提问者采纳
同学你好：Form_Resize() 方法中，让文本框text1大小随着窗体大小而改变。Form_Unload 事件是当点击关闭按钮关闭窗体时引发的事件，在该事件中，代码弹出来了一个提示框，询问用户是否保存，如果用户点击了否，则不保存继续退出，如果点击了是，则调用 menusave 菜单的保存过程对文档进行保存，如果点击了取消，则取消关闭返回程序。Text1_MouseUp 是文本框鼠标谈起来的时候的操作，当文本框没有文字或者没有选定任何文字时，让菜单中的复制、剪切、拷贝等无效，而当选择了文字时使其有效，同时保证保存和另存为两个菜单项有效。
提问者评价
来自团队：
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁各位大神，小神，走过路过帮帮忙~实在是找不到电子书文也不太好找_事件记录吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0可签7级以上的吧50个
本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：826,544贴子：
各位大神，小神，走过路过帮帮忙~实在是找不到电子书文也不太好找
求《事到如今你比我by战靖》，《颤粟by战靖》电子书，。。。跪求~
不给他超长，不是哦就是...
如题如题大神帮帮忙啊谢...
无邮箱，能发扣扣么...
《事到如今你爱我by战靖》郁闷。。才发现点错字了，，各位大神看这里
哈哈哈哈哈哈哈哈哈哈我找到了也
内&&容:使用签名档&&
保存至快速回贴