vb中，如何设定单击键盘上的一个键或者命令按钮，使text出现欢迎爱光临 电视剧光临

来源：蜘蛛抓取(WebSpider) 时间：2016-03-28 15:01 标签： 四十一团欢迎您光临
二级VB模拟试题1-1_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
二级VB模拟试题1-1
上传于||暂无简介
阅读已结束，如果下载本文需要使用2下载券
想免费下载本文？
下载文档到电脑，查找使用更方便
还剩1页未读，继续阅读
你可能喜欢VB中怎样设置使安回车键相当于单击按钮？_百度知道
VB中怎样设置使安回车键相当于单击按钮？
如果有一按钮事件Command1_Clickprivate sub text1_keypress(...)
if keyascii=13 then
Command1_click
end ifend sub
其他类似问题
为您推荐：
提问者采纳
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Command1.Value = TrueIf KeyCode = 27 Then command2.Value = TrueEnd Sub Command1是“是”按钮 Command2是“否”按钮
提问者评价
其他4条回答
Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Command1：按钮的default设为真此好的：窗体的keypreview设为真然后最好途径
在每一个控件的Keypress事件过程中都加入如下语句：If keyascii = 13 then command1_CLICK即可。
我明白你要的意思这样把CommandButton的default属性设置为true即可，程序运行时直接回车！！不会没分吧？
设置该按纽的Default属性为ture
回车键的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用vb设计一个电子滚动屏幕,当单击开始时,有欢迎光临几个汉字滚动显示按停止,_百度知道
用vb设计一个电子滚动屏幕,当单击开始时,有欢迎光临几个汉字滚动显示按停止,
picturebox里放一个textbox，用TIMER改变textbox的X位置值，用开始按钮激活TIMER
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁如何在VB中使用多个按钮控制一个函数图？_百度知道
如何在VB中使用多个按钮控制一个函数图？
我想利用多个按钮来控制一副函数图 在同一副图中画出不同的函数图 请问畅怠扳干殖妨帮施爆渐高手.... 如何利用按钮触发函数图？？ 谢谢了~！！
提问者采纳
---- 在我编制的一个控制系统中,需要对不同模块的不同状态设置相应参数.由于设置的参数名称都一样,只是具体内容不同,我不再象往常一样创建不同的窗口,摆放相同的部件,编制几乎相同的代码,而使用了窗体实例.其实现过程大致如下:
新建一个Form(我使用的是MDIForm,用一般的form也一样,我试过),取名为form1,再建一个窗口取名为form2;
为form1建立菜单项(使用按钮也行):
菜单项:OpenWindow,
子菜单项:open1、open2、open3,子菜单项设为控件数组，名称取为mnuOpen,索引分别为0、1、2；
为菜单mnuOpen编写代码:
Private Sub mnuOpen_Click(Index As Integer)
Dim myForm As Form '定义变量
For Each myForm In Forms '使用Forms集合
If myForm.Caption = &Window& & CStr(Index + 1) Then
'通过查看窗口标题检查该窗口实例是否已打开
myform.windowstate=0 '照原来的尺寸大小和位置打开
myForm.SetFocus '如果已打开,则使其获得焦点
Set myForm = Nothing '释放资源
Exit Sub '跳出过程
Set myForm = New Form2 '创建Form2的窗体实例
Load myForm
myForm.Caption = &Window& & CStr(Index + 1)
'设置其Caption属性,也可作其他操作
myForm.Show
Set myForm = Nothing
---- 在我的控制系统中,也用到了控件的动态增减,下面谈谈实现方法.
---- 假设根据一TextBox(名称为Text1)的内容来决定某Label[名称为Label1(0),定为控件数组,索引值Index为0]控件的数目.在Form中放置一个TextBox控件和一个Label控件,取名如前所述;再放置一个命令按钮Command1.在Command1中编程:
Private Sub Command1_Click()
If IsNumeric(Text1.Text) = False Then Exit Sub
'如果Text1中内容不是数字则退出过程
Dim iCount As Integer, i As Integer
'iCount为设定的个数,i为计数器
Dim iIndex As Integer
'iIndex为实际个数
iCount = CInt(Text1.Text)
If iCount & 0 And iCount & 10 Then
'假定最多只能放10个Label1
iIndex = Label1.Count '当前Label1的个数
If iCount & iIndex Then
'设定值大于实际值则增加相应数目的控件
For i = iIndex To iCount - 1
Load Label1(i)
With Label1(i)
.Left = Label1(0).Le畅怠扳干殖妨帮施爆渐ft
.Top = Label1(i - 1).Top + 350
.Visible = True
ElseIf iCount & iIndex Then
'设定值小于实际值则删除多余的控件
For i = iCount To iIndex - 1
Unload Label1(i)
---- 上面的代码在VB5.0和VB6.0中运行通过.
其他类似问题
为您推荐：
函数的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 四十一团欢迎您光临 的文章

 

随机推荐