00问答网
所有问题
当前搜索:
vb中标签和文本框的区别
如何在
VB中
设计一个
文本框
控件,用于显示文字
答:
设置效果如下图所示:二、编写代码 Dim s1 As Single, s2 As Single, ysf As String ‘定义两个单精度数变量用与存放参与运算的数,一个字符型存放运算符 Private Sub Command1_Click(Index As Integer)Text1.Text = Text1.Text & Command1(Index).Caption ’将command1的单击事件
与文本框
...
VB
编程:在
文本框里
输入6位数的彩票号码,按下“开奖”按钮后,6个
标签
中...
答:
代码如下图,知道不让贴代码
文本
我在
vb中
画了一个
文本框
控件Text1,要用一个
标签
Lable1来显示所选文字的...
答:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)'检测用键盘来选择文字的情况 Label1.Caption = "所选文字的起始位置:" & Text1.SelStart Label2.Caption = "所选文字的长度:" & Text1.SelLength End Sub Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, ...
VB
设计程序,在一个
文本框
输入一串字符(大于2个),点击处理按钮取字符串的...
答:
Private Sub Command1_Click() Label1.Caption = IIf(Len(Text1) > 2, Left(Text1, 1) & Right(Text1, 1), "")End SubPrivate Sub Form_Load() Text1 = "abcde"End Sub
VB中
怎么使执行时首先显示有
边框的
文字 单击
标签
后边框消失
答:
可以用label控件 编程时设置label.appearance=0,就是以非3D状态显示 设置BorderStyle=1,就是有边框 这样标签文字周围就有边框了 运行时单击
标签边框
消失只要在Label1_Click()事件
里
加上Label1.BorderStyle = 0边框就消失了。用
文本框的
办法也类似。
vb中
inputbox和textbox1.text的问题
答:
您的代码原意是找“质数”,拼音是zhishu,不是奇数和偶数。按您的代码,如果是质数,就显示jishu,否则显示oushu。按算法,只有2、3、5、7、11、13……这些质数才会显示jishu,而9、15这些会显示oushu。不知您说的错误是什么错误。如果是显示的jishu和oushu不是您预期的,那很正常,凑巧您输入3、5...
VB
如何取得一个
文本框的
值?
答:
Dim s As String s = Text1.Text //获取
文本框的
植 s= Label1.Caption //获取
标签
的字符 s= Combo1.Text //获取下拉匡的值 s = Option1.Caption //获取单选按钮的标签字符 s = OpText6.Text = Check1.Caption//获取单选按钮的值(布尔值,选中为True 未选中为False)s = Check...
vb中文本框
可以输出的内容如何在列表
框里
输出?
答:
以下程序实现:在文本框输入内容,按回车键(Enter键)后,
文本框中的
内容输出到列表框。1)在窗体上布置一个TextBox控件和一个ListBox控件 2)代码 Option ExplicitPrivate Sub Form_Load() ' 窗体启动时,清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPr...
vb
用
文本框
内容输入成
标签
内容
答:
Private Sub Command1_Click()Label1.caption = Text1.text End Sub
VB中
利用
文本框
,下拉组合
框和标签
控件,设计一个进行四则运算和计算机进...
答:
最好使用分支判断switch和case,因为没有安装.NET环境,就用笨方法了 Dim A If ComboBox1.SelectedItem = "+" Then A = Val(TextBox1.Text) + Val(TextBox2.Text)End If If ComboBox1.SelectedItem = "-" Then A = Val(TextBox1.Text) - Val(TextBox2.Text)End If If ComboBox1....
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜