66问答网
所有问题
当前搜索:
vb点击按钮文本框显示文字
vb
复选框如何把选中的都让一个
文本框显示
出来呢?
答:
Private Sub Command1_Click()Dim i As Integer Text1.Text = ""For i = 0 To Check1.Count - 1 If Check1(i).Value = 1 Then Text1.Text = Text1.Text & Check1(i).Caption & vbCrLf Next End Sub
VB
怎么样把一些设定的
文字
输出到
文本框
?
答:
RichTextBox1.Text = "" 注释:清空
文本框
FileName = "未命名"Me.Caption = FileName End Sub 注释:打开文件 Private Sub mnuOpen_Click()CommonDialog1.Filter = "文本文档(*.txt)|*.txt|RTF文档(*.rtf)|*.rtf|所有文件(*.*)|*.*"CommonDialog1.ShowOpen RichTextBox1.Text = "" ...
vb
中
单击
command
按钮
后即可在对应的text
文本框
内
显示
即时时间
答:
Private Sub Command1_Click()Text1.Text = Format(Now, "yyyy年mm月dd日 hh时nn分ss秒")End Sub 上面的format函数是格式化函数,前面的Now是当前时间,后面的字符串是
显示
时间格式。字母是标准格式,
汉字
是直接输出。
关于
vb
。
点击按钮
。弹出窗口
答:
首先添加一个CommonDialog控件 一个command控件 一个text控件 复制下面代码就可以了 Private Sub Command1_Click()CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color CommonDialog1.Action = 4 If CommonDialog1.FontName <> "" Then Text1.FontName = CommonDialog1.FontName Text1...
VB
关于选中
文本框
的
文字
的小问题
答:
先设置 text2.HideSelection =false 这个需要在属性窗口设置 Private Sub Command1_Click()Startme = Text2.SelLength + Text2.SelStart + 1 '给变量赋值 Where2 = InStr(Startme,Text2.Text,Text1.Text)'令其从上次找到的地方找起 If Where2 Then Text2.SelStart = Where2 - 1 Text2.Sel...
vb
中在
文本框
Text1中输入任意内容,实现在按下回车键后,将这些内容用消...
答:
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then MsgBox Text1.Text End If End Sub
vb
在线急等 怎样把检查框选定内容
显示
在
文本框
答:
Private Sub Check1_Click()If Check1.Value = 1 Then If InStr(" " & Text1.Text & " ", " " & Check1.Caption & " ") = 0 Then Text1.Text = Text1.Text & Check1.Caption & " "End If Else If InStr(" " & Text1.Text & " ", " " & Check1.Caption & " ") >...
VB
数据库如何用text
文本框
插入数据和读取
显示
数据
答:
点击
修改或 删除 前,需在DataGrid表里点选需要修改或删除的记录,让该记录的第一列
出现
在textbox1里 Private Sub 修改_Click()Dim X As Integer Dim CNN As New ADODB.Connection Dim rst As New ADODB.Recordset Dim SQ2 As String CNN.Open"Provider=microsoft.jet.oledb.4.0;data source=" ...
VB
,用当在第一个
文本框
里输入如下
文字
,并选中部分内容,然后
单击
复制...
答:
Private Sub Command1_Click() '复制 Text2.SelText = Text1.SelText End Sub Private Sub Command2_Click() '清除 Text1.Text = ""Text2.Text = ""End Sub
vb
状态栏动态
显示文本框
内容,一旦改变就显示改变后的内容,怎么写代码...
答:
设置状态栏相应的panel的值就行了啊。比如要设置为Text1这个
文本框
内容,代码如下:Private Sub Text1_Change()StatusBar1.panel(1).text=Text1.textEnd Sub
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜