1.怎么让按钮对应一个数字、一个符号或者是一个汉字,按一下就自动输入到Text1里头(好像是拨电话一样,例如按钮A对应数字1,按一下,Text1里就出现一个1)2.怎么判断TEXT里输入了数字或者是输入了汉字,然后可以随意设置效果(例如TEXT里只输入了2个数字,按下按钮5秒钟弹出对话框"数字位数不够")
3.请问
(Tabstrip)怎么用?(例如怎么多增加选择卡)
4.美观一点的进度条如何做?顺便教一下,怎么等进度条进度达到100%时,弹出一个对话框,并且进入新的Form
5.这个不知道VB能不能实现:将鼠标做成一个手,然后地上有两个球,可以用手抓起来然后随意的抛,如果砸到墙上则反弹回来(球要自由反弹)(本问100分,实现后给分)
各位高手请帮帮忙,最后一问单独给,其他问都是10分就30分吧- -
答案：第一题我不会，第二题给你弄个完整的吧!
Private Sub Command1_Click()
Dim nStr$, dStr$, StrN%, Cyc%, CntN%(3)
nStr = Trim(Text1.Text)
StrN = Len(nStr)
For Cyc = 1 To StrN
Select Case Asc(Mid(nStr, Cyc, 1))
Case 65 To 90, 97 To 122
CntN(0) = CntN(0) + 1
Case 48 To 57
CntN(1) = CntN(1) + 1
Case Is < 0
CntN(2) = CntN(2) + 1
Case Else
CntN(3) = CntN(3) + 1
End Select
Next
MsgBox "数字有:" & CntN(0) & "个" & vbLf & "字母有:" & CntN(1) & "个" & vbLf & "汉字有:" & CntN(2) & "个" & vbLf & "其它字符有:" & CntN(3) & "个"
End Sub
第三题：使用 TabStrip 控件
TabStrip 控件的功能与笔记本的分页签或文件夹上的标签差不多。使用 TabStrip 控件，就能够将应用程序中的窗口或对话框的同一区域定义为多页。
可能的用途
创建选项卡式对话框，用来为 RichTextBox 控件设置各种文本属性。
创建选项卡式对话框，用来设置应用程序的首选项。
Tabs 集合
控件由 Tabs 集合中的一个或多个 Tab 对象构成。无论在设计时还是运行时，都能够通过设置属性来影响 Tab 对象的外观；在运行时，还能够通过调用一些方法来添加和删除 Tab 对象。
将 ImageList 控件与 TabStrip 控件相关联
为标识选项卡的功能，可以将 ImageList 控件中的图象与 Tab 对象联系起来。首先，必须将 ImageList 控件与 TabStrip 控件相关联，这既可以在设计时完成，也可以在运行时完成。
在设计时将 ImageList 控件与 TabStrip 控件相关联：
在 ImageList 控件中包含所需的图象。
用鼠标右键单击 TabStrip 控件，并单击“属性”，打开“TabStrip 属性页”对话框。
在“通用”选项卡上，单击“图象列表”框，并选中所需的 ImageList 控件。
要在运行时将 ImageList 控件与 TabStrip 控件相关联，只需将 ImageList 属性设置为 ImageList 控件的名称即可，如下所示：
Private Sub Form_Load()
\'TabStrip 控件名为“tabRTF”，
\'ImageList 控件名为“imlRTF”。
tabRTF.ImageList = imlRTF
End Sub
在设计时或运行时创建 Tab
在设计时和运行时均可创建 Tab 对象。在设计时创建 Tab 对象，需要使用“属性页”对话框。
在设计时创建 Tab 对象
用鼠标右键单击 TabStrip 控件，并单击“属性”以显示“属性页”对话框。
单击“选项卡”以显示“选项卡”页，如下图 2.36 所示：
图 2.36 “TabStrip 属性页”
在运行时用 Add 方法创建 Tab 对象
要在运行时创建 Tab 对象，需要对 Tab 对象使用 Add 方法。
注意 在缺省情况下，预先已经创建了一个 Tab 对象。
在运行时创建 Tab 对象的集合
声明一个 Tab 类型的变量，在添加每个 Tab 对象之后，该变量能够包含对新创建对象的引用。可以使用该引用为新创建的 Tab 对象设置各种属性。
使用带 Add 方法的 Set 语句，将对象变量设置为新的 Tab 对象。
使用对象变量，设置新的 Tab 对象的属性。
下面的代码用 Form 对象的 Load 事件创建了两个 Tab 对象，然后设置了新 Tab 对象的 Caption、Image 和 Key 属性。
Private Sub Form_Load()
\'TabStrip 控件被命名为“tabData”。
\'声明变量，然后用带 Add 方法的 Set
\'语句创建新的 Tab 对象，
\'然后将对象变量设置为新的 Tab。
\'并用它设置属性。
Dim tabX As Tab
\'Tab 1: Find 文本。
Set tabX = tabData.Tabs.Add()
tabX.Key = "find"
tabX.Caption = "Find"
tabX.Image = "Find" \'假定存在该图象。
\'Tab 2: 绘画对象。
Set tabX= tabData.Panels.Add()
tabX.Key = "draw"
tabX.Caption = "Draw"
tabX.Image = "draw" \'假定存在该图象
End Sub
提示 如果直接用 Add 方法，而不用对象变量来设置属性，效率会更高。在这种情况下，上述代码可以改写为：
tabData.Tabs.Add , "find", "Find", "find"
tabData.Tabs.Add , "draw", "Draw", "draw"
在客户区中放置容器控件
TabStrip 控件通常用来创建选项卡式对话框。该对话框每页由选项卡和客户区构成，如下图所示：
在运行时，如果用户单击选项卡，则必须对客户区进行编程，用一组不同的容器控件重新配置客户区（在下面的“管理 Tabs 和容器控件”中讨论）。
在设计时，可以在窗体中绘制容器控件，例如 PictureBox 或 Frame 控件。如果使用 Frame 控件，则可以在运行时将其 BorderStyle 属性设为不可见的。通过复制并粘贴同一个控件，来创建一组控件；需要为每个 Tab 对象创建一个控件。
在每个容器控件上，绘制应出现在选项卡中的控件。窗体看起来可能类似于下面的图 2.37：
图 2.37 在设计时具有两个 PictureBox 控件的 TabStrip
在创建了容器控件之后，需要用另外一种技术将它们放置在 TabStrip 控件的客户区：使用 Move 方法，并带上 Tabstrip 的 ClientLeft、ClientTop、ClientWidth 和 ClientHeight 属性，如下所示：
Private Sub Form_Load()
\'TabStrip 控件名为“tabRTF”。
\'Frame 控件名为“fraTab”。
For i = 0 To fraTab.Count - 1
With fraTab(i)
.Move tabRTF.ClientLeft, _
tabRTF.ClientTop, _
tabRTF.ClientWidth, _
tabRTF.ClientHeight
End With
Next i
End Sub
管理 Tabs 和 容器控件
选项卡式对话框中可以包含多个 Tab 对象。正如上面看到的，Frame 控件（或其它容器控件）应与每个 Tab 对象相关联。为了高效地管理众多的 Tab 对象和容器控件，可使用如下策略：
在设计时，创建所需要的全部 Tab 对象。
创建容器控件的控件数组，一个数组成员对应于一个 Tab 对象。
在每个容器控件中，绘制在选项卡页上的控件。
在运行时，使用控件的 SelectedItem 属性确定被单击的 Tab 对象的索引。
用 ZOrder 方法将适当的容器控件显示在最前面。
用来将合适的容器显示在最前面的代码可能类似于下面的代码：
Private Sub tabRTF_Click()
picRTF(tabRTF.SelectedItem.Index - 1).ZOrder 0
End Sub
提示 在设计时，可将控件数组的 Index 属性设置为基于 1 的数组。因为 Tabs 集合也是基于 1 的集合，所以上述代码可以改写如下：
picRTF(TabRTF.SelectedItem.Index).ZOrder 0
详细信息 上述策略的示例代码，请参阅“TabStrip 应用实例：创建选项卡式对话框”。
选项卡的 Style 属性：Buttons 或 Tabs
Style 属性决定 TabStrip 控件的外观象
笔记本的标签，
还是下压式按钮。
下表列出了它们各自的优点：
样式 用途
Tabs 用 Tabs 样式可以创建选项卡式对话框。如果使用该样式，将绘制出整个的选项卡式对话框，包括客户区。必须用代码确定在客户区中显示什么
Buttons 用 Buttons 样式可以创建工具栏或任务条，也就是说，不需要客户区，希望将按钮作为界面元素。或者，有时候不需要事先绘制的客户区，则可设置为 Buttons 样式。
多行选项卡
TabStrip 控件的另一特性是 MultiRow 属性。如果将该属性设置为 True，那么大量的 Tab 对象就能够分多行显示，如下所示：
如果 MultiRow 属性被设置为 False，一组选项卡只能出现在同一行中，这时在最右端会出现一对滚动按钮：
TabWidthStyle 属性决定每行的外观。并且，如果 TabWidthStyle 设置为 Fixed，则还可以用 TabFixedHeight 和 TabFixedWidth 属性为 TabStrip 控件中的所有选项卡设置相同的高度和宽度
第4题，第5题不会
我也是新手， VB 大家一起学习
1.可以用 底层驱动代换（截取键盘动作， 和键盘记录软件一样），或者简单点的自己替换 if 就可以、
2.len=(好像是.......)
3.不明白你的意思，截图不是有么
4.5 不会......
上一个：VB中如何连接一个数据库
下一个：VB托盘图标问题
