执行键盘事件方法如下：
创新互联公司专注于达川企业网站建设,成都响应式网站建设公司,电子商务商城网站建设。达川网站建设公司,为达川等地区提供建站服务。全流程按需策划设计，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务
第一步，点击VS工具。
第二步，打开后，新建一个Windows窗体应用程序。
第三步，请看右下方Form的属性栏。
第四步，双击KeyDown。
第五步，输入提示按键代码，如图所示。
第六步，再次输入代码，设置属性KeyPreview为true。
第七步，运行程序，按下举例F5，则会弹出提示，表明已经成功获。
1.定义变量记录键是否被按下，按下的累计时间
Dim 按下A键 As Boolean
Dim 按下A键时间 As Integer
2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)
在KeyDown事件中添加如下代码：
If e.Keycode = keys.A Then 按下A键 = True
在KeyUp事件中添加如下代码：
If e.Keycode = keys.A Then 按下A键 = False
3.添加一个Timer1控件，调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启
在Tick事件中添加如下代码：
If 按下A键 = True
按下A键时间+=1
Call 音量设置(按下A键时间 * 10)
End If
PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000
不知道你要干什么？是这样么？Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadTextBox1.Text = ""TextBox1.ReadOnly = TrueEnd SubPrivate Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClickTextBox1.Text = Val(TextBox1.Text) + 1End SubEnd Class
3。转换: private void Map2_SelectBoxFinal(object sender, AxMapWinGIS。_DMapEvents_SelectBoxFinalEvent e) { MapWinGIS。Shapefile sf = default(MapWinGIS。Shapefile); MapWinGIS。Extents myExtents = new MapWinGIS。Extents(); int[] selectedShapes = null; int i = 0; int hndl = 0; double pxMin = 0; double pxMax = 0; double pyMin = 0; double pyMax = 0; double pzMin = 0; double pzMax = 0; System。Drawing。Color col = default(System。Drawing。Color); 。。Check if the map is in selection mode if (Map6。CursorMode == MapWinGIS。tkCursorMode。cmSelection) { 。。Get the handle of the layer at position 0 hndl = Map0。get_LayerHandle(0); 。。Get the shapefile in the specified layer sf = Map4。get_GetObject(hndl); 。。Convert the boundaries of the selection box from pixel units to projected map coordinates Map4。PixelToProj(e。left, e。bottom, pxMin, pyMin); Map4。PixelToProj(e。right, e。top, pxMax, pyMax); 。。Set the extents object to be used to find shapes that have been selected in the shapefile myExtents。SetBounds(pxMin, pyMin, 0, pxMax, pyMax, 0); 。。Check if there are any shapes with in the shapefile that intersect with the selection box if (sf。SelectShapes(myExtents, 0, MapWinGIS。SelectMode。INTERSECTION, selectedShapes)) { 。。Get the System。Drawing。Color which is being used as the fill color for the shapes in the layer col = Map4。get_ShapeLayerFillColor(hndl); 。。Set all shapes in the shapefile back to their original color Map1。set_ShapeLayerFillColor(hndl, System。Convert。ToUInt42(Information。RGB(col。R, col。G, col。B))); 。。For each of the selected shapes in the shapefile, color them differently than their original fill color for (i = 0; i = Information。UBound(selectedShapes); i++) { Map5。set_ShapeFillColor(hndl, selectedShapes(i), System。Convert。ToUInt42(Information。RGB(300, 700, 0))); } } } } 2。在页面窗体类中1为6Map3注册这个m事件。 应该是这样:Map3。SelectBoxFinal += += new EventHandler(Map0_SelectBoxFinal);。。此处委托事件不u一p定对应。因为0每个f函数和事件的参数可能不q一q致,如果写得不d对,请根据控件对象点出事件(Map3。SelectBoxFinal)后,安{Tab}键自动生成。 这段事件注册的代码最好写在"Windows 窗体设计3器生成的代码"中8。 2。附上dVB转C#的网站。如果常用参照VB的代码写C#。你会经常去逛的。当然这也d可以7将C#代码转成VB。 a恕ⅷy┰抱hf◇xハdkIj五a恕ⅷf◇
VB.net中点击标签页面触发的Selected事件，代码如下。
Private Sub TabControl_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl.Selected
If e.TabPage.TabIndex = TabPage1.TabIndex Then
MsgBox("你点击了第一个标签控件")
End If
End Sub
