VB CHECKBOX的多选问题：在按下command按钮之后，在textbox里显示相关的信息。
建立 4个checkbox，成为数组，index为0--3,一个command按钮,一个textbox。
比如选择了第1个checkbox，在按下command按钮之后。
就在textbox里显示：
"总共选择了1个选项：
这是 第1个checkbox"
比如选择了第1,2个checkbox, 在按下command按钮之后。
就在textbox里显示：
"总共选择了2个选项：
第一行 : 这是第1个checkbox
第二行 : 这是第2个checkbox"
注：一定是要在按下command按钮之后才在textbox里显示相关的信息。
我自己试了好久，都不行，请朋友们帮帮忙。
dim i as integer
for i = 0 to 3
if checkbox(i).Value=1 then
str=str & iif(str="","",vbcrlf) & "这是第" & i +1 & "个checkbox"
end if
next
if str<>"" then textbox.text=str
如何使VB中点一下按键会弹出汉字,即点击command的按钮可以在text的空...
这样好让你输出到textbox的数据可以从别处获得。如：a = text2.text Private Sub Command1_Click()text1.text = a '如果想用对话框输出的话就用以下：msgbox"a",64,"提示！"end sub
...同一窗体中的多个textbox显示该公司其他信息
Private Sub Command1_Click()Dim Conn As ADODB.Connection Dim rs AS ADODB.Recordset Dim GetConnStr AS String Dim SQL AS String Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection GetConnStr=“连接字符串”Conn.Open GetConnStr IF Combo1.Text<>"" then SQL="Select 公司...
...我在单击一个单选按钮时,下面的TEXT出现checkbox按钮和相应的文字...
'先双击一个checkbox 再双击一个textbox 再添加一个Optionbutton这样checkbox就在下面不显示了 如果想要显示 代码如下：Private Sub Option1_Click()Check1.ZOrder 0 End Sub
VB.NET里如何调用DOS命令并在RichTextBox里返回结果
可选。AppWinStyle。从 AppWinStyle 枚举中选择的值，指定要在其中运行程序的窗口的样式。如果省略 Style，则 Shell 将使用 AppWinStyle.MinimizedFocus，它启动程序后最小化并带有焦点。Wait 可选。Boolean。指示 Shell 函数是否应等待程序完成的值。如果省略 Wait，Shell 将使用 False。Timeout 可选。...
VB中怎样点击命令按钮打印RichTextBox的全部内容
PRINTER.PRINT RichTextBox.Text 即可，但是要保证字体等一致就很麻烦了。
VB编程问题,关于多个复选框checkbox的判断问题
Private Sub Check1_Click(Index As Integer)Dim i As Integer Dim tmpstr As String For i = 0 To Check1.UBound tmpstr = tmpstr & CStr(Check1(i).Value)Next Text1.Text = tmpstr End Sub Private Sub Form_Load()Dim i As Integer Check1(0).Caption = ""Check1(0).Width = ...
vb中文本框可以输出的内容如何在列表框里输出?
1）在窗体上布置一个TextBox控件和一个ListBox控件 2）代码 Option ExplicitPrivate Sub Form_Load() ' 窗体启动时，清空Text1和List1 Text1.Text = "" List1.ClearEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) ' 如果按下了回车键（回车键的Ascii码为13） If KeyAs...
VB中添加一个textbox、一个command按钮和用ole加载的excel表格的操作问题...
Private Sub CommandButton1_Click()x = TextBox1.Text '文本输入数据 y = Sheets("sheet1").Range("a65536").End(xlUp).Offset(1, 0).Row '返回输入行数 Sheets("sheet1").Cells(y, 1) = y - 2 Sheets("sheet1").Cells(y, 2) = x End Sub ...
vb中在文本框里显示选中的文件夹路径
Private Sub Command1_Click()'引用 Microsoft Shell Controls And Automation Const BIF_EDITBOX = &H10 Const BIF_STATUSTEXT = &H4 Const BIF_RETURNFSANCESTORS = &H8 Const BIF_VALIDATE = &H20 Const BIF_BROWSEFORCOMPUTER = ...
怎么在VB中的TXTBOX在程序运行后加载文章!!
在窗体上添加一个RichTextBox,一个Text1,两个命令按钮 '设置ScrollBars属性为2(垂直滚动条)Private Sub Command1_Click()'打开文本文件到RichTextBox中 With CommonDialog1 .ShowOpen RichTextBox1.LoadFile .FileName End With End Sub Private Sub Command2_Click()'查找Text1中的文本内容 Dim s...
