网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,088贴子：1,166,234
  • 23回复贴，共1页

求助各位大佬

这个用VB6.0该怎么写啊，问AI也不行啊


你哪里不会？说出来我可以教你。
如果你说，“我不知道怎么开始”，那我劝你还是重新学一遍。


2025-08-21 12:14:07
广告
不感兴趣
开通SVIP免广告
哪一步不会


将combol的内容还有选中的option的内容移到list这个不会


你用简单if then else就可以了，你这个应该买vb6的入门重新看一下就好了




在豆包生成基础上修改，功能不完整。
Option Explicit
Private Sub Check1_Click() '计算机CheckBox控件（假设名称为Check1）
If Check1.Value = vbChecked Then
Combo1.Enabled = True
Text1.Enabled = True
Else
Combo1.Enabled = False
Text1.Enabled = False
End If
End Sub
Private Sub Check2_Click() '操作系统CheckBox控件（假设名称为Check2）
If Check2.Value = vbChecked Then
Option1.Enabled = True
Option2.Enabled = True
Else
Option1.Enabled = False
Option2.Enabled = False
End If
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '当按下回车键
Dim i As Integer
Dim isExist As Boolean
isExist = False
For i = 0 To Combo1.ListCount - 1
If Combo1.Text = Combo1.List(i) Then
isExist = True
Exit For
End If
Next i
If Not isExist Then
Combo1.AddItem Combo1.Text
List1.AddItem Combo1.Text
End If
Combo1.Text = ""
End If
End Sub
Private Sub Command1_Click() '确定按钮（假设名称为Command1）
Dim config As String
If Check1.Value = vbChecked Then
config = config & "计算机：品牌 " & Combo1.Text & "，数量 " & Text1.Text & vbCrLf
End If
If Check2.Value = vbChecked Then
If Option1.Value = True Then
config = config & "操作系统：Windows 2000" & vbCrLf
ElseIf Option2.Value = True Then
config = config & "操作系统：Windows XP" & vbCrLf
End If
End If
List1.Clear
List1.AddItem config
End Sub


现在还考VB呀。。。。


2025-08-21 12:08:07
广告
不感兴趣
开通SVIP免广告
这是最基础的控件操作，一看就是没好好学




If Option1.Value Then List1.AddItem Option1.Caption
If Option2.Value Then List1.AddItem Option2.Caption
两句话的事


还没有做成功么？见下列代码
Private Sub Form_Load()
Text1.Enabled = False: Combo1.Enabled = False
Option1(0).Enabled = False: Option1(1).Enabled = False
End Sub
Private Sub Check1_Click()
If Check1.Value = 0 Then
Text1.Enabled = False: Combo1.Enabled = False
Else
Text1.Enabled = True: Combo1.Enabled = True
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 0 Then
Option1(0).Value = False: Option1(1).Value = False
ElseIf Check2.Value = 1 Then
Option1(0).Enabled = True: Option1(1).Enabled = True
Option1(0).Value = True: Option1(1).Value = True
End If
End Sub
Private Sub Command1_Click()
If Combo1.ListIndex = -1 Then
MsgBox "没有选定品牌，请重新选择": Exit Sub
End If
If Not IsNumeric(Text1.Text) Then
MsgBox "没有输入数量，请重新选择": Exit Sub
End If
If Option1(0).Value = False And Option1(1).Value = False Then
MsgBox "没有选定操作系统，请重新选择": Exit Sub
End If
For i = 0 To List1.ListCount - 1
If List1.List(i) = Combo1.Text Then
MsgBox "输入重复，请重新输入!": Exit Sub
End If
Next
List1.AddItem Combo1.Text
List1.AddItem Text1.Text
For i = 0 To 1
If Option1(i).Value = True Then List1.AddItem Option1(i).Caption
Next
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 23回复贴，共1页
分享到: