新手遇到难题求给个思路或者帮忙解决一下

#2

translitelis2014-08-26 21:54

是不是该建立起一个什么变量什么的不懂啊
请指教

#3

chen35232014-08-27 21:40

if 检查框1.value=1 then text1.text= "印度奶茶"
if 检查框2.value=1 then text1.text=text1.text & chr(13) & chr(10) & "丝袜奶茶"
if 检查框3.value=1 then text1.text=text1.text & chr(13) & chr(10) & "珍珠奶茶"
.
.
if 检查框1.value=1 then text2.text= 15
if 检查框2.value=1 then text2.text=val(text2.text) +15
if 检查框3.value=1 then text2.text=val(text2.text) +10
.
.

#4

风吹过b2014-08-27 23:46

来点高级点吧。

定义一个全局的类型吧

--------BAS------------

程序代码：

Option Explicit
Public Type 货物类型
   名称 As String
   价格 As Single
   会员价 As Single
   选择 As Boolean
End Type

Public 货物(1 To 12) As 货物类型
Const 货物文件名 = "货物.txt"

Public Path As String

Public Sub init()
Path = App.Path
If Right(Path, 1) <> "\" Then
    Path = Path & "\"
End If

Dim fr As Long
fr = FreeFile

Dim i As Long
Dim fj() As String
Dim s As String

i = 0
Open Path & 货物文件名 For Input As #fr
Do While Not EOF(fr)
    Line Input #fr, s           '读一行
    s = Trim(s)                 '去掉空格

    If Len(s) > 0 Then          '如果不为空行
        If Left(s, 1) <> ";" Then       '如果不是分号,分号做为注释用
            If InStr(1, s, ",") > 0 Then '如果最少可以分为二段
                fj = Split(s, ",")
                i = i + 1                '数据有效,计数 + 1
                With 货物(i)
                    .名称 = fj(0)
                    .价格 = CSng(fj(1))
                    If UBound(fj) > 1 Then '存在第三段,会员价
                        .会员价 = CSng(fj(2))
                    Else
                        .会员价 = Int(.价格 * 0.85)
                    End If
                End With
            End If
        End If
    End If
    If i = 12 Then Exit Do
Loop
Close #fr
End Sub

Public Sub main()           '该函数是本程序的第一个执行的过程

Call init           '程序初始化

Load Form1          '载入窗体1
Form1.Show          '显示窗体1
End Sub

------------Form1-----------------

程序代码：

Option Explicit

Private Sub Command1_Click()

Dim i As Long
For i = 0 To 11
    If Check1(i).Value = 1 Then             '如果选择了
        货物(i + 1).选择 = True             '则设置为选择了
    Else
        货物(i + 1).选择 = False            '否则设置为没选择。因为清选择时，没清这个位置，所以这里必须要给否
    End If
Next i

Load Form2          '加载窗体
Form2.Show          '显示
End Sub

Private Sub Command2_Click()
Call 清除选择       '调用清除选择，如果窗体外调用就是 call form1.清除选择
End Sub

Private Sub Form_Load()

Dim i As Long
For i = 0 To 11             '显示每个的内容
    Check1(i).Caption = "￥" & Format(货物(i + 1).价格, "0.00") & " " & 货物(i + 1).名称
Next i

End Sub

Public Sub 清除选择()
Dim i As Long
For i = 0 To 11
    Check1(i).Value = 0     '设置为不选择
Next i

End Sub

--------Form2----------

程序代码：

Option Explicit

Private Sub Form_Load()

Dim s As String
Dim i As Long
Dim zj1 As Single
Dim zj2 As Single

s = "选择了："          '第一行
For i = 1 To 12         '所有的货物
    With 货物(i)
        If .选择 Then   '如果选择了
            s = s & vbCrLf & .名称 & "    价格￥" & .价格 & " 会员价：￥" & .会员价        '组合成显示部分
            zj1 = zj1 + .价格               '计算普通价合计
            zj2 = zj2 + .会员价             '计算会员价合计
        End If
    End With
Next i

Text1.Text = s                  '显示
Text2.Text = zj1
Text3.Text = zj2

End Sub

Private Sub Form_Unload(Cancel As Integer)
'退出时，自动清选择
Call Form1.清除选择

End Sub

只有本站会员才能查看附件，请登录

#5

translitelis2014-08-28 19:56

回复 4 楼风吹过 b

非常感谢！

#6

translitelis2014-08-28 20:25

回复 4 楼风吹过 b

可不可以来个低端一点的..不要这么高端的..就按我那个思维来..

#7

风吹过b2014-08-28 21:40

按你那思维来，就是 3楼的写法。

if 检查框1.value=1 then text1.text= "印度奶茶"
if 检查框2.value=1 then text1.text=text1.text & chr(13) & chr(10) & "丝袜奶茶"
if 检查框3.value=1 then text1.text=text1.text & chr(13) & chr(10) & "珍珠奶茶"
.
.
if 检查框1.value=1 then text2.text= 15
if 检查框2.value=1 then text2.text=val(text2.text) +15
if 检查框3.value=1 then text2.text=val(text2.text) +10

实在是不愿打字了。。

#8

xzlxzlxzl2014-08-28 21:46

那就用控件集合完成吧。
你只要把form5的checkbox控件按你的要求摆放并填好名称价格，代码不用任何修改即能运行，得到你需要的。

只有本站会员才能查看附件，请登录

#9

xzlxzlxzl2014-08-28 22:19

form5代码
Public Function retJiaGe(ByRef Nr As String) As Single
  Dim o As Object, y As String, n As String, a As String, i As Integer, b As String
  Dim s As Single
  Nr = ""
  For Each o In Me.Controls
    If TypeName(o) = "CheckBox" And o Then
      a = o.Caption
      y = ""
      n = ""
      For i = 1 To Len(a)
        b = Mid(a, i, 1)
        If IsNumeric(b) Or b = "." Then y = y & b
        If (Asc(b) < 0 Or Asc(b) > 128) And b <> "￥" Then n = n & b
      Next
      Nr = Nr & "    " & n & vbCrLf
      s = s + Val(y)
    End If
  Next
  retJiaGe = s
End Function
Private Sub Command1_Click()
  Dim a As String
  Form6.Show
  retJiaGe a
  Form6.Text1 = "您选择的饮料有：" & vbCrLf & a
End Sub

Private Sub Command2_Click()
  End
End Sub

Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

form6代码
Private Sub Command1_Click()
  Dim a As String
  Text2 = "普通价：" & Form5.retJiaGe(a)
  Text1 = "您选择的饮料有：" & vbCrLf & a
End Sub

Private Sub Command2_Click()
  Dim a As String
  Text3 = "会员价：" & Form5.retJiaGe(a) * 0.8   '会员价8折
  Text1 = "您选择的饮料有：" & vbCrLf & a
End Sub

新手遇到难题 求给个思路 或者帮忙解决一下