选到TextBox1的keydown方法，然后val=keycode不行么？
创新互联主营正宁网站建设的网络公司,主营网站建设方案,app软件开发,正宁h5微信平台小程序开发搭建,正宁网站营销推广欢迎正宁等地区企业咨询
焦点在哪个控件，哪个控件就会有keydown，没有焦点也就不会有。
⒃谙允景磁サ氖录�刑砑�br /me.backgroundimage=system.drawing.bitmap.fromfile("你的图片文件路径")
命令按钮1.Visable=False'或者命令按钮1.Hide
命令按钮2.Visable=False'或者命令按钮2.Hide
在窗体的Click事件中添加
命令按钮1.Visable=True'或者命令按钮1.show
命令按钮2.Visable=True'或者命令按钮2.show
me.backgroundimage=nothing
在退出按钮的事件中添加
End
2、这里应该还有两个Timer,Timer1和Timer2
在开始按钮的事件中添加
timer1.interval=1000
Timer1.enable=True
timer2.interval=500
timer2.enable=true
在Timer1的Tick事件中添加
label1.text=timeofday
在Timer2的Tick事件中添加
label2.left=label2.left 10
if label2.left
vb.net教程之vb.net的Button控件
vb.net的Button控件
Button(按钮)控件一般接受鼠标单击事件被用来启动、中断或结束一个进程（相当于Visual Basic以前版本的CommandButton控件）。单击Button控件时将调用已写入Click事件过程中的过程。Button控件在大多数Visual Basic应用程序中都会用到，用户可以单击按钮执行操作。单击时，按钮不仅能执行相应的操作，而且看起来与被按下和松开一样。Button控件在工具箱中的图标如图所示：
1.向窗体添加按钮
在应用程序中很可能要使用多个按钮。就象在其他容器控件上绘制按钮那样，从工具箱里把Button控件直接拖到窗体上即可。可用鼠标调整按钮的大小，也可通过设置Location（坐标，用来确定控件相对窗体左上方顶点的位置）和Size（大小，第一个参数代表宽度，第二个参数代表高度）属性进行调整。
2.设置按钮显示文本
可用Text属性改变按钮上显示的文本。设计时，可在控件的“属性窗口”中设置此属性。在设计时设置Text属性后将动态更新按钮文本。Text属性最多包含255个字符。若标题超过了命令按钮的宽度，则会折到下一行。但是，如果控件无法容纳其全部长度，则标题会被剪切。可以通过设置Font属性改变在命令按钮上显示的字体。
3.创建键盘快捷方式
可通过Text属性创建按钮的访问键快捷方式。为此，只需在作为访问键的字母前添加一个连字符（）。例如，要为标题“Ok”创建访问键，应在字母“O”前添中连字符，于是得到“Ok”。运行时，字母“O”将带下划线，同时按Alt+O键就可执行单击按钮程序所执行的动作。
注意：如果不创建访问键，而又要使标题中包含连字符，应添加两个连字符（）。这样，在标题中就只显示一个连字符。
4.选定按钮
运行时，可用鼠标或键盘通过下述方法选定按钮：
(1)用鼠标单击按钮；
(2)按Tab键，将焦点转移到按钮上，然后按Enter键选定按钮；
(3)按按钮的访问键（[Alt+带有下划线的字母]）。
5.Click事件
运行时单击按钮，将触发按钮的Click事件并执行写入Click事件过程中的代码，同时，单击按钮的过程也将生成MouseMove、MouseLeave、MouseDown和MouseUp等事件。如果要在这些相关事件中附加事件过程，则应确保操作不发生冲突。对控件的操作不同，这些事件过程发生的顺序也不同。Button控件的单击事件发生顺序为：
MouseMove→MouseDown→Click→MouseUp→MouseLeave
注意：如果用户试图双击按钮控件，则其中每一次单击都将分别处理；也即按钮控件不支持双击事件。
6.增强按钮的视觉效果
按钮控件象复选框和选项按钮一样，可通过Image属性设置Button控件上的图标以增强视觉效果，然后设置图标（图片）的属性：ImageAlign显示图标（图片）的位置。通过设置ImageIndex（图片在图片框中的索引）以及ImageList（图片框）则可实现如下的效果，比如要向按钮添加图标或位图，或者在单击、禁止控件时显示不同的图象等等。
用API函数，以下代码Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMosT = -1
Private Const SWP_NOMOVE = H2
Private Const SWP_NosIZE = H1
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_KEYDOWN = H100
Const WM_KEYUP = H101
Const WM_CHAR = H102
Const VK_F1 = H70
Private Sub SendF1(hwnd) '调用这个过程即可对目标窗体发送F1键
Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)
End Sub这里是发送F1的实例，各个按键对应的虚拟键码，要到网上查
