54 lines
1011 B
Plaintext
54 lines
1011 B
Plaintext
|
VERSION 5.00
|
||
|
|
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} changes
|
||
|
|
Caption = "History"
|
||
|
|
ClientHeight = 7740
|
||
|
|
ClientLeft = 120
|
||
|
|
ClientTop = 465
|
||
|
|
ClientWidth = 16260
|
||
|
|
OleObjectBlob = "changes.frx":0000
|
||
|
|
StartUpPosition = 1 'CenterOwner
|
||
|
|
End
|
||
|
|
Attribute VB_Name = "changes"
|
||
|
|
Attribute VB_GlobalNameSpace = False
|
||
|
|
Attribute VB_Creatable = False
|
||
|
|
Attribute VB_PredeclaredId = True
|
||
|
|
Attribute VB_Exposed = False
|
||
|
|
Private x As Variant
|
||
|
|
|
||
|
|
Private Sub cbCancel_Click()
|
||
|
|
|
||
|
|
Me.Hide
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Private Sub lbHist_Change()
|
||
|
|
|
||
|
|
Dim i As Integer
|
||
|
|
|
||
|
|
For i = 0 To Me.lbHist.ListCount - 1
|
||
|
|
If Me.lbHist.Selected(i) Then
|
||
|
|
Me.tbPrint.value = x(i, 4)
|
||
|
|
Exit Sub
|
||
|
|
End If
|
||
|
|
Next i
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
Private Sub UserForm_Activate()
|
||
|
|
|
||
|
|
Dim fail As Boolean
|
||
|
|
|
||
|
|
x = handler.list_changes("{""user"":""" & Application.UserName & """}", fail)
|
||
|
|
If fail Then
|
||
|
|
Me.Hide
|
||
|
|
Exit Sub
|
||
|
|
End If
|
||
|
|
Me.lbHist.list = x
|
||
|
|
|
||
|
|
End Sub
|
||
|
|
|