22问答网
所有问题
当前搜索:
vb的标签怎么添加
VB
编写一个简单程序,要求:单击命令按钮来显示或隐藏
标签
,具体点的解答...
答:
请按以下步骤操作:打开
vb
新建一个工程,保存好 窗体上画一个一个命令按钮command1(命令按钮标题“隐藏”),一个
标签
label1,标签最好打几个字 双击命令按钮进入代码编辑器 写如下代码:if command1.caption='隐藏' then label1.visible=false command1.caption='显示'else label1.visible=true comma...
VB怎么
加载控件,会的进来看一下
答:
3、代码如下:Dim oControl As Object '窗体级变量 Private Sub 按扭_Click(Index As Integer)Dim I As Integer Set oControl = Controls.Add("
VB
.label", "Label1")'产生一个
标签
Label1的控件 oControl.Left = 100 oControl.Top = 100 oControl.Caption = "Lanel1"oControl.Visible = True...
vb如何
使用
标签
控件组
答:
Private Sub Label1_Click(Index As Integer)Text1.BackColor = Label1(Index).BackColor Text1.ForeColor = Label1(Index).ForeColor End Sub
vb标签
中
怎么
显示内容
答:
text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 这是让
标签
显示你输入的密码明文。是这意思么,不是还可以 sub command1_click()label1.caption = string("*",len(text1.text))end sub 文本框里有几个*号,他也显示几个*号。
如何
更改
vb中
label
标签
文字的字体、大小、以及颜色?
答:
更改
vb中
label
标签
文字的字体、大小、以及颜色可以参考下面的代码:PrivateSubForm_Load()Label1.Font="楷体"'字体改为楷体 Label1.FontSize=50'字体大小 Label1.ForeColor=vbRed'字体颜色改为红色 Label1.AutoSize=True'label随文字内容自动改变大小 EndSub ...
VB
编程
如何
让
标签
在窗体中来回滚动
答:
1楼的答案是对的。但在开始定义变量那里写反了,而且代码写得比较乱,不够清晰。2楼的答案从开始的想法上就错了,所以代码虽然没有语法上的错误,也很清楚,但却有逻辑错误,不能实现要求的功能。下面的是我写的,在窗体上
添加
1个Label和1个Timer,然后把代码复制进去就可以了。Private Sub Form_...
vb中标签
控件多行
怎么
设置呢?
答:
好象属性页无法设定 在运行期可以用label1.caption="123" & vbcrlf & "456"来设定
vb 中怎么
把双击击列表框中的内容显示在
标签
控件上,程序怎么写??应该...
答:
’界面上有一个列表框,一个
标签
.Private Sub Form_Load()Dim a For a = 0 To 10 Step 1 List1.AddItem Str(a), a '填充列表框元素,共10个 DoEvents Next End Sub Private Sub List1_dblClick()’双击改变标签的CAPTION Label1.Caption = List1.Text End Sub ...
如何
更改
vb中
label
标签
文字的字体、大小以及颜色?
答:
更改
vb中
label
标签
文字的字体、大小、以及颜色可以参考下面的代码:PrivateSubForm_Load()Label1.Font="楷体"'字体改为楷体 Label1.FontSize=50'字体大小 Label1.ForeColor=vbRed'字体颜色改为红色 Label1.AutoSize=True'label随文字内容自动改变大小 EndSub ...
vb
题目,如果想点击一个命令按钮 在
标签
上显示某个文本框内的文字 怎...
答:
我做一个,有一个text,2个button,你自己再改,PrivateSubCommand1_Click()Text1.Locked=FalseText1.Text=""Text1.Text="com1"Text1.Locked=TrueEndSubPrivateSubCommand2_Click()Text1.Locked=FalseText1.Text=""Text1.Text="com2"Text1.Locked=TrueEndSub ...
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜