66问答网
所有问题
当前搜索:
vb单击按钮清除文本框内容
vb
基础习题,哪位大神会做,麻烦指教一下好么!
答:
1、界面:标签我省略了,你自己弄。其他的如下图,都不用设置属性。2、代码:大多数代码都是预防错误的和做准备的。核心代码只有一条list1.additem trim(text1),n
各位哥哥姐姐 帮忙写下
VB
实验报告 写1程序代码和实验过程 2结果分析 谢...
答:
'1.新建个vb6工程,一个窗体文件;'2.复制下面代码到新窗体的代码页中:Option Explicit Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Private Const FO_MOVE = &H1 Private Const FO_COPY = &H2 Private Const FO_...
有关
VB
的知识
答:
1你用个timer,是指interval=1000 private sub timer1_timer()form1.caption=now end sub 找素数么··Dim i As Integer Private Sub form_Click()For i = 1 To 100 If prime(i) print i Next i End Sub Private Function prime(n As Integer) As Boolean If n < 2 Then prime = ...
VB
编程时,怎样使
点击按钮
时,
文本框
中会显示文字?
答:
我做一个,有一个text,2个
button
,你自己再改,Private Sub Command1_Click()Text1.Locked = False Text1.Text = ""Text1.Text = "com1"Text1.Locked = True End Sub Private Sub Command2_Click()Text1.Locked = False Text1.Text = ""Text1.Text = "com2"Text1.Locked = True End...
简单
VB
代码编写
答:
首先先设计完界面(省略),然后编写一个通用的颜色函数:sub colorchange(r as integer,g as integer,b as integer)label1.backcolor=rgb(r,g,b)end sub 然后双击每个水平滚动条,在里边都写这样的代码:colorchange(cint(hs1.value),cint(hs2.value),cint(hs3.value))大致给你一个思路,看看...
VB
问题,要求
单击按钮
后就自动复制了
文本内容
?
答:
如果是想先用鼠标选择Text1的
文本
(可以部分,也可以全部),然后按Command1复制已选择的文本到剪贴板,则是:Private Sub Command1_Click()Clipboard.SetText Text1.SelText End Sub 如果是直接复制Text1的所有文本到剪贴板,则是:Private Sub Command1_Click()Clipboard.SetText Text1.Text End Sub...
VB中
不如有两个
文本框
当任何一个文本框的
内容
发生变化时,应将Label...
答:
Private Sub Text1_Change()Label1.Caption = ""End Sub Private Sub Text2_Change()Label1.Caption = ""End Sub
VB
题。在
文本框
中输入
内容
,然后
单击
命令
按钮
,在文本框中输入的内容同时...
答:
private Sub Text1_Change() ‘注意这里是change Form3.Label1.Caption = Form3.Label1.Caption & Text1.Text end Sub 窗体二上面的代码为:private Sub Text1_Change()Form3.Label1.Caption = Form3.Label1.Caption & Text1.Text end Sub 这样在窗体一或者二的
文本框
中输入
内容
时,窗体三上面...
VB
编程
文本框
输入数字无法
清除
问题
答:
那你就改写成只能输入数字和退格键
vb
编程:
单击按钮
时,将第一个
文本框
中的文本放在第二个文本框中。
答:
Private Sub Command1_Click() Text2.text = Text1.textEnd Sub
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜