抽号软件（支持打印）

【实例简介】随机抽取编号
【实例截图】
【核心代码】Dim BuChang As Single

Private Sub Command1_Click()
Me.List1.Clear
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "A" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "B" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "C" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "D" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "E" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "F" & Format(i, "000")
Next
End Sub

Private Sub Command2_Click()
Form2.Label1.Caption = ""
Form2.Image1.Picture = LoadPicture(App.Path & "\底.jpg")
Form2.ZOrder 1
Form2.Label1.FontBold = Me.Text5(4).FontBold
Form2.Label1.FontItalic = Me.Text5(4).FontItalic
Form2.Label1.FontName = Me.Text5(4).FontName
Form2.Label1.FontSize = Val(Me.Text5(5).Text)
Form2.Show
Form2.Left = Val(Me.Text5(8).Text) * 15
End Sub

Private Sub Command3_Click()
Me.Timer1.Enabled = True
End Sub

Private Sub Command4_Click()
Me.Timer1.Enabled = False
If Me.Check1.Value Then
   Form2.Label1.Caption = Me.Text1.Text
End If
For i = 0 To Me.List1.ListCount - 1
    If Form2.Label1.Caption = Me.List1.List(i) Then
       Me.List1.RemoveItem i
    End If
Next
End Sub

Private Sub Command5_Click()
Form2.PrintForm
End Sub

Private Sub Command6_Click()
For i = 0 To Me.List1.ListCount
    If Me.Text3.Text = Me.List1.List(i) Then
       GoTo Gs:
    End If
Next
Me.List1.AddItem Me.Text3.Text
Gs:
End Sub

Private Sub Form_Load()
Me.List1.Clear
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "A" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "B" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "C" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "D" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "E" & Format(i, "000")
Next
For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
    Me.List1.AddItem "F" & Format(i, "000")
Next

Me.Timer2.Enabled = True
load_weninf
End Sub

Private Sub Form_Unload(Cancel As Integer)
Save_weizhi
Unload Form1
Unload Form2
End
End Sub
Sub load_weninf()
    Dim fs, file
    On Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set file = fs.openTextFile(App.Path & "\data.ini")
    For i = 0 To 8
         Me.Text5(i).Text = file.readline
    Next
 
    If file.readline = "true" Then
        Me.Text5(4).FontBold = True
    Else
        Me.Text5(4).FontBold = False
    End If
    If file.readline = "true" Then
       Me.Text5(4).FontItalic = True
    Else
       Me.Text5(4).FontItalic = False
    End If
    Me.Text5(4).FontName = file.readline
    Me.Text5(4).Text = Me.Text5(4).FontName
    Me.Text2.Text = file.readline
End Sub

Sub Save_weizhi()
On Error Resume Next
Dim fs, file
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set file = fs.createtextfile(App.Path & "\data.ini")
'    file.writeline Me.Text1.Text
    For i = 0 To 8
        file.writeline Me.Text5(i).Text
    Next

    If Me.Text5(4).FontBold = True Then
       file.writeline "true"
    Else
       file.writeline "false"
    End If
    If Me.Text5(4).FontItalic = True Then
       file.writeline "true"
    Else
       file.writeline "false"
    End If
    file.writeline Me.Text5(4).FontName
    file.writeline Me.Text2.Text
End Sub

Private Sub Text6_Change(Index As Integer)

End Sub

Private Sub List1_Click()
Me.List1.RemoveItem Me.List1.ListIndex
End Sub

Private Sub Text2_Change()
Form2.Label2.Caption = Me.Text2.Text
End Sub

Private Sub Text5_Change(Index As Integer)
On Error Resume Next
Select Case Index
Case 0
     Form2.Width = Val(Me.Text5(0).Text) * 15
     Form2.Label1.Width = Form2.Width
     Form2.Image1.Width = Form2.Width
Case 1
     Form2.Height = Val(Me.Text5(1).Text) * 15
     Form2.Image1.Height = Form2.Height
     
Case 2
     Form2.Label1.Top = Val(Me.Text5(2).Text) * 15
Case 5
     Form2.Label1.FontSize = Val(Me.Text5(5).Text)
Case 3
     Me.Text5(3).ForeColor = Val(Me.Text5(3).Text)
     Form2.Label1.ForeColor = Val(Me.Text5(3).Text)
Case 6, 7
     Me.List1.Clear
     For i = Val(Me.Text5(6).Text) To Val(Me.Text5(7).Text)
         Me.List1.AddItem i
     Next
End Select

Form2.Label2.Width = Form2.Width - 120
Form2.Label3.Width = Form2.Width - 120

Form2.Label2.Top = Form2.Height - 360
Form2.Label2.Left = 0

Form2.Label3.Top = Form2.Height - 690
Form2.Label3.Left = 0
End Sub

Private Sub Text5_DblClick(Index As Integer)
On Error Resume Next
Select Case Index
Case 4, 5
     Me.CommonDialog1.FontBold = Me.Text5(4).FontBold
     Me.CommonDialog1.FontItalic = Me.Text5(4).FontItalic
     Me.CommonDialog1.FontName = Me.Text5(4).FontName
     Me.CommonDialog1.FontSize = Val(Me.Text5(5).Text)
     Me.CommonDialog1.ShowFont
  
     Me.Text5(4).FontBold = Me.CommonDialog1.FontBold
     Me.Text5(4).FontItalic = Me.CommonDialog1.FontItalic
     Me.Text5(4).Text = Me.CommonDialog1.FontName
     Me.Text5(4).FontName = Me.CommonDialog1.FontName
     Me.Text5(5).Text = Me.CommonDialog1.FontSize
     
     Form2.Label1.FontBold = Me.Text5(4).FontBold
     Form2.Label1.FontItalic = Me.Text5(4).FontItalic
     Form2.Label1.FontName = Me.Text5(4).FontName
     Form2.Label1.FontSize = Val(Me.Text5(5).Text)
Case 3
     Me.CommonDialog1.Color = Me.Text5(3).ForeColor
     Me.CommonDialog1.ShowColor
     Me.Text5(3).ForeColor = Me.CommonDialog1.Color
     Me.Text5(3).Text = Me.CommonDialog1.Color
     Form2.Label1.ForeColor = Me.CommonDialog1.Color
End Select
End Sub

Private Sub Timer1_Timer()
Form2.Label1.Caption = Me.List1.List(Int(Rnd() * Me.List1.ListCount))
End Sub

Private Sub Timer2_Timer()
Form2.Label3.Caption = Date
End Sub