同意 1 楼的 建议！
用VB如何设计打字程序啊,各位大哥大姐帮帮忙啊。
Label6.Top = Frame1.Top ' \/ 设定Label2代表字母出现的顶部位置 End Sub Private Sub Command1_Click()init ' \/调用init子程序 Timer1.Enabled = True '\/ 激活Time1控件 Timer2.Enabled = True '\/ 激活Time2控件 Command1.Visible = False Label5.Caption = 200 Label4.Caption = 0 En...
vb 中单击command1,label1向窗体左上角移动的代码
Private Sub Command1_Click() '左上角 Label1.Left = 0 Label1.Top = 0 End Sub Private Sub Command2_Click() '中央 Label1.Left = (Form1.ScaleWidth - Label1.Width) \/ 2 Label1.Top = (Form1.ScaleHeight - Label1.Height) \/ 2 End Sub Private Sub Command3_Click() '右上...
在vb中,为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令...
本题考查控件的常见属性。对于所有具有Cancel属性的控件，Cancel表示该控件是否当按下“Esc”键时，执行某个事件过程。Enabled表示控件是否可以使用，命令按钮的默认属性为Default，表示当按下回车键的时候，执行某个命令按钮的事件过程。
vb 的 Label 为什么没法放在 Frame上面?
VB的Label控件放置于Frame控件上的方法：在框架内部控制控件要将控件加入到框架中，只需将它们绘制在框架的内部即可。如果将控件绘制在框架之外，或者在向窗体添加控件的时候使用了双击方法，然后将它移动到框架控件内部，那么控件将仅仅“位于”框架的顶部，在进行移动的时候将不得不分别移动框架和控件。注意...
关于vb的问题。我在窗体上创建了一个frame,在frame中放置了一个label和...
Container 属性 返回或设置 Form 上控件的容器。在设计时不能使用。语法 Set object.Container [= container]示例 Set Command1.Container = Frame1
VB 一个窗体多个程序
具体命令不说了，你把button1的click命令设为当单击是form2的可见属性由false改为ture就行了。form2本身就在form1上，只不过原来是隐藏，这样就行了
在vb编程中怎样编一个"上一个"和"下一个"按钮代码
我用了一个Frame控件，在里面添加四个按钮，名称都叫cmdMD，是一个按钮组，每个按钮上有一个图标，移到第1条记录的那个按钮的Index属性设为3，移到上一条记录的那个按钮的Index属性设为2，移到下一条的设为1，移到最后一条的设为0，你也可以变换顺序，当然你这个只需要两个按钮就够了。代码中...
如何用VB做一个简单计算器 要求实现加减乘除乘方开方功能
Attribute VB_Exposed = False Private Data As Double Private lOperation As Long Private fClear As Boolean Private Sub cmdDot_Click() If InStr(1, Text1.Text, ".") <= 0 Then Text1.Text = Text1.Text & "." End Sub Private Sub Command1_Click(Index As Integer) If fClear = True Then...
用vb 把输入的10个数 从小到大排序
Command1.Enabled = False End Sub Private Sub Text1_KeyPress(KeyAscii As Integer)Static kx As Byte, ky As Byte If KeyAscii = 13 Then If Text1 <> "" Then x = Val(Text1)If x >= -32768 And x <= 32767 Then If n = 0 Then Label1(0) = x: Label1(0).Visible = ...
用vb编写一个英文单词背诵系统
代码：Private Type Word English As String * 20 Chinese As String * 20End TypePrivate Sub AddWord_Click() Frame1.Visible = True List1.Visible = FalseEnd SubPrivate Sub Command1_Click() Dim Vocabulary As Word Vocabulary.English = Text1.Text Vocabulary.Chinese = Text2....
