Question

求VB大神帮帮忙，在线等 急急急

在最后那个text的框里面输出 Frame1（Option1-3） Frame2（Option4-6） Frame3（Option7-9）Frame4（Option10-12）Frame5（Check1-3），格式比如：机型：手提 CPU：双核 主频：1.8GHz
内存： 2GB 操作系统：/windos XP/LINUS/ 的代码咋写？？

Answer 1

简洁一点的:

 

1、5个RadioButton 的  Name 分别是Opt1,Opt2,Opt3,Opt4,Opt5

2、Form中定义5个变量

     Dim t1Str, t2Str, t3Str, t4Str, t5Str As String

     在Form_Load()中赋初始值
    Private Sub Form_Load()
       t1Str = ""
       t2Str = ""
       t3Str = ""
       t4Str = ""
       t5Str = ""
    End Sub

3、在各Opt的Click()事件中分别增加程序：

     Private Sub Opt1_Click(Index As Integer)
            t1Str = "机型：" & Opt1(Index).Caption + " "
            Text1 = t1Str + t2Str + t3Str + t4Str + t5Str   
     End Sub

    Private Sub Opt2_Click(Index As Integer)    
           t2Str = "CPU：" + Opt2(Index).Caption + " "
          Text1 = t1Str + t2Str + t3Str + t4Str + t5Str

   End Sub

   .....

  其它的程序参见附件中的Form5

 

追问

亲。。能把最后那个操作系统改为复选吗，可以选多个的那种，就把最后语句告我咋改就行

追答

如果要修改为 CheckBox 复选框的话,要调整一下语句.

如:Check1()

 

Private Sub Check1_Click(Index As Integer)
   
    t1Str = "机型："
   
    If Check1(0).Value = 1 Then t1Str = t1Str + Check1(0).Caption + " "
    If Check1(1).Value = 1 Then t1Str = t1Str + Check1(1).Caption + " "
    If Check1(2).Value = 1 Then t1Str = t1Str + Check1(2).Caption + " "
   
    If t1Str = "机型：" Then t1Str = ""
   
    Text1 = t1Str
   
End Sub
别的 Check_Click() 中的程序自己就照写一下了.....

追问

谢谢亲 不过我是大学刚学VB 其实也没咋学 没咋听过。。。所以不知道怎么把Check1()Check2()Check3()，改为Check1(0).Check1(1).Check1（2). 再求帮忙指导，以后必定好好学

追答

Check1(0),Check1(1),Check1(2)...指建立CheckBox 的控件数组,在窗体上放置一个 CheckBox 控件后,修改其Name 属性(默认为 Check1), 如:chk1.然后选择该控件,按"复制",再"粘贴"在窗体中,系统询问是否建立数组,你选"OK"就可以了,你多复制几个,该控件的 Index 属性就从0,1,2,3....排列了.这样就建立里该控件的数组了....

Answer 2

你想在什么情况下触发 text框的输出代码呢？

还有最方便的应该是把控件做成控件数组！！！所以依次有

frame1(0~4),option1(0~11),check1(0~2),text1 ' 用checkbox 是因为要复选么?

这里用点击按钮触发代码 所以 加一个 command1

因此有下面这段代码

Private Sub Command1_Click()

Dim temp As String, i As Integer, a As Integer

'frame1(0~3)

For i = 0 To 11

If i Mod 3 = 0 Then

temp = temp & Frame1(a).Caption & ":"

a = a + 1

End If

If Option1(i).Value = True Then

temp = temp & Option1(i).Caption & " "

End If

Next

'frame1(4)

temp = temp & Frame1(4).Caption & ":"

For i = 0 To 2

If Check1(i).Value = 1 Then temp = temp & Check1(i).Caption & " "

Next

Text1.Text = temp

End Sub

发个附件你看一下

好吧附件画少了一个frame,我把 上面的代码修改了一下,附件可以忽略了

Answer 3

你可以反复选择的，代码较多，需要给地址。