vb6.0 窗帘价格计算程序

最新推荐文章于 2023-11-02 11:06:12 发布
最新推荐文章于 2023-11-02 11:06:12 发布
阅读量170 收藏 1
点赞数
原文链接：https://my.oschina.net/Tsybius2014/blog/339974
版权

〇、下载地址

工程文件下载地址：http://pan.baidu.com/s/1eQowEyQ

一、程序需求

1）一个窗帘由布和纱组成。给出一种窗帘花式，所用布的种类（单价）和纱的种类（单价）可以唯一确定。

2）根据加工方式的不同收取加工费，布和纱可能采用不同的方式加工，但使用同一种加工方式时，加工任何材质的布料、纱料的单位长度加工费都是一定的。

3）布料和纱料的加工方式可能不同。

4）窗帘可以选择多个，程序统计最终的总价格，然后给出计算的详细步骤与说明

5）总结后的计算公式如下：

布总价=(单位布料价格+单位布料加工费)*布料购买单位数

纱总价=(单位纱料价格+单位纱料加工费)*纱布料购买单位数

窗帘价格=布总价+纱总价

总价格=购买窗帘价格的总和

二、程序界面

1）总操作界面

总操作界面是进入程序后的第一个界面，可以对选取的窗帘进行增加、删除和计算总价的操作

171954_6XVs_1425762.png

单击按钮“添加一条新数据”，可以进入新增窗帘界面

单击按钮“计算总价格”，可以进入输出展示板界面

2）新增窗帘界面

指定窗帘类型、布料加工方式、纱料加工方式、布料购买长度、纱料购买长度，可以新增一个窗帘的数据

172322_VQ0k_1425762.png

3）输出展示板界面

输出展示板，可以将程序生成的窗帘总价格计算信息整理后输出

172536_V4Hc_1425762.png

三、总操作界面（frmMain.frm）的控件及源码

173150_d5eb_1425762.png

控件信息（采集自用Notepad++打开的frmMain.frm文件）

VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "窗帘价格计算程序"
   ClientHeight    =   7245
   ClientLeft      =   45
   ClientTop       =   390
   ClientWidth     =   8205
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7245
   ScaleWidth      =   8205
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdCalculate 
      BackColor       =   &H00000000&
      Caption         =   "计算总价格"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   4200
      TabIndex        =   4
      Top             =   6240
      Width           =   3735
   End
   Begin VB.CommandButton cmdClearAll 
      Caption         =   "清空所有的数据"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   240
      TabIndex        =   3
      Top             =   6240
      Width           =   3735
   End
   Begin VB.CommandButton cmdDeleteCurrent 
      Caption         =   "删除选中的数据"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   4200
      TabIndex        =   2
      Top             =   5280
      Width           =   3735
   End
   Begin VB.CommandButton cmdAddNewItem 
      Caption         =   "添加一条新数据"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   18
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   240
      TabIndex        =   1
      Top             =   5280
      Width           =   3735
   End
   Begin VB.ListBox lstDisplay 
      Height          =   4920
      ItemData        =   "Curtain.frx":0000
      Left            =   240
      List            =   "Curtain.frx":0007
      TabIndex        =   0
      Top             =   240
      Width           =   7695
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

窗体源码

'主窗体初始化
Private Sub Form_Load()

    '清空列表
    lstDisplay.Clear
    
End Sub

'按钮：添加一条新数据
Private Sub cmdAddNewItem_Click()

    frmAddItem.Show
    
End Sub

'按钮：删除当前选中数据
Private Sub cmdDeleteCurrent_Click()

    '删除当前选中的数据
    Dim item As Integer
    If lstDisplay.SelCount > 0 Then
        For item = lstDisplay.ListCount - 1 To 0 Step -1
            If lstDisplay.Selected(item) Then
                lstDisplay.RemoveItem item
            End If
        Next
    End If

End Sub

'按钮：清空列表中所有数据
Private Sub cmdClearAll_Click()

    '清空列表
    lstDisplay.Clear
    
End Sub

'按钮：计算总价格
Private Sub cmdCalculate_Click()

    '根据lstDisplay中的各项计算总价格
    
    Dim c As Currency '统计总价
    Dim s As String   '输出文本
    
    '题头
    s = "价格明细表" & vbCrLf & vbCrLf
    s = s & "========================" & vbCrLf & vbCrLf
    
    '输出各个窗帘计算明细
    c = 0
    Dim i As Integer
    For i = 0 To lstDisplay.ListCount - 1
        
        'list中内容分三段 第0段为该项价格，第1段为拆解后各参数，第2段为计算公式
        '分别装在 x(0) x(1) x(2)中
        Dim x() As String
        'MsgBox lstDisplay.List(i)
        x = Split(lstDisplay.List(i), "|")
        
        '累计价格
        c = c + Val(x(0))
        
        '列出明细和公式
        s = s & "布料名称：" & x(1) & vbCrLf
        Dim y() As String
        y = Split(x(2), ";")
        s = s & "-----------" & vbCrLf
        s = s & "单位布料价格：   " & y(0) & "元" & vbCrLf
        s = s & "单位布料加工费： " & y(1) & "元" & vbCrLf
        s = s & "布料购买单位数： " & y(2) & vbCrLf
        s = s & "单位纱料价格：   " & y(3) & "元" & vbCrLf
        s = s & "单位纱料加工费： " & y(4) & "元" & vbCrLf
        s = s & "纱料购买单位数： " & y(5) & vbCrLf
        s = s & "-----------" & vbCrLf
        s = s & "计算公式：(" & y(0) & "+" & y(1) & ")*" & y(2) & "+" & _
            "(" & y(3) & "+" & y(4) & ")*" & y(5) & "=" & x(0) & vbCrLf & vbCrLf
         
    Next
    
    '价格总计
    s = s & "========================" & vbCrLf & vbCrLf
    s = s & "价格总计：" & c & vbCrLf & vbCrLf
    
    '结尾部分：公式
    s = s & "========================" & vbCrLf & vbCrLf
    s = s & "计算公式" & vbCrLf
    s = s & "布总价=(单位布料价格+单位布料加工费)*布料购买单位数" & vbCrLf
    s = s & "纱总价=(单位纱料价格+单位纱料加工费)*纱料购买单位数" & vbCrLf
    s = s & "窗帘价格=布总价+纱总价" & vbCrLf
    s = s & "总价格=购买窗帘价格的总和" & vbCrLf & vbCrLf
    
    '时间戳
    s = s & Format(Now, "yyyy/MM/dd hh:mm:ss")
    
    frmDisplayResult.Show
    frmDisplayResult.txtDisplayBoard.Text = s

End Sub

'关闭主窗体时，关闭所有窗体并退出程序
Private Sub Form_Unload(Cancel As Integer)
    
    MsgBox "谢谢使用 --Tsybius 2014/11/2"
    
    '关闭所有的窗体
    Unload frmAddItem
    Unload frmDisplayResult
    Unload Me
    
End Sub

四、新增窗帘界面（frmAddItem.frm）的控件和源码

173918_I2fJ_1425762.png

注：控件前缀 ①TextBox:txt-②ComboBox:cmb ③Command:btn/cmd

控件信息（采集自用Notepad++打开的frmAddItem.frm文件）

VERSION 5.00
Begin VB.Form frmAddItem 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "添加新项"
   ClientHeight    =   6525
   ClientLeft      =   45
   ClientTop       =   390
   ClientWidth     =   5775
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6525
   ScaleWidth      =   5775
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox cmbYarnProcessType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   3600
      Style           =   2  'Dropdown List
      TabIndex        =   17
      Top             =   2760
      Width           =   1335
   End
   Begin VB.ComboBox cmbClothProcessType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   3600
      Style           =   2  'Dropdown List
      TabIndex        =   16
      Top             =   1560
      Width           =   1335
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   2880
      TabIndex        =   15
      Top             =   5280
      Width           =   2055
   End
   Begin VB.ComboBox cmbCurtainType 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      Left            =   2400
      Style           =   2  'Dropdown List
      TabIndex        =   13
      Top             =   360
      Width           =   2535
   End
   Begin VB.CommandButton btnAddItem 
      Caption         =   "添加"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   720
      TabIndex        =   12
      Top             =   5280
      Width           =   2055
   End
   Begin VB.TextBox txtClothPricePerUnit 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   5
      Text            =   "0.00"
      Top             =   960
      Width           =   2535
   End
   Begin VB.TextBox txtClothLength 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   4
      Text            =   "0"
      Top             =   3960
      Width           =   2535
   End
   Begin VB.TextBox txtClothProcessCost 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   3
      Text            =   "0.00"
      Top             =   1560
      Width           =   975
   End
   Begin VB.TextBox txtYarnPricePerUnit 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   2
      Text            =   "0.00"
      Top             =   2160
      Width           =   2535
   End
   Begin VB.TextBox txtYarnLength 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   1
      Text            =   "0"
      Top             =   4560
      Width           =   2535
   End
   Begin VB.TextBox txtYarnProcessCost 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Text            =   "0.00"
      Top             =   2760
      Width           =   975
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H80000002&
      BorderColor     =   &H80000002&
      FillColor       =   &H0000FF00&
      FillStyle       =   0  'Solid
      Height          =   135
      Left            =   480
      Top             =   3480
      Width           =   4815
   End
   Begin VB.Label Label7 
      Caption         =   "窗帘类型"
      Height          =   375
      Left            =   720
      TabIndex        =   14
      Top             =   480
      Width           =   1215
   End
   Begin VB.Label lbl1 
      Caption         =   "单位布料价格"
      Height          =   375
      Left            =   720
      TabIndex        =   11
      Top             =   1080
      Width           =   1335
   End
   Begin VB.Label Label1 
      Caption         =   "布料裁取宽度"
      Height          =   375
      Left            =   720
      TabIndex        =   10
      Top             =   4080
      Width           =   1335
   End
   Begin VB.Label Label2 
      Caption         =   "单位布料加工费"
      Height          =   375
      Left            =   720
      TabIndex        =   9
      Top             =   1680
      Width           =   1335
   End
   Begin VB.Label Label3 
      Caption         =   "单位纱料价格"
      Height          =   255
      Left            =   720
      TabIndex        =   8
      Top             =   2280
      Width           =   1335
   End
   Begin VB.Label Label4 
      Caption         =   "纱料裁取宽度"
      Height          =   255
      Left            =   720
      TabIndex        =   7
      Top             =   4680
      Width           =   1335
   End
   Begin VB.Label Label5 
      Caption         =   "单位纱料加工费"
      Height          =   375
      Left            =   720
      TabIndex        =   6
      Top             =   2880
      Width           =   1335
   End
End
Attribute VB_Name = "frmAddItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

窗体源码

'加工费
Dim gNothingCharge As Currency
Dim gHookChrage As Currency
Dim gPunchCharge As Currency
Dim gSFoldCharge As Currency

'加载窗体
Private Sub Form_Load()

    '初始化控件内容
    
    '布加工方式
    cmbClothProcessType.AddItem "不加工"
    cmbClothProcessType.AddItem "挂钩加工"
    cmbClothProcessType.AddItem "打孔加工"
    cmbClothProcessType.AddItem "S折加工"
    cmbClothProcessType.Text = "不加工"
    txtClothProcessCost.Text = gNothingCharge
    
    '纱加工方式
    cmbYarnProcessType.AddItem "不加工"
    cmbYarnProcessType.AddItem "挂钩加工"
    cmbYarnProcessType.AddItem "打孔加工"
    cmbYarnProcessType.AddItem "S折加工"
    cmbYarnProcessType.Text = "不加工"
    txtYarnProcessCost.Text = gNothingCharge

    '读取配置文件：从INI配置文件中读取加工费和窗帘类型
    Dim i As Integer
        
    '读取纱布加工单价
    Dim ProcessingCharge() As String
    ProcessingCharge = GetInfoSection("Process", App.Path & "\config.ini")
    For i = 1 To UBound(ProcessingCharge)
    
        Dim temp() As String
        temp = Split(ProcessingCharge(i), "=")
        If temp(0) = "Nothing" Then
            gNothingCharge = Trim(temp(1))
        End If
        If temp(0) = "Hook" Then
            gHookChrage = Trim(temp(1))
        End If
        If temp(0) = "Punch" Then
            gPunchCharge = Trim(temp(1))
        End If
        If temp(0) = "SFold" Then
            gSFoldCharge = Trim(temp(1))
        End If
    
    Next
    
    '读取各种类窗帘纱布单价
    Dim Curtain() As String
    Curtain = GetInfoSection("Curtain", App.Path & "\config.ini")
    For i = 1 To UBound(Curtain)
        
        '提取每种窗帘的值部分
        Dim x As String
        x = Mid(Curtain(i), InStr(Curtain(i), "=") + 1)
        
        '提取窗帘名称
        Dim item() As String
        item = Split(x, ";")
        cmbCurtainType.AddItem item(0)
        If i = 1 Then
            cmbCurtainType.Text = Trim(item(0))
            txtClothPricePerUnit.Text = Trim(item(1))
            txtYarnPricePerUnit.Text = Trim(item(2))
        End If
    Next
    
End Sub

'以下是三个重选下拉菜单触发的事件
'注：(ComboBox)_Change()函数，在vb6.0中，只会在手动输入更改combobox时触发

'重选下拉菜单：布加工方式
Private Sub cmbClothProcessType_Click()

    If cmbClothProcessType.Text = "不加工" Then
        txtClothProcessCost.Text = gNothingCharge
    End If
    If cmbClothProcessType.Text = "挂钩加工" Then
        txtClothProcessCost.Text = gHookChrage
    End If
    If cmbClothProcessType.Text = "打孔加工" Then
        txtClothProcessCost.Text = gPunchCharge
    End If
    If cmbClothProcessType.Text = "S折加工" Then
        txtClothProcessCost.Text = gSFoldCharge
    End If

End Sub

'重选下拉菜单：纱加工方式
Private Sub cmbYarnProcessType_Click()

    If cmbYarnProcessType.Text = "不加工" Then
        txtYarnProcessCost.Text = gNothingCharge
    End If
    If cmbYarnProcessType.Text = "挂钩加工" Then
        txtYarnProcessCost.Text = gHookChrage
    End If
    If cmbYarnProcessType.Text = "打孔加工" Then
        txtYarnProcessCost.Text = gPunchCharge
    End If
    If cmbYarnProcessType.Text = "S折加工" Then
        txtYarnProcessCost.Text = gSFoldCharge
    End If
    
End Sub

'修改窗帘类型
Private Sub cmbCurtainType_Click()

    If cmbCurtainType.Text = "" Then
        Exit Sub
    End If
     
     '读取配置文件：从XML中读取窗帘类型
    Dim i As Integer
    Dim Curtain() As String
    Curtain = GetInfoSection("Curtain", App.Path & "\config.ini")
    For i = 1 To UBound(Curtain)
        
        '提取每种窗帘的值部分
        Dim x As String
        x = Mid(Curtain(i), InStr(Curtain(i), "=") + 1)
        
        '提取窗帘名称
        Dim item() As String
        item = Split(x, ";")
        If item(0) = cmbCurtainType.Text Then
            txtClothPricePerUnit.Text = Trim(item(1))
            txtYarnPricePerUnit.Text = Trim(item(2))
        End If
        
    Next

End Sub

'以下是两个按钮点击后触发的事件

'按钮：添加一个窗帘的价格
Private Sub btnAddItem_Click()
    
    On Error Resume Next
    
    '总价格为0，则不添加
    If Trim(txtClothLength.Text) = "0" And Trim(txtYarnLength.Text) = "0" Then
        MsgBox "总价格为0，添加失败"
        Unload Me
        Exit Sub
    End If
    
    '输入合法性校验
    
    '1
    If Not IsNumeric(txtClothPricePerUnit.Text) Then
        txtResult.Text = "单位布料价格必须为非负数字"
        MsgBox "单位布料价格必须为非负数字"
        Exit Sub
    ElseIf txtClothPricePerUnit.Text < 0 Then
        txtResult.Text = "单位布料价格必须为非负数字"
        MsgBox "单位布料价格必须为非负数字"
        Exit Sub
    End If
    
    '2
    If Not IsNumeric(txtClothLength.Text) Then
        txtResult.Text = "布料宽度必须为非负数字"
        MsgBox "布料宽度必须为非负数字"
        Exit Sub
    ElseIf txtClothLength.Text < 0 Then
        txtResult.Text = "布料宽度必须为非负数字"
        MsgBox "布料宽度必须为非负数字"
        Exit Sub
    End If
    
    '3
    If Not IsNumeric(txtClothProcessCost.Text) Then
        txtResult.Text = "单位布料加工费必须为非负数字"
        MsgBox "单位布料加工费必须为非负数字"
        Exit Sub
    ElseIf txtClothProcessCost.Text < 0 Then
        txtResult.Text = "单位布料加工费必须为非负数字"
        MsgBox "单位布料加工费必须为非负数字"
        Exit Sub
    End If
    
    '4
    If Not IsNumeric(txtYarnPricePerUnit.Text) Then
        txtResult.Text = "单位纱料价格必须为非负数字"
        MsgBox "单位纱料价格必须为非负数字"
        Exit Sub
    ElseIf txtYarnPricePerUnit.Text < 0 Then
        txtResult.Text = "单位纱料价格必须为非负数字"
        MsgBox "单位纱料价格必须为非负数字"
        Exit Sub
    End If
    
    '5
    If Not IsNumeric(txtYarnLength.Text) Then
        txtResult.Text = "纱料宽度必须为非负数字"
        MsgBox "纱料宽度必须为非负数字"
        Exit Sub
    ElseIf txtYarnLength.Text < 0 Then
        txtResult.Text = "纱料宽度必须为非负数字"
        MsgBox "纱料宽度必须为非负数字"
        Exit Sub
    End If
    
    '6
    If Not IsNumeric(txtYarnProcessCost.Text) Then
        txtResult.Text = "单位纱料加工费必须为非负数字"
        MsgBox "单位纱料加工费必须为非负数字"
        Exit Sub
    ElseIf txtYarnProcessCost.Text < 0 Then
        txtResult.Text = "单位纱料加工费必须为非负数字"
        MsgBox "单位纱料加工费必须为非负数字"
        Exit Sub
    End If
    
    '布料单价+布料加工费
    Dim cClothUnivalence As Currency
    cClothUnivalence = Val(txtClothPricePerUnit.Text) + Val(txtClothProcessCost.Text)
    
    '纱料单价+纱料加工费
    Dim cYarnUnivalence As Currency
    cYarnUnivalence = Val(txtYarnPricePerUnit.Text) + Val(txtYarnPricePerUnit.Text)
    
    '总共价格
    Dim cPriceTotal As Currency
    cPriceTotal = _
        cClothUnivalence * Val(txtClothLength.Text) + _
        cYarnUnivalence * Val(txtYarnLength.Text)
    
    '生成信息栏
    Dim sItemInfo As String
    sItemInfo = cPriceTotal & "|" & Trim(cmbCurtainType.Text) & "|" & _
        txtClothPricePerUnit.Text & ";" & txtClothProcessCost.Text & ";" & _
        Trim(txtClothLength.Text) & ";" & txtYarnPricePerUnit.Text & ";" & _
        txtYarnProcessCost.Text & ";" & Trim(txtYarnLength.Text)
    frmMain.lstDisplay.AddItem sItemInfo
    
    '关闭本窗体
    Unload Me
    
End Sub

'按钮：取消添加当前项
Private Sub cmdCancel_Click()

    '关闭本窗体
    Unload Me
    
End Sub

五、输出展示板界面（frmDisplayResult.frm）的控件和源码

174354_p7eU_1425762.png

控件信息（采集自用Notepad++打开的frmDisplayResult.frm文件）

VERSION 5.00
Begin VB.Form frmDisplayResult 
   Caption         =   "输出展示板"
   ClientHeight    =   4905
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   7950
   LinkTopic       =   "Form1"
   ScaleHeight     =   4905
   ScaleWidth      =   7950
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txtDisplayBoard 
      Height          =   4695
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Text            =   "DisplayResult.frx":0000
      Top             =   120
      Width           =   7695
   End
End
Attribute VB_Name = "frmDisplayResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

窗体源码：无

六、INI配置文件读取模块

INI配置文件读取模块：mdlIniHelper

里面有一个函数GetInfoSection，作用为读取INI配置中指定节中的所有键值对

本函数参考了 这个资源

'下载自：http://download.csdn.net/detail/veron_04/3057337

Option Explicit

Private Declare Function GetPrivateProfileSection _
    Lib "KERNEL32" _
    Alias "GetPrivateProfileSectionA" ( _
    ByVal lpAppName As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) _
    As Long

'读取INI配置中指定节中的所有键值对
Public Function GetInfoSection(strSection As String, strIniFile As String) As String()
    
    Dim strReturn As String * 32767
    Dim strTmp    As String
    Dim nStart    As Integer
    Dim nEnd      As Integer
    Dim i         As Integer
    Dim sArray()  As String
      
    Call GetPrivateProfileSection(strSection, strReturn, Len(strReturn), strIniFile)
      
    strTmp = strReturn
    i = 1
    Do While strTmp <> ""
        nStart = nEnd + 1
        nEnd = InStr(nStart, strReturn, vbNullChar)
        strTmp = Mid$(strReturn, nStart, nEnd - nStart)
        If Len(strTmp) > 0 Then
            ReDim Preserve sArray(1 To i)
            sArray(i) = strTmp
            i = i + 1
        End If
    Loop
    GetInfoSection = sArray
          
End Function

七、关于配置文件config.ini

#|---------------------------
#|窗帘价格计算程序配置文件
#|注意：不要添加多余的空格
#|---------------------------
#|Process  单位纱布加工价格
#|Nothing  不加工价格
#|Hook     挂钩加工价格
#|Punch    打孔加工价格
#|SFold    S折加工价格
#|---------------------------
#|Curtain  窗帘
#|键名任意，值信息依次为 窗帘名称;单位布价格;单位纱价格
#|---------------------------
[Process]
Nothing=0.00
Hook=2.22
Punch=3.33
SFold=4.44
[Curtain]
Curtain1=Tsybius;3.14;6.28
Curtain2=Galatea;1.57;4.71

END

转载于:https://my.oschina.net/Tsybius2014/blog/339974

chenzai1946
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
SQL窗口函数实现累加求功能
weixin_43332500的博客
03-22 1万+
1、语法： sum(字段1) over(partition by 字段2 order by 字段3 rows between unbounded preceding and current row) as 新字段名 2、功能： 实现组内累加 3、实例： 表sheet1，内容如下： 先对表中每人每月的收入求和： select name,mon,sum(amount) as tota_amount...
计算商品价格
青藤紫薯
03-27 1819
package text; import java.util.Scanner; /* * 计算商品价值 * 输入商品价格及购买数量就折扣价 * 1，满500块 打9折 * 2，满1000块 打8.5折 * 3，满2000块 打8折 * 4，满5000块 打7折 * 预习 * 流程控制 */ public class Text_2 { publi...
ASP.NET 窗帘销售平台网站的设计与实现（论文+源码）_Nueve
最新发布
weixin_69071556的博客
11-02 59
宣传，对公司来讲是个不可缺的工具，更是一个无法缺少的纽带，它是连接消费者与服务提供商的桥梁，是业务的来源之力。为了更好的推销本公司，为了更好的让客户了解本公司，更方便的服务客户，且能更方便的与本公司联系，节约时间，及时发挥效应。认识到这一点，公司就更要抓住机会，组建公司自己的网站，不但可以扩大公司的知名度，方便了用户，从而给公司本身也带来了新的发展生机。另外，将光标定位于该层内，在其右键弹出菜单中选择“层属性”，就可在界面右侧的任务窗格上设置该层的ID，边框和底纹的样式、边距，以及定位样式与位置等参数）。
VB精彩小程序
11-14
VB精彩小程序，总共100多个程序，总有一款适合你！
1900套计算机毕业设计源码整合大全，ASP(499套），C++（24套），Java（100套），JSP（300套），PHP（76套），VB（350套）Andorid168套，swing11套...
热门推荐
CSDN专栏--北京中关村
06-03 1万+
1900套计算机毕业设计源码整合大全
取得system权限
weixin_34387468的博客
05-23 1076
这几天,无意中看到 strfreedom会员 说用ntsd命令杀掉进程的方法[url]http://softbbs.pconline.com.cn/topic.jsp?tid=6598431&pageNo=1[/url] 不过实践证明,并不是能杀掉所有进程,这是因为运行的命令提示符是以当前用户运行的, 而系统权限最高的用户不是管理员,而是system用户,除非你...
我的梦想
tjficcbw的专栏
04-02 777
童年      我的童年是在农村度过的，记得那时是1969年我刚上小学就下放到农村去了，因为我是城里人，所以不能和那里的孩子们交溶，总是被人家欺负，当时我的生活轨迹就是二点一线，学校，家。因为到外面玩，会不时的被他们打，所以只能在家里自己玩。当时最有意思的玩法就是想像，有一次，我就幻想用肥皂沫做海绵，经过许多次努力可最终还是没做成，因为那时没什么可玩的，我也想过吹笛，可当时家里没钱买也就只好做罢了
VB6.0完整版VB6.0完整版
08-03
Visual Basic 6.0（简称VB6.0）是微软公司于1998年推出的一款可视化编程工具，它是Visual Basic系列的一个重要版本，主要用于开发Windows应用程序。VB6.0以其直观的拖放界面、简单的事件驱动编程模型以及强大的...
VB6.0-OCR.rar_VB6.0-OCR_VB编写OCR_character_vb6.0 OCR_数字识别
07-14
用Visual Basic 6.0编写的OCR识别程序,对数字的识别率高
VB6.0设计条形码打印程序
05-18
在VB6.0环境下设计一个条形码打印程序是一项常见的任务，尤其对于那些需要处理库存、物流或零售业务的企业。这个程序的核心在于如何利用Visual Basic的编程能力来生成和打印条形码。以下是对该主题的详细解释： 一...
VB6.0文件查找程序源代码
05-07
摘要:VB源码,文件操作,文件查找　一个基于VB6.0的文件查找程序源代码，若文件类型为 Exe,Ico,Cur,Ani，则获取每个文件的默认图标，其他类型的文件，只为每一种类型加载一个默认的图标，但最多允许加载150种图标，...
AutoCode-for-VB6.0.rar_AutoCode for VB6_AutoCode_VB6.0_autocode
07-13
VB6（Visual Basic 6.0）是微软发布的一款经典编程环境，用于创建Windows应用程序。尽管现在已经有一些更新版本如Visual Studio和Visual Basic .NET，但VB6仍然因其简洁的语法和强大的功能在一些领域中得到广泛应用...
计算总金额
weixin_44543189的博客
07-07 1663
开发工具与关键技术：VS、计算总金额 作者：陆桂超 撰写时间：2019年7月6日 在做项目开发时，一些页面要用到计算的功能，下面我通过一个小例子来实现计算金额的功能。我使用的是c#编程语言。 1、html代码，首先准备好单价，数量和总金额的input标签。并绑定id值。 <span>苹果单价：</span><input class="" id="Quantity1"...
VB6.0程序设计基础教程PPT
"VB6.0程序设计的PPT课件" VB6.0, 全称Visual Basic 6.0, 是微软公司推出的一种可视化编程环境，主要用于编写Windows应用程序。该PPT课件详细介绍了VB6.0程序设计的基础知识，适合初学者学习。 在课程开始时，强调...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值