22问答网
所有问题
当前搜索:
commandbutton
在XP系统中怎么EXITWINDOWSEX函数没用了?
答:
Begin VB.
CommandButton
Command2 Caption = "重启"Height = 465 Left = 240 TabIndex = 2 Top = 1260 Width = 1635 End Begin VB.CommandButton Command1 Caption = "注销"Height = 465 Left = 240 TabIndex = 1 Top = ...
vb 问题 急需高人解答 倒数第二句有问题
答:
你刚刚将ts设为
command
.Execute(),还没赋予对象,当然不可用。
关于VB编程中static的问题
答:
Dim sum As Integer Private Sub
Command
1_Click()Static a As Integer a = a + 1 sum = a End Sub Private Sub Command2_Click()Print sum End Sub 静态变量无法实现全局.在开始定义了一个全局变量 sum 在Command1中定义了一个静态变量 a 然后在
command
2中输出全局变量就行了。
怎么在VB中嵌入一个网页
答:
工程---部件---选中 Microsoft Internet controls ---确认在窗体上添加一个 WebBrowser 控件、一个 TextBox 控件 、六个
CommandButton
控件然后粘贴如下代码:Private Sub Command1_Click() Me.WebBrowser1.Navigate Me.Text1.TextEnd SubPrivate Sub Command2_Click() Me.WebBrowser1.RefreshEnd Su...
如何用EXCEL宏代码实现光标定们?
答:
把如下代码放到某Sheet中试下看是不是你要的效果:Private Sub
CommandButton
1_Click()If Not IsNumeric(TextBox1.Text) Then MsgBox "行号必须是数字", vbCritical, "提示"GoTo endsub End If If Not IsNumeric(TextBox2.Text) Then MsgBox "内容必须是数字", vbCritical, "提示"GoTo endsub En...
VB随机抽数,就是类似秒表那种数字会不断变化的那种
答:
一个Textbox控件(Text1),两个
Commandbutton
控件(Command1、Command2),一个Timer控件(Timer1)Private Sub Command1_Click()Timer1.Interval = 50 Timer1.Enabled = True End Sub Private Sub Command2_Click()Timer1.Enabled = False End Sub Private Sub Timer1_Timer()Randomize n = Int(Rnd(...
帮忙编写几个VB程序
答:
if x <2 then print 1.5*x elseif x<10 then print 1.5*0.8*x else print 1.5*0.7*x endif a=inputbox("")b=inputbox("")c=inputbox("")if a>b then if a>c then if b+c<a then msgbox("不是三角形")else msgbox("周长为" & a+b+c)endif else if a+b<c then...
vb出现子过程或函数未定义 怎么解决
答:
这是说“班级设置_Click”功能模块没有找到。首先看看你对应设计的“
CommandButton
控件”的Click事件编写了相关模块程序没。如果没有该事件,就增加该事件模块就行。如果已有编写了程序,看看该模块的名称是否是“班级设置_Click”,不是的话改过来就行,或直接报模块名粘贴过去也行。
用VB制作一个程序求字符的AscII值,向文本框中输入一个字符,单击命令按 ...
答:
Private Sub
Command
1_Click()a = InputBox("输入要验证ASCLL码的字符")k = Asc(a)Print k End Sub
如何实现在VBA窗体一键切换
答:
在窗体2的按钮中置入这些代码 Private Sub
CommandButton
2_Click()[B14] = TextBox1 '单元格B14 = 文本框1 [B15] = TextBox2 '单元格B15 = 文本框2 [B16] = TextBox3 '单元格B16 = 文本框3 Unload Me '从内存中卸载窗体 UserForm1.Show '窗体1显示 End Sub ...
首页
<上一页
67
68
69
70
71
72
74
75
76
下一页
73
其他人还搜